Mercurial > emacs
changeset 2036:a71101e5abff
(Info-forward-node): Properly go to first menu item.
(Info-insert-dir): Bind temp wider, around use.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 07 Mar 1993 04:22:15 +0000 |
| parents | d59e199d4f6f |
| children | 4a4e8a4552f9 |
| files | lisp/info.el |
| diffstat | 1 files changed, 16 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Sun Mar 07 04:22:00 1993 +0000 +++ b/lisp/info.el Sun Mar 07 04:22:15 1993 +0000 @@ -253,21 +253,21 @@ (while dirs ;; Try several variants of specified name. ;; Try upcasing, appending `.info', or both. - (let (temp - (buffer - (cond - ((progn (setq temp (expand-file-name "DIR" (car dirs))) - (file-exists-p temp)) - (find-file-noselect temp)) - ((progn (setq temp (expand-file-name "dir" (car dirs))) - (file-exists-p temp)) - (find-file-noselect temp)) - ((progn (setq temp (expand-file-name "DIR.INFO" (car dirs))) - (file-exists-p temp)) - (find-file-noselect temp)) - ((progn (setq temp (expand-file-name "dir.info" (car dirs))) - (file-exists-p temp)) - (find-file-noselect temp))))) + (let* (temp + (buffer + (cond + ((progn (setq temp (expand-file-name "DIR" (car dirs))) + (file-exists-p temp)) + (find-file-noselect temp)) + ((progn (setq temp (expand-file-name "dir" (car dirs))) + (file-exists-p temp)) + (find-file-noselect temp)) + ((progn (setq temp (expand-file-name "DIR.INFO" (car dirs))) + (file-exists-p temp)) + (find-file-noselect temp)) + ((progn (setq temp (expand-file-name "dir.info" (car dirs))) + (file-exists-p temp)) + (find-file-noselect temp))))) (if buffer (setq buffers (cons buffer buffers))) (setq dirs (cdr dirs)))) @@ -776,7 +776,7 @@ (cond ((and (not not-down) (save-excursion (search-forward "\n* menu:" nil t)) (not (string-match "\\<index\\>" Info-current-node))) - (Info-first-menu-item) + (Info-goto-node (Info-extract-menu-counting 1)) t) ((save-excursion (search-backward "next:" nil t)) (Info-next)