# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 851978664 0
# Node ID 3663fc0c203639d1c2fd0fe216ffd0232d2ae6d8
# Parent  85b1a10101ff71a372f9c5b0705cc20f6e91e454
(Info-find-node): Don't clear Info-index-alternatives.
(Info-index-next): Fix error message.

diff -r 85b1a10101ff -r 3663fc0c2036 lisp/info.el
--- a/lisp/info.el	Mon Dec 30 20:40:27 1996 +0000
+++ b/lisp/info.el	Mon Dec 30 20:44:24 1996 +0000
@@ -316,7 +316,6 @@
 	      (setq Info-current-file nil
 		    Info-current-subfile nil
 		    Info-current-file-completions nil
-		    Info-index-alternatives nil
 		    buffer-file-name nil)
 	      (erase-buffer)
 	      (if (eq filename t)
@@ -1388,7 +1387,7 @@
   "Go to the next matching index item from the last `i' command."
   (interactive "p")
   (or Info-index-alternatives
-      (error "No previous `i' command in this file"))
+      (error "No previous `i' command"))
   (while (< num 0)
     (setq num (+ num (length Info-index-alternatives))))
   (while (> num 0)