(clone-indirect-buffer-hook): New hook.

(clone-indirect-buffer): Run it.

3 files changed, 13 insertions, 2 deletions

diff --git a/etc/NEWS b/etc/NEWS
index e5cce90f0eb..f54c35e60fe 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -482,6 +482,7 @@ Use `(format-mode-line mode-name)' to ensure a string value.
 
 * Lisp Changes in Emacs 23.1
 
+** clone-indirect-buffer now runs the clone-indirect-buffer-hook.
 ** `beginning-of-defun-function' now takes one argument, the count
    given to `beginning-of-defun'.
 
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2322e6b7513..ef375366189 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-02-12  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * simple.el (clone-indirect-buffer-hook): New hook.
+        (clone-indirect-buffer): Run it.
+
 2008-02-11  Daiki Ueno  <ueno@unixuser.org>
 
         * epa.el (epa-menu-mode): Merge into epa-mode.
@@ -5,8 +10,8 @@
         "Encryption/Decryption".
 
         * epa-dired.el: Define a new minor-mode epa-dired-mode for dired.
-        (epa-dired-mode-map): Renamed from epa-dired-map.
-        (epa-global-dired-mode): Renamed the global minor mode.
+        (epa-dired-mode-map): Rename from epa-dired-map.
+        (epa-global-dired-mode): Rename the global minor mode.
 
 2008-02-11 Drew Adams  <drew.adams@oracle.com>
 
diff --git a/lisp/simple.el b/lisp/simple.el
index 85f8f675e16..e838731c1be 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -5547,6 +5547,9 @@ PREFIX is the string that represents this modifier in an event type symbol."
 (defvar clone-buffer-hook nil
   "Normal hook to run in the new buffer at the end of `clone-buffer'.")
 
+(defvar clone-indirect-buffer-hook nil
+  "Normal hook to run in the new buffer at the end of `clone-indirect-buffer'.")
+
 (defun clone-process (process &optional newname)
   "Create a twin copy of PROCESS.
 If NEWNAME is nil, it defaults to PROCESS' name;
@@ -5692,6 +5695,8 @@ front of the list of recently selected ones."
       (setq newname (substring newname 0 (match-beginning 0))))
   (let* ((name (generate-new-buffer-name newname))
          (buffer (make-indirect-buffer (current-buffer) name t)))
+    (with-current-buffer buffer
+      (run-hooks 'clone-indirect-buffer-hook))
     (when display-flag
       (pop-to-buffer buffer norecord))
     buffer))