/[emacs]/emacs/lisp/info.el
ViewVC logotype

Diff of /emacs/lisp/info.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.396 by jurta, Tue May 25 20:59:31 2004 UTC revision 1.397 by jurta, Fri May 28 20:56:41 2004 UTC
# Line 3871  BUFFER is the buffer speedbar is request Line 3871  BUFFER is the buffer speedbar is request
3871    
3872  (defun Info-desktop-buffer-misc-data (desktop-dirname)  (defun Info-desktop-buffer-misc-data (desktop-dirname)
3873    "Auxiliary information to be saved in desktop file."    "Auxiliary information to be saved in desktop file."
3874    (list Info-current-file Info-current-node))    (if (not (member Info-current-file '("apropos" "history" "toc")))
3875          (list Info-current-file Info-current-node)))
3876    
3877  ;;;###autoload  ;;;###autoload
3878  (defun Info-restore-desktop-buffer (desktop-buffer-file-name  (defun Info-restore-desktop-buffer (desktop-buffer-file-name
# Line 3881  BUFFER is the buffer speedbar is request Line 3882  BUFFER is the buffer speedbar is request
3882    (let ((first (nth 0 desktop-buffer-misc))    (let ((first (nth 0 desktop-buffer-misc))
3883          (second (nth 1 desktop-buffer-misc)))          (second (nth 1 desktop-buffer-misc)))
3884    (when (and first second)    (when (and first second)
3885        (when desktop-buffer-name
3886          (set-buffer (get-buffer-create desktop-buffer-name))
3887          (Info-mode))
3888      (Info-find-node first second)      (Info-find-node first second)
3889      (current-buffer))))      (current-buffer))))
3890    

Legend:
Removed from v.1.396  
changed lines
  Added in v.1.397

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26