aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/help.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/help.el b/lisp/help.el
index 0caf018c2e9..4d92f69cebd 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -346,8 +346,7 @@ With argument, display info only for the selected version."
346 (directory-files data-directory nil 346 (directory-files data-directory nil
347 "^NEWS\\.[0-9][-0-9]*$" nil))) 347 "^NEWS\\.[0-9][-0-9]*$" nil)))
348 (sort (delete-dups res) (lambda (a b) (string< b a))))) 348 (sort (delete-dups res) (lambda (a b) (string< b a)))))
349 (current (car all-versions)) 349 (current (car all-versions)))
350 res)
351 (setq version (completing-read 350 (setq version (completing-read
352 (format "Read NEWS for the version (default %s): " current) 351 (format "Read NEWS for the version (default %s): " current)
353 all-versions nil nil nil nil current)) 352 all-versions nil nil nil nil current))
@@ -369,7 +368,8 @@ With argument, display info only for the selected version."
369 (file (cond 368 (file (cond
370 ((>= vn emacs-major-version) "NEWS") 369 ((>= vn emacs-major-version) "NEWS")
371 ((< vn 18) "NEWS.1-17") 370 ((< vn 18) "NEWS.1-17")
372 (t (format "NEWS.%d" vn))))) 371 (t (format "NEWS.%d" vn))))
372 res)
373 (view-file (expand-file-name file data-directory)) 373 (view-file (expand-file-name file data-directory))
374 (widen) 374 (widen)
375 (goto-char (point-min)) 375 (goto-char (point-min))