aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorLars Hansen2005-08-10 19:39:51 +0000
committerLars Hansen2005-08-10 19:39:51 +0000
commit80123c9ecb77b6ccea11aee9ecfb84e42efc00cc (patch)
tree0d2e17413db81da202e1ec9238b7a8817a5b0fb1
parentabe5c13aa02424137dff1980a49b0e9273e59332 (diff)
downloademacs-80123c9ecb77b6ccea11aee9ecfb84e42efc00cc.tar.gz
emacs-80123c9ecb77b6ccea11aee9ecfb84e42efc00cc.zip
Add handler to desktop-buffer-mode-handlers.
(Info-restore-desktop-buffer): Remove autoload cookie. (Info-mode): Add autoload cookie.
-rw-r--r--lisp/info.el6
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/info.el b/lisp/info.el
index 2d03190b606..462c2767855 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -3255,6 +3255,8 @@ With a zero prefix arg, put the name inside a function call to `info'."
3255 3255
3256(defvar tool-bar-map) 3256(defvar tool-bar-map)
3257 3257
3258;; Autoload cookie needed by desktop.el
3259;;;###autoload
3258(defun Info-mode () 3260(defun Info-mode ()
3259 "Info mode provides commands for browsing through the Info documentation tree. 3261 "Info mode provides commands for browsing through the Info documentation tree.
3260Documentation in Info is divided into \"nodes\", each of which discusses 3262Documentation in Info is divided into \"nodes\", each of which discusses
@@ -4179,7 +4181,6 @@ BUFFER is the buffer speedbar is requesting buttons for."
4179 (if (not (member Info-current-file '("apropos" "history" "toc"))) 4181 (if (not (member Info-current-file '("apropos" "history" "toc")))
4180 (list Info-current-file Info-current-node))) 4182 (list Info-current-file Info-current-node)))
4181 4183
4182;;;###autoload
4183(defun Info-restore-desktop-buffer (desktop-buffer-file-name 4184(defun Info-restore-desktop-buffer (desktop-buffer-file-name
4184 desktop-buffer-name 4185 desktop-buffer-name
4185 desktop-buffer-misc) 4186 desktop-buffer-misc)
@@ -4193,6 +4194,9 @@ BUFFER is the buffer speedbar is requesting buttons for."
4193 (Info-find-node first second) 4194 (Info-find-node first second)
4194 (current-buffer)))) 4195 (current-buffer))))
4195 4196
4197(add-to-list 'desktop-buffer-mode-handlers
4198 '(Info-mode . Info-restore-desktop-buffer))
4199
4196(provide 'info) 4200(provide 'info)
4197 4201
4198;; arch-tag: f2480fe2-2139-40c1-a49b-6314991164ac 4202;; arch-tag: f2480fe2-2139-40c1-a49b-6314991164ac