Commit 4e44f5ce authored by Kim F. Storm's avatar Kim F. Storm

(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.
parent cc0e97a4
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment