aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKim F. Storm2006-06-25 22:41:40 +0000
committerKim F. Storm2006-06-25 22:41:40 +0000
commit8c9fc4be24f3a089aa4c101145a72eb63e2e56dc (patch)
tree8063c7696e5c992f9c4abac2395dcdfc05b99c9a
parent02bc285cb8e81a59f2656d24604351fab0d39a75 (diff)
downloademacs-8c9fc4be24f3a089aa4c101145a72eb63e2e56dc.tar.gz
emacs-8c9fc4be24f3a089aa4c101145a72eb63e2e56dc.zip
(view-emacs-news): Declare `res' in the right let* form.
-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))