Mercurial > emacs
comparison lisp/help.el @ 91367:c70e45a7acfd
Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-324
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Wed, 30 Jan 2008 07:57:28 +0000 |
| parents | 606f2d163a64 16e347bbe4ce |
| children |
comparison
equal
deleted
inserted
replaced
| 91366:86f3a8f0a3a6 | 91367:c70e45a7acfd |
|---|---|
| 858 (princ "\n(Information about these minor modes follows the major mode info.)\n\n")) | 858 (princ "\n(Information about these minor modes follows the major mode info.)\n\n")) |
| 859 ;; Document the major mode. | 859 ;; Document the major mode. |
| 860 (let ((mode mode-name)) | 860 (let ((mode mode-name)) |
| 861 (with-current-buffer standard-output | 861 (with-current-buffer standard-output |
| 862 (let ((start (point))) | 862 (let ((start (point))) |
| 863 (insert (format-mode-line mode)) | 863 (insert (format-mode-line mode nil nil buffer)) |
| 864 (add-text-properties start (point) '(face bold))))) | 864 (add-text-properties start (point) '(face bold))))) |
| 865 (princ " mode:\n") | 865 (princ " mode:\n") |
| 866 (princ (documentation major-mode)))))) | 866 (princ (documentation major-mode)))))) |
| 867 | 867 |
| 868 | 868 |