# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 890186398 0
# Node ID 2a51a491219983052ecc620a7dbb51f8b025a83a
# Parent  bfb9556f87db4ddc9c5da7e6a2972a53a07f7ba5
(view-emacs-news): Handle prefix arg.

diff -r bfb9556f87db -r 2a51a4912199 lisp/help.el
--- 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."