diff options
| author | Lars Hansen | 2005-08-10 19:39:51 +0000 |
|---|---|---|
| committer | Lars Hansen | 2005-08-10 19:39:51 +0000 |
| commit | 80123c9ecb77b6ccea11aee9ecfb84e42efc00cc (patch) | |
| tree | 0d2e17413db81da202e1ec9238b7a8817a5b0fb1 | |
| parent | abe5c13aa02424137dff1980a49b0e9273e59332 (diff) | |
| download | emacs-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.el | 6 |
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. |
| 3260 | Documentation in Info is divided into \"nodes\", each of which discusses | 3262 | Documentation 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 |