# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1085777801 0
# Node ID 954cec4917f68565b8374bee84dc7adf9abacc06
# Parent  97fe0ef6c077aa48168f80da2010dc0cedd3655a
(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.

diff -r 97fe0ef6c077 -r 954cec4917f6 lisp/info.el
--- 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))))