diff options
| author | Richard M. Stallman | 1998-03-18 01:59:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-03-18 01:59:58 +0000 |
| commit | 382d018aa595a7ce3fd2c4bee294299c2411e4b6 (patch) | |
| tree | 93e91973af2a360c7013025565d9fc75366b1e2d | |
| parent | 57ca985523e398e8b7f3f2f125eda29552e2356f (diff) | |
| download | emacs-382d018aa595a7ce3fd2c4bee294299c2411e4b6.tar.gz emacs-382d018aa595a7ce3fd2c4bee294299c2411e4b6.zip | |
(view-emacs-news): Handle prefix arg.
| -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." | |||
| 416 | ;; run describe-prefix-bindings. | 416 | ;; run describe-prefix-bindings. |
| 417 | (setq prefix-help-command 'describe-prefix-bindings) | 417 | (setq prefix-help-command 'describe-prefix-bindings) |
| 418 | 418 | ||
| 419 | (defun view-emacs-news () | 419 | (defun view-emacs-news (&optional arg) |
| 420 | "Display info on recent changes to Emacs." | 420 | "Display info on recent changes to Emacs. |
| 421 | (interactive) | 421 | With numeric argument display information on correspondingly older changes." |
| 422 | (find-file-read-only (expand-file-name "NEWS" data-directory))) | 422 | (interactive "P") |
| 423 | (let* ((arg (if arg (prefix-numeric-value arg) 0))) | ||
| 424 | (find-file-read-only | ||
| 425 | (expand-file-name (concat (make-string arg ?O) "NEWS") | ||
| 426 | data-directory)))) | ||
| 423 | 427 | ||
| 424 | (defun view-emacs-FAQ () | 428 | (defun view-emacs-FAQ () |
| 425 | "Display the Emacs Frequently Asked Questions (FAQ) file." | 429 | "Display the Emacs Frequently Asked Questions (FAQ) file." |