(Info-clone-buffer): Renamed from Info-clone-buffer-hook. Use changed.

274bcfe0 · Richard M. Stallman · d4a629de · 274bcfe0
Commit 274bcfe0 authored Dec 15, 2007 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

lisp/info.el lisp/info.el +3 -2

No files found.
--- 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))))