mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(view-emacs-news): Handle prefix arg.

Browse Source
This commit is contained in:
Richard M. Stallman 1998-03-18 01:59:58 +00:00
parent 57ca985523
commit 382d018aa5
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/help.el
View File

@ -416,10 +416,14 @@ of the key sequence that ran this command."
;; run describe-prefix-bindings.
(setq prefix-help-command 'describe-prefix-bindings)
(defun view-emacs-news ()
"Display info on recent changes to Emacs."
(interactive)
(find-file-read-only (expand-file-name "NEWS" data-directory)))
(defun view-emacs-news (&optional arg)
"Display info on recent changes to Emacs.
With numeric argument display information on correspondingly older changes."
(interactive "P")
(let* ((arg (if arg (prefix-numeric-value arg) 0)))
(find-file-read-only
(expand-file-name (concat (make-string arg ?O) "NEWS")
data-directory))))
(defun view-emacs-FAQ ()
"Display the Emacs Frequently Asked Questions (FAQ) file."