diff options
| author | Kim F. Storm <storm@cua.dk> | 2006-06-25 22:41:40 +0000 |
|---|---|---|
| committer | Kim F. Storm <storm@cua.dk> | 2006-06-25 22:41:40 +0000 |
| commit | 8c9fc4be24f3a089aa4c101145a72eb63e2e56dc (patch) | |
| tree | 8063c7696e5c992f9c4abac2395dcdfc05b99c9a /lisp/help.el | |
| parent | 02bc285cb8e81a59f2656d24604351fab0d39a75 (diff) | |
| download | emacs-8c9fc4be24f3a089aa4c101145a72eb63e2e56dc.tar.gz | |
(view-emacs-news): Declare `res' in the right let* form.
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 6 |
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." (directory-files data-directory nil "^NEWS\\.[0-9][-0-9]*$" nil))) (sort (delete-dups res) (lambda (a b) (string< b a))))) - (current (car all-versions)) - res) + (current (car all-versions))) (setq version (completing-read (format "Read NEWS for the version (default %s): " current) all-versions nil nil nil nil current)) @@ -369,7 +368,8 @@ With argument, display info only for the selected version." (file (cond ((>= vn emacs-major-version) "NEWS") ((< vn 18) "NEWS.1-17") - (t (format "NEWS.%d" vn))))) + (t (format "NEWS.%d" vn)))) + res) (view-file (expand-file-name file data-directory)) (widen) (goto-char (point-min)) |