mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(view-emacs-todo): Rename from view-todo. Change users.

Browse source 
(describe-gnu-project): Rename from describe-project. Change users.
Define obsolete function aliases for the old names.
This commit is contained in:
Kim F. Storm 2008-03-06 00:07:41 +00:00
parent cc0e97a4bf
commit 4e44f5ceeb
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/help.el
View file

@ -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 @@ If that doesn't give a function, return nil."
(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 @@ With argument, display info only for the selected version."
(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