summaryrefslogtreecommitdiff
path: root/lisp/info.el
diff options
context:
space:
mode:
authorJuri Linkov <juri@jurta.org>2004-05-28 20:56:41 +0000
committerJuri Linkov <juri@jurta.org>2004-05-28 20:56:41 +0000
commitc9ce1e404884df24ac309aa4d848051853e9c6c3 (patch)
tree58e2643053059d644deab2c4fc7c20831cd51474 /lisp/info.el
parent4ce0541e4409ccc8b50303c19d28d61193aa107d (diff)
(Info-desktop-buffer-misc-data): Don't save information
about virtual files. (Info-restore-desktop-buffer): Restore Info buffers in prepared buffers with names obtained from the desktop file instead of the default *info* buffer.
Diffstat (limited to 'lisp/info.el')
-rw-r--r--lisp/info.el6
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/info.el b/lisp/info.el
index 84ee6ac5e79..14183383743 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -3871,7 +3871,8 @@ BUFFER is the buffer speedbar is requesting buttons for."
(defun Info-desktop-buffer-misc-data (desktop-dirname)
"Auxiliary information to be saved in desktop file."
- (list Info-current-file Info-current-node))
+ (if (not (member Info-current-file '("apropos" "history" "toc")))
+ (list Info-current-file Info-current-node)))
;;;###autoload
(defun Info-restore-desktop-buffer (desktop-buffer-file-name
@@ -3881,6 +3882,9 @@ BUFFER is the buffer speedbar is requesting buttons for."
(let ((first (nth 0 desktop-buffer-misc))
(second (nth 1 desktop-buffer-misc)))
(when (and first second)
+ (when desktop-buffer-name
+ (set-buffer (get-buffer-create desktop-buffer-name))
+ (Info-mode))
(Info-find-node first second)
(current-buffer))))