(describe-mode): Pass the right buffer to format-mode-line.

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))))))