Mercurial > emacs
changeset 80288:dc8ff8d15986
(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.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Thu, 06 Mar 2008 00:07:41 +0000 |
| parents | 5a110218831f |
| children | 29d05c607c9b |
| files | lisp/help.el |
| diffstat | 1 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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