Skip to content

GitLab

Commit 463f48f4 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Info-forward-node): Properly go to first menu item. 

(Info-insert-dir): Bind temp wider, around use.
parent 75e86b2e
Hide whitespace changes
Inline Side-by-side
Showing with 16 additions and 16 deletions
lisp/info.el
View file @ 463f48f4
......@@ -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)
......
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