From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 17 Aug 2000 15:36:54 +0000 (+0000)
Subject: (view-emacs-news): Rewritten for new naming scheme
X-Git-Tag: emacs-pretest-21.0.90~2204
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f0753a5f45466cf891aae79dabe1df33ca1530fb;p=emacs.git

(view-emacs-news): Rewritten for new naming scheme
for old NEWS files.
---

diff --git a/lisp/help.el b/lisp/help.el
index c9c816bbc65..abb59fc0b16 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -436,12 +436,19 @@ of the key sequence that ran this command."
 
 (defun view-emacs-news (&optional arg)
   "Display info on recent changes to Emacs.
-With numeric argument display information on correspondingly older changes."
+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))))
+  (let* ((arg (if arg (prefix-numeric-value arg) 0))
+	 (file (cond ((eq arg 0) "NEWS")
+		     ((eq arg 1) "ONEWS")
+		     (t
+		      (nth (- arg 2)
+			   (nreverse (directory-files data-directory
+						      nil "^NEWS\\.[0-9]+$"
+						      nil)))))))
+    (if file
+	(find-file-read-only (expand-file-name file data-directory))
+      (error "No such old news"))))
 
 (defun view-emacs-FAQ ()
   "Display the Emacs Frequently Asked Questions (FAQ) file."