# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 825273076 0
# Node ID f77b58df548c914c72f81075982b552e7c583510
# Parent  d9cafe0ebb7deeedaa1794b33e78e85b5b388567
(Info-index): If fail, go back to original node.
(Info-find-node): Make error messages consistent.
(Info-insert-dir): Fix error message.

diff -r d9cafe0ebb7d -r f77b58df548c lisp/info.el
--- a/lisp/info.el	Sun Feb 25 06:59:59 1996 +0000
+++ b/lisp/info.el	Sun Feb 25 18:31:16 1996 +0000
@@ -375,7 +375,7 @@
 			(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 @@
 	  (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 @@
 	    (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))