diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 9 | ||||
| -rw-r--r-- | lisp/simple.el | 5 |
2 files changed, 12 insertions, 2 deletions
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)) |