From 4e6d317052ad617bd403077d391d4c86ba3aee07 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 23 Feb 2006 16:39:24 +0000 Subject: [PATCH] (describe-mode): Pass `mode-name' to format-mode-line. --- lisp/ChangeLog | 22 +++++++++++++--------- lisp/help.el | 11 ++++------- 2 files changed, 17 insertions(+), 16 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 601f4928a13..23c90421b89 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2006-02-23 Stefan Monnier + + * help.el (describe-mode): Pass `mode-name' to format-mode-line. + 2006-02-23 Juanma Barranquero * 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 @@ -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 - * 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 diff --git a/lisp/help.el b/lisp/help.el index f74293b8dd6..14de292dd13 100644 --- 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 -- 2.39.2