Mercurial > emacs
changeset 21210:2a51a4912199
(view-emacs-news): Handle prefix arg.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 18 Mar 1998 01:59:58 +0000 |
| parents | bfb9556f87db |
| children | 293254dae80a |
| files | lisp/help.el |
| diffstat | 1 files changed, 8 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help.el Wed Mar 18 01:52:57 1998 +0000 +++ b/lisp/help.el Wed Mar 18 01:59:58 1998 +0000 @@ -416,10 +416,14 @@ ;; 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."