(view-todo): New function.

(help-map): Bind C-h C-t to view-todo.
(help-for-help): Change the text.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 164b226aeb8d54379304373ec9938ff56b718852..c821b41f6312226240e3c25a2f7e6d6a782ee621 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/help.el b/lisp/help.el
index d47504526d638ae113590312c1cd2b58387bf73a..78280f55f5e208ad4ad0c69ec604eb272dc4a1c3 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -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