# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1204762061 0
# Node ID dc8ff8d159868d33638701772e10c64dec522a0e
# Parent  5a110218831f690ab62518571c4c60b066f3a05d
(view-emacs-todo): Rename from view-todo. Change users.
(describe-gnu-project): Rename from describe-project. Change users.
Define obsolete function aliases for the old names.

diff -r 5a110218831f -r dc8ff8d15986 lisp/help.el
--- a/lisp/help.el	Thu Mar 06 00:07:15 2008 +0000
+++ b/lisp/help.el	Thu Mar 06 00:07:41 2008 +0000
@@ -53,8 +53,8 @@
     (define-key map "\C-f" 'view-emacs-FAQ)
     (define-key map "\C-m" 'view-order-manuals)
     (define-key map "\C-n" 'view-emacs-news)
-    (define-key map "\C-p" 'describe-project)
-    (define-key map "\C-t" 'view-todo)
+    (define-key map "\C-p" 'describe-gnu-project)
+    (define-key map "\C-t" 'view-emacs-todo)
     (define-key map "\C-w" 'describe-no-warranty)
 
     ;; This does not fit the pattern, but it is natural given the C-\ command.
@@ -292,12 +292,14 @@
   (view-file (expand-file-name "COPYING" data-directory))
   (goto-char (point-min)))
 
-(defun describe-project ()
+(defun describe-gnu-project ()
   "Display info on the GNU project."
   (interactive)
   (view-file (expand-file-name "THE-GNU-PROJECT" data-directory))
   (goto-char (point-min)))
 
+(define-obsolete-function-alias 'describe-project 'describe-gnu-project "22.2")
+
 (defun describe-no-warranty ()
   "Display info on all the kinds of warranty Emacs does NOT have."
   (interactive)
@@ -396,11 +398,14 @@
 	   (point)))))))
 
 
-(defun view-todo (&optional arg)
+(defun view-emacs-todo (&optional arg)
   "Display the Emacs TODO list."
   (interactive "P")
   (view-file (expand-file-name "TODO" data-directory)))
 
+(define-obsolete-function-alias 'view-todo 'view-emacs-todo "22.2")
+
+
 (defun view-echo-area-messages ()
   "View the log of recent echo-area messages: the `*Messages*' buffer.
 The number of messages retained in that buffer