mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-03 08:30:09 +00:00
Code Issues Releases Activity

(Info-desktop-buffer-misc-data): Don't save information

Browse Source 
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.
This commit is contained in:
Juri Linkov 2004-05-28 20:56:41 +00:00
parent 4ce0541e44
commit c9ce1e4048
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/info.el
View File

@ -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))))