changeset 55797:954cec4917f6

(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.
author Juri Linkov <juri@jurta.org>
date Fri, 28 May 2004 20:56:41 +0000
parents 97fe0ef6c077
children a1bb695e9a0c
files lisp/info.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/info.el	Fri May 28 20:54:39 2004 +0000
+++ b/lisp/info.el	Fri May 28 20:56:41 2004 +0000
@@ -3871,7 +3871,8 @@
 
 (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 @@
   (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))))