diff options
| author | Richard M. Stallman <[email protected]> | 1996-02-25 18:31:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1996-02-25 18:31:16 +0000 |
| commit | 81e14cb260ca7e4dc57bfa329ffce274db0d7e94 (patch) | |
| tree | 4d79fe1fbc34abc7afb50ce4fbee460976f0f318 /lisp/info.el | |
| parent | c17d59fcd2ba238f4929755788585f5538190744 (diff) | |
(Info-index): If fail, go back to original node.
(Info-find-node): Make error messages consistent.
(Info-insert-dir): Fix error message.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/info.el b/lisp/info.el index a99463c325..bf55202f50 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -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)) |