diff options
| author | Karl Heuer <[email protected]> | 1996-05-30 19:46:24 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1996-05-30 19:46:24 +0000 |
| commit | debcea0c5c7ce35c22e067301fa1d6c2c1453708 (patch) | |
| tree | e05ed19fca7fbb7432eeae71927a33235958d2dd /lisp/info.el | |
| parent | 310c9f40fd5828fdbbe33c775809fab3e8779106 (diff) | |
(Info-insert-dir): Fix default directory.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/info.el b/lisp/info.el index ec783d1eac..1e6e0dd472 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -464,6 +464,7 @@ In standalone mode, \\<Info-mode-map>\\[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-mode-map>\\[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 |