diff options
author | Juri Linkov <juri@jurta.org> | 2004-05-28 20:56:41 +0000 |
---|---|---|
committer | Juri Linkov <juri@jurta.org> | 2004-05-28 20:56:41 +0000 |
commit | c9ce1e404884df24ac309aa4d848051853e9c6c3 (patch) | |
tree | 58e2643053059d644deab2c4fc7c20831cd51474 /lisp/info.el | |
parent | 4ce0541e4409ccc8b50303c19d28d61193aa107d (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.el | 6 |
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)))) |