procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(view-todo): New function.

Browse source 
(help-map): Bind C-h C-t to view-todo.
(help-for-help): Change the text.
This commit is contained in:
Richard M. Stallman 2002-05-01 16:41:52 +00:00
parent 2255d5b419
commit 1ebc1f01bf
2 changed files with 14 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2002-05-01 Richard M. Stallman <rms@gnu.org>
* help.el (view-todo): New function.
(help-map): Bind C-h C-t to view-todo.
(help-for-help): Change the text.
2002-05-01 Glenn Morris <gmorris@ast.cam.ac.uk>
* progmodes/f90.el: Yet more doc string, commment and whitespace

9
lisp/help.el
View file

@ -58,6 +58,7 @@
(define-key help-map "\C-m" 'view-order-manuals)
(define-key help-map "\C-n" 'view-emacs-news)
(define-key help-map "\C-p" 'describe-project)
(define-key help-map "\C-t" 'view-todo)
(define-key help-map "\C-w" 'describe-no-warranty)
;; This does not fit the pattern, but it is natural given the C-\ command.
@ -173,7 +174,7 @@ If FUNCTION is nil, applies `message' to it, thus printing it."
(defalias 'help 'help-for-help)
(make-help-screen help-for-help
"a b c C e f F C-f i I k C-k l L m p s t v w C-c C-d C-n C-p C-w or ? :"
"a b c C e f F i I k C-k l L m p s t v w C-c C-d C-f C-n C-p C-t C-w or ? :"
"You have typed %THIS-KEY%, the help character. Type a Help option:
\(Use SPC or DEL to scroll through this text. Type \\<help-map>\\[help-quit] to exit the Help command.)
@ -221,6 +222,7 @@ C-f Display the Emacs FAQ.
C-m Display how to order printed Emacs manuals.
C-n Display news of recent Emacs changes.
C-p Display information about the GNU project.
C-t Display the Emacs TODO list.
C-w Display information on absence of warranty for GNU Emacs."
help-map)
@ -319,6 +321,11 @@ With numeric argument, display information on correspondingly older changes."
(view-file (expand-file-name file data-directory))
(error "No such old news"))))
(defun view-todo (&optional arg)
"Display the Emacs TODO list."
(interactive "P")
(view-file (expand-file-name "TODO" data-directory)))
(defun view-echo-area-messages ()
"View the log of recent echo-area messages: the `*Messages*' buffer.
The number of messages retained in that buffer