Mercurial > emacs
changeset 6716:9ce2d1a2c155
(Info-find-node): Don't try to backstep if no history.
(Info-insert-dir): Print sensible error message if no dir node.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 07 Apr 1994 03:11:50 +0000 |
| parents | 3864d274a56c |
| children | 2121bf252398 |
| files | lisp/info.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Thu Apr 07 02:46:12 1994 +0000 +++ b/lisp/info.el Thu Apr 07 03:11:50 1994 +0000 @@ -304,7 +304,7 @@ (Info-select-node))) ;; If we did not finish finding the specified node, ;; go back to the previous one. - (or Info-current-node no-going-back + (or Info-current-node no-going-back (null Info-history) (let ((hist (car Info-history))) (setq Info-history (cdr Info-history)) (Info-find-node (nth 0 hist) (nth 1 hist) t) @@ -373,6 +373,8 @@ Info-dir-file-attributes)))))) (setq dirs (cdr dirs))) + (or buffers + (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.