diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-01-16 15:55:15 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-01-16 15:55:15 +0000 |
| commit | 145fe412ba3d33d81462ce39bb2e757b0dea93d7 (patch) | |
| tree | 3b8f59f44049d1beab4d04f82f39236f4cd4727d | |
| parent | a9c6b41c6351342b05f1c1c236829d795fce21e8 (diff) | |
| download | emacs-145fe412ba3d33d81462ce39bb2e757b0dea93d7.tar.gz | |
(describe-mode): Pass the right buffer to format-mode-line.
| -rw-r--r-- | lisp/ChangeLog | 12 | ||||
| -rw-r--r-- | lisp/help.el | 2 |
2 files changed, 9 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b1d4e26dfdb..334412d7d0f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-01-16 Stefan Monnier <monnier@iro.umontreal.ca> + + * help.el (describe-mode): Pass the right buffer to format-mode-line. + 2008-01-16 Glenn Morris <rgm@gnu.org> * comint.el (comint-regexp-arg): Fix no-input case. @@ -14,8 +18,8 @@ 2008-01-16 Ulf Jasper <ulf.jasper@web.de> * calendar/icalendar.el (icalendar-version): Increase to 0.16. - (icalendar-export-file, icalendar-import-file): Restore - significant trailing whitespace in `interactive' prompts. + (icalendar-export-file, icalendar-import-file): + Restore significant trailing whitespace in `interactive' prompts. 2008-01-16 Tom Tromey <tromey@redhat.com> @@ -24,8 +28,8 @@ (icalendar--find-time-zone): New functions. (icalendar--decode-isodatetime): Add `zone' argument, passed to `decode-time'. Doc fix. - (icalendar--convert-ical-to-diary): Compute zone-map. Pass - timezone to icalendar--decode-isodatetime. + (icalendar--convert-ical-to-diary): Compute zone-map. + Pass timezone to icalendar--decode-isodatetime. 2008-01-16 Alan Mackenzie <acm@muc.de> diff --git a/lisp/help.el b/lisp/help.el index 68d3e33fe0a..24f1e74d71a 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -860,7 +860,7 @@ whose documentation describes the minor mode." (let ((mode mode-name)) (with-current-buffer standard-output (let ((start (point))) - (insert (format-mode-line mode)) + (insert (format-mode-line mode nil nil buffer)) (add-text-properties start (point) '(face bold))))) (princ " mode:\n") (princ (documentation major-mode)))))) |