diff options
| author | Richard M. Stallman <rms@gnu.org> | 2007-12-15 22:34:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2007-12-15 22:34:37 +0000 |
| commit | 274bcfe0da6a0fcd91088c09b60fa771bb1b591d (patch) | |
| tree | e87937d14088db1172bd830226bf5e306f16e096 /lisp | |
| parent | d4a629de23fa30fabaa3a5d74b909dffb5a8f590 (diff) | |
| download | emacs-274bcfe0da6a0fcd91088c09b60fa771bb1b591d.tar.gz | |
(Info-clone-buffer): Renamed from Info-clone-buffer-hook. Use changed.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/info.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/info.el b/lisp/info.el index 07bce5bd487..fb652af1ead 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -3467,7 +3467,7 @@ Advanced commands: (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 @@ Advanced commands: 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)))) |