diff options
| author | Richard M. Stallman | 1996-12-30 20:44:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-12-30 20:44:24 +0000 |
| commit | 882e61bf0448925ba174cec8eb296904b77ff45d (patch) | |
| tree | 9527c5fe7d612e787e3d7b390feb16d30450e465 | |
| parent | c1148e39cc2fb8614c29a2b21d61885ac3897a26 (diff) | |
| download | emacs-882e61bf0448925ba174cec8eb296904b77ff45d.tar.gz emacs-882e61bf0448925ba174cec8eb296904b77ff45d.zip | |
(Info-find-node): Don't clear Info-index-alternatives.
(Info-index-next): Fix error message.
| -rw-r--r-- | lisp/info.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/info.el b/lisp/info.el index 8dc67100c81..63076dfa93b 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -316,7 +316,6 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself." | |||
| 316 | (setq Info-current-file nil | 316 | (setq Info-current-file nil |
| 317 | Info-current-subfile nil | 317 | Info-current-subfile nil |
| 318 | Info-current-file-completions nil | 318 | Info-current-file-completions nil |
| 319 | Info-index-alternatives nil | ||
| 320 | buffer-file-name nil) | 319 | buffer-file-name nil) |
| 321 | (erase-buffer) | 320 | (erase-buffer) |
| 322 | (if (eq filename t) | 321 | (if (eq filename t) |
| @@ -1388,7 +1387,7 @@ Give a blank topic name to go to the Index node itself." | |||
| 1388 | "Go to the next matching index item from the last `i' command." | 1387 | "Go to the next matching index item from the last `i' command." |
| 1389 | (interactive "p") | 1388 | (interactive "p") |
| 1390 | (or Info-index-alternatives | 1389 | (or Info-index-alternatives |
| 1391 | (error "No previous `i' command in this file")) | 1390 | (error "No previous `i' command")) |
| 1392 | (while (< num 0) | 1391 | (while (< num 0) |
| 1393 | (setq num (+ num (length Info-index-alternatives)))) | 1392 | (setq num (+ num (length Info-index-alternatives)))) |
| 1394 | (while (> num 0) | 1393 | (while (> num 0) |