procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Info-index): If fail, go back to original node.

Browse source 
(Info-find-node): Make error messages consistent.
(Info-insert-dir): Fix error message.
This commit is contained in:
Richard M. Stallman 1996-02-25 18:31:16 +00:00
parent c17d59fcd2
commit 81e14cb260
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/info.el
View file

@ -375,7 +375,7 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
(if (not (eq (current-buffer) (get-buffer "*info*")))
(setq guesspos
(Info-read-subfile guesspos))))
(error "No such node: `%s'" nodename))))
(error "No such node: %s" nodename))))
(goto-char (max (point-min) (- guesspos 1000)))
;; Now search from our advised position (or from beg of buffer)
;; to find the actual node.
@ -466,7 +466,7 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
(setq dirs (cdr dirs))))
(or buffers
(error "Can't find the info directory node"))
(error "Can't find the Info directory node"))
;; Distinguish the dir file that comes with Emacs from all the
;; others. Yes, that is really what this is supposed to do.
;; If it doesn't work, fix it.
@ -1328,7 +1328,7 @@ Give a blank topic name to go to the Index node itself."
(Info-goto-node node))
(or matches
(progn
(Info-last)
(Info-goto-node orignode)
(error "No `%s' in index" topic)))
;; Here it is a feature that assoc is case-sensitive.
(while (setq found (assoc topic matches))