Mercurial > emacs
changeset 14664:f77b58df548c
(Info-index): If fail, go back to original node.
(Info-find-node): Make error messages consistent.
(Info-insert-dir): Fix error message.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 25 Feb 1996 18:31:16 +0000 |
| parents | d9cafe0ebb7d |
| children | 7a50843d260f |
| files | lisp/info.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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))