From 382d018aa595a7ce3fd2c4bee294299c2411e4b6 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 18 Mar 1998 01:59:58 +0000 Subject: [PATCH] (view-emacs-news): Handle prefix arg. --- lisp/help.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/help.el b/lisp/help.el index 41f8470fa2..b16adbdd8e 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -416,10 +416,14 @@ of the key sequence that ran this command." ;; 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." -- 2.39.2