[Emacs-diffs] Changes to emacs/lisp/info.el

[Juri Linkov]

Index: emacs/lisp/info.el
diff -c emacs/lisp/info.el:1.396 emacs/lisp/info.el:1.397
*** emacs/lisp/info.el:1.396    Tue May 25 20:59:31 2004
--- emacs/lisp/info.el  Fri May 28 20:56:41 2004
***************
*** 3871,3877 ****
  
  (defun Info-desktop-buffer-misc-data (desktop-dirname)
    "Auxiliary information to be saved in desktop file."
!   (list Info-current-file Info-current-node))
  
  ;;;###autoload
  (defun Info-restore-desktop-buffer (desktop-buffer-file-name
--- 3871,3878 ----
  
  (defun Info-desktop-buffer-misc-data (desktop-dirname)
    "Auxiliary information to be saved in desktop file."
!   (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,3886 ****
--- 3882,3890 ----
    (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))))