diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-03-07 04:22:15 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-03-07 04:22:15 +0000 |
| commit | 463f48f40fa24ae74a11785059f18c51f5ed1d51 (patch) | |
| tree | 46e9bc11d7368ba91c892aee51bde3963ea4d6e2 /lisp | |
| parent | 75e86b2eb61f40b482b79b830af9394521a3d428 (diff) | |
| download | emacs-463f48f40fa24ae74a11785059f18c51f5ed1d51.tar.gz emacs-463f48f40fa24ae74a11785059f18c51f5ed1d51.tar.bz2 emacs-463f48f40fa24ae74a11785059f18c51f5ed1d51.zip | |
(Info-forward-node): Properly go to first menu item.
(Info-insert-dir): Bind temp wider, around use.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/info.el | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/lisp/info.el b/lisp/info.el index b3744c8bcd6..b041a3477d0 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -253,21 +253,21 @@ to read a file name from the minibuffer." (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 @@ N is the digit argument used to invoke this command." (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) |