Commit 8c9fc4be authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(view-emacs-news): Declare `res' in the right let* form.

parent 02bc285c
...@@ -346,8 +346,7 @@ With argument, display info only for the selected version." ...@@ -346,8 +346,7 @@ With argument, display info only for the selected version."
(directory-files data-directory nil (directory-files data-directory nil
"^NEWS\\.[0-9][-0-9]*$" nil))) "^NEWS\\.[0-9][-0-9]*$" nil)))
(sort (delete-dups res) (lambda (a b) (string< b a))))) (sort (delete-dups res) (lambda (a b) (string< b a)))))
(current (car all-versions)) (current (car all-versions)))
res)
(setq version (completing-read (setq version (completing-read
(format "Read NEWS for the version (default %s): " current) (format "Read NEWS for the version (default %s): " current)
all-versions nil nil nil nil current)) all-versions nil nil nil nil current))
...@@ -369,7 +368,8 @@ With argument, display info only for the selected version." ...@@ -369,7 +368,8 @@ With argument, display info only for the selected version."
(file (cond (file (cond
((>= vn emacs-major-version) "NEWS") ((>= vn emacs-major-version) "NEWS")
((< vn 18) "NEWS.1-17") ((< vn 18) "NEWS.1-17")
(t (format "NEWS.%d" vn))))) (t (format "NEWS.%d" vn))))
res)
(view-file (expand-file-name file data-directory)) (view-file (expand-file-name file data-directory))
(widen) (widen)
(goto-char (point-min)) (goto-char (point-min))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment