From f0753a5f45466cf891aae79dabe1df33ca1530fb Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 17 Aug 2000 15:36:54 +0000 Subject: [PATCH] (view-emacs-news): Rewritten for new naming scheme for old NEWS files. --- lisp/help.el | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) diff --git a/lisp/help.el b/lisp/help.el index c9c816bbc6..abb59fc0b1 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." -- 2.39.2