diff options
| author | Miles Bader <[email protected]> | 2007-12-29 02:39:17 +0000 |
|---|---|---|
| committer | Miles Bader <[email protected]> | 2007-12-29 02:39:17 +0000 |
| commit | a0c92ed92d3d62d4926dafb1d595d87843df4688 (patch) | |
| tree | 78f12dd6f97a0f96b846fbf08e3f8ce39a701f8e /lisp/info.el | |
| parent | 9aeb99f00a02c695b14f2ee349141eb9641ca6da (diff) | |
| parent | 870356897e927f380841268667a92b40fb9e6782 (diff) | |
Merge from emacs--devo--0
Revision: [email protected]/emacs--unicode--0--patch-306
Diffstat (limited to 'lisp/info.el')
| -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 a9a81b9aaf..15e448d8cc 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -3472,7 +3472,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) @@ -3495,7 +3495,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)))) |