(describe-mode): Pass `mode-name' to format-mode-line.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 601f4928a133d242f74f19b5ca0699da7451de33..23c90421b891390ce1de2d30b9b2eb43d1251305 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-02-23  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * help.el (describe-mode): Pass `mode-name' to format-mode-line.
+
 2006-02-23  Juanma Barranquero  <lekktu@gmail.com>
 
        * textmodes/org.el (org-xemacs-p)
@@ -16,8 +20,8 @@
        (org-solidify-link-text): New function.
        (org-add-hook): Use `add-local-hook' instead of `make-local-hook' for
        XEmacs, just to silence the compiler.
-       (org-export-as-ascii, org-export-as-html-and-open): Use
-       `org-cleaned-string-for-export' and create internal links.
+       (org-export-as-ascii, org-export-as-html-and-open):
+       Use `org-cleaned-string-for-export' and create internal links.
        (org-follow-mhe-link): Require mh-e, use folder.
 
 2006-02-23  Nick Roberts  <nickrob@snap.net.nz>
@@ -64,7 +68,7 @@
        option `org-export-table-remove-special-lines'.
        (org-open-file): Allow special command configuration for
        directory link.
-       (org-file-apps): Fixed bugs in customize type, added setting
+       (org-file-apps): Fix bugs in customize type, added setting
        for directories.
        (org-activate-tags, org-format-agenda-item, org-complete)
        (org-get-tags-at, org-scan-tags, org-make-tags-matcher)
@@ -80,7 +84,7 @@
        (org-store-link, org-insert-link): Use new option
        `org-file-link-context-use-camel-case'.
        (org-activate-camels): Use new option `org-activate-camels'.
-       (org-link-regexp): Added mhe prefix.
+       (org-link-regexp): Add mhe prefix.
        (org-open-at-point, org-store-link): Support for mhe links.
        (org-mhe-get-message-real-folder, org-mhe-get-message-folder)
        (org-mhe-get-message-folder-from-index, org-mhe-get-message-num)
@@ -88,12 +92,12 @@
        (org-remove-angle-brackets, org-add-angle-brackets):
        New functions.
        (org-bracket-link-regexp): New constant.
-       (org-read-date): Fixed bug that was rejecting all typed dates.
+       (org-read-date): Fix bug that was rejecting all typed dates.
        (org-link-search): Make hierarchy above visible after a match.
        (org-follow-bbdb-link): Inhibit electric mode for BBDB.
-       (org-store-link): Fixed bug with link creation when cursor is in
+       (org-store-link): Fix bug with link creation when cursor is in
        an empty line.
-       (org-open-at-point): Fixed bug with matching a link.
+       (org-open-at-point): Fix bug with matching a link.
        Fixed buggy argument sequence in call to `org-view-tags'.
        (org-compile-prefix-format): Set `org-prefix-has-tag'.
        (org-prefix-has-tag): New variable.
@@ -157,8 +161,8 @@
 
 2006-02-20  Chong Yidong  <cyd@stupidchicken.com>
 
-       * custom.el (customize-mark-to-save, customize-mark-as-set): Load
-       the symbol first.
+       * custom.el (customize-mark-to-save, customize-mark-as-set):
+       Load the symbol first.
 
 2006-02-20  Juanma Barranquero  <lekktu@gmail.com>
 

diff --git a/lisp/help.el b/lisp/help.el
index f74293b8dd6a12216d0ac828d71aa5d42d9f7087..14de292dd13878a28fb9d3b66bda99292649ad36 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -835,8 +835,9 @@ follows the description of the major mode.)\n\n"))
        ;; Document the major mode.
        (let ((mode mode-name))
          (with-current-buffer standard-output
-           (insert mode)
-           (add-text-properties (- (point) (length mode)) (point) '(face bold))))
+            (let ((start (point)))
+              (insert (format-mode-line mode))
+              (add-text-properties start (point) '(face bold)))))
        (princ " mode:\n")
        (princ (documentation major-mode)))
       (print-help-return-message))))
@@ -932,7 +933,7 @@ is currently activated with completion."
 ;;; Automatic resizing of temporary buffers.
 
 (defcustom temp-buffer-max-height (lambda (buffer) (/ (- (frame-height) 2) 2))
-  "*Maximum height of a window displaying a temporary buffer.
+  "Maximum height of a window displaying a temporary buffer.
 This is the maximum height (in text lines) which `resize-temp-buffer-window'
 will give to a window displaying a temporary buffer.
 It can also be a function which will be called with the object corresponding
@@ -971,9 +972,5 @@ out of view."
         (funcall temp-buffer-max-height (current-buffer))
        temp-buffer-max-height))))
 
-;; Provide this for the sake of define-minor-mode which generates
-;; defcustoms which require 'help'.
-(provide 'help)
-
 ;; arch-tag: cf427352-27e9-49b7-9a6f-741ebab02423
 ;;; help.el ends here