diff options
| author | Kim F. Storm | 2006-06-25 22:41:40 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2006-06-25 22:41:40 +0000 |
| commit | 8c9fc4be24f3a089aa4c101145a72eb63e2e56dc (patch) | |
| tree | 8063c7696e5c992f9c4abac2395dcdfc05b99c9a | |
| parent | 02bc285cb8e81a59f2656d24604351fab0d39a75 (diff) | |
| download | emacs-8c9fc4be24f3a089aa4c101145a72eb63e2e56dc.tar.gz emacs-8c9fc4be24f3a089aa4c101145a72eb63e2e56dc.zip | |
(view-emacs-news): Declare `res' in the right let* form.
| -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." | |||
| 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)) |