diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-03-18 01:59:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-03-18 01:59:58 +0000 |
| commit | 311f5811094657930b63c4d867914f1b87fe39cc (patch) | |
| tree | caee28b91cf1f231e0919ab16903ffced8fb378e /lisp/help.el | |
| parent | e8621a3338b6f97ece5dcca87e5bd2bc909dedc7 (diff) | |
| download | emacs-311f5811094657930b63c4d867914f1b87fe39cc.tar.gz | |
(view-emacs-news): Handle prefix arg.
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/help.el b/lisp/help.el index 41f8470fa20..b16adbdd8e2 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -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." |