From debcea0c5c7ce35c22e067301fa1d6c2c1453708 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 30 May 1996 19:46:24 +0000 Subject: [PATCH] (Info-insert-dir): Fix default directory. --- lisp/info.el | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/lisp/info.el b/lisp/info.el index ec783d1eacf..1e6e0dd472c 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -464,6 +464,7 @@ In standalone mode, \\\\[Info-exit] exits Emacs itself." Info-dir-file-attributes (cons (cons file attrs) Info-dir-file-attributes)))))) + (or (cdr dirs) (setq Info-dir-contents-directory (car dirs))) (setq dirs (cdr dirs)))) (or buffers @@ -474,13 +475,10 @@ In standalone mode, \\\\[Info-exit] exits Emacs itself." (setq buffer (car buffers) others (cdr buffers)) - ;; Insert the entire original dir file as a start; use its - ;; default directory as the default directory for the whole - ;; concatenation. + ;; Insert the entire original dir file as a start; note that we've + ;; already saved its default directory to use as the default + ;; directory for the whole concatenation. (insert-buffer buffer) - (setq Info-dir-contents-directory (save-excursion - (set-buffer buffer) - default-directory)) ;; Look at each of the other buffers one by one. (while others -- 2.39.2