From 81e14cb260ca7e4dc57bfa329ffce274db0d7e94 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 25 Feb 1996 18:31:16 +0000 Subject: [PATCH] (Info-index): If fail, go back to original node. (Info-find-node): Make error messages consistent. (Info-insert-dir): Fix error message. --- lisp/info.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/info.el b/lisp/info.el index a99463c3254..bf55202f501 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -375,7 +375,7 @@ In standalone mode, \\\\[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-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))