Mercurial > emacs

changeset 15304:d78c3fd6a0ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Info-insert-dir): Fix default directory.
author Karl Heuer <kwzh@gnu.org>
date Thu, 30 May 1996 19:46:24 +0000
parents 85073711a289
children 29ba4949d3d5
files lisp/info.el
diffstat 1 files changed, 4 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Thu May 30 17:12:48 1996 +0000
+++ b/lisp/info.el	Thu May 30 19:46:24 1996 +0000
@@ -464,6 +464,7 @@
 			    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 @@
       (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