Mercurial > emacs

diff lisp/info.el @ 87453:cdd30283527d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--rel--22 Revision: emacs@sv.gnu.org/emacs--devo--0--patch-966
author Miles Bader <miles@gnu.org>
date Fri, 28 Dec 2007 22:26:14 +0000
parents 1915d983e65a a55ab9b627cb
children 107ccd98fa12 56a72e2bd635
line wrap: on
line diff
--- a/lisp/info.el	Fri Dec 28 19:46:56 2007 +0000
+++ b/lisp/info.el	Fri Dec 28 22:26:14 2007 +0000
@@ -3472,7 +3472,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)
@@ -3495,7 +3495,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))))