From c9ce1e404884df24ac309aa4d848051853e9c6c3 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Fri, 28 May 2004 20:56:41 +0000 Subject: [PATCH] (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. --- lisp/info.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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)))) -- 2.39.5