From 274bcfe0da6a0fcd91088c09b60fa771bb1b591d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 15 Dec 2007 22:34:37 +0000 Subject: [PATCH] (Info-clone-buffer): Renamed from Info-clone-buffer-hook. Use changed. --- lisp/info.el | 5 +++-- 1 file 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)))) -- 2.39.2