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

(clone-indirect-buffer): Run it.

diff --git a/etc/NEWS b/etc/NEWS
index e5cce90f0eb6f9e171c06fcb15bf5899620fcd9e..f54c35e60fed2feb56e2030e9b8414936d77f093 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -482,6 +482,7 @@ Use `(format-mode-line mode-name)' to ensure a string value.
 \f
 * 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 2322e6b751377718affa49843806329177207e28..ef3753661892a311d47b0bf123a691fedb88089d 100644 (file)
--- 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 85f8f675e16a3c8754793d9b4d3f24f1268aa6b3..e838731c1bef149ea22b215e55d35b2a267dfb67 100644 (file)
--- 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))