Mercurial > emacs
changeset 79572:a55ab9b627cb
(Info-clone-buffer): Renamed from Info-clone-buffer-hook. Use changed.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 15 Dec 2007 22:34:37 +0000 |
| parents | d08060a6f18a |
| children | d5a339d25938 |
| files | lisp/info.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Sat Dec 15 22:33:43 2007 +0000 +++ b/lisp/info.el Sat Dec 15 22:34:37 2007 +0000 @@ -3467,7 +3467,7 @@ (setq widen-automatically nil) (setq desktop-save-buffer 'Info-desktop-buffer-misc-data) (add-hook 'kill-buffer-hook 'Info-kill-buffer nil t) - (add-hook 'clone-buffer-hook 'Info-clone-buffer-hook nil t) + (add-hook 'clone-buffer-hook 'Info-clone-buffer nil t) (add-hook 'change-major-mode-hook 'font-lock-defontify nil t) (add-hook 'isearch-mode-hook 'Info-isearch-start nil t) (set (make-local-variable 'isearch-search-fun-function) @@ -3488,7 +3488,8 @@ Info-tag-table-buffer (kill-buffer Info-tag-table-buffer))) -(defun Info-clone-buffer-hook () +;; Placed on `clone-buffer-hook'. +(defun Info-clone-buffer () (when (bufferp Info-tag-table-buffer) (setq Info-tag-table-buffer (with-current-buffer Info-tag-table-buffer (clone-buffer))))