Mercurial > emacs
changeset 69125:2d354b7c7fb4
(describe-mode): Pass `mode-name' to format-mode-line.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 23 Feb 2006 16:39:12 +0000 |
| parents | f6b5ed4f7f58 |
| children | 0a4cb581dcfa |
| files | lisp/help.el |
| diffstat | 1 files changed, 4 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help.el Thu Feb 23 16:37:46 2006 +0000 +++ b/lisp/help.el Thu Feb 23 16:39:12 2006 +0000 @@ -835,8 +835,9 @@ ;; 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 @@ ;;; 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 @@ (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