[Emacs-diffs] Changes to emacs/lisp/help.el

[Richard M. Stallman]

Index: emacs/lisp/help.el
diff -c emacs/lisp/help.el:1.249 emacs/lisp/help.el:1.250
*** emacs/lisp/help.el:1.249    Fri Apr 12 05:40:56 2002
--- emacs/lisp/help.el  Wed May  1 12:40:39 2002
***************
*** 58,63 ****
--- 58,64 ----
  (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,179 ****
  
  (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 ? :"
    "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.)
  
--- 174,180 ----
  
  (defalias 'help 'help-for-help)
  (make-help-screen help-for-help
!   "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,226 ****
--- 222,228 ----
  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)
  
***************
*** 318,323 ****
--- 320,330 ----
      (if file
        (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.