diff options
| author | Michael Kifer <kifer@cs.stonybrook.edu> | 1996-12-28 02:53:04 +0000 |
|---|---|---|
| committer | Michael Kifer <kifer@cs.stonybrook.edu> | 1996-12-28 02:53:04 +0000 |
| commit | bf5d92c5e3c9eccf0adbf150c70bc4e656c7aa01 (patch) | |
| tree | 710e2d34c85a2982384a996efb2ccffb6d523843 /lisp/ediff-mult.el | |
| parent | 469b44cbf1916dc9502d4356e8fce0081809f585 (diff) | |
| download | emacs-bf5d92c5e3c9eccf0adbf150c70bc4e656c7aa01.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/ediff-mult.el')
| -rw-r--r-- | lisp/ediff-mult.el | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/lisp/ediff-mult.el b/lisp/ediff-mult.el index 2a88f9dc036..2920e250e86 100644 --- a/lisp/ediff-mult.el +++ b/lisp/ediff-mult.el @@ -161,6 +161,11 @@ ediff-directories, is run.") "*Hooks run just after the registry buffer is shown.") (defvar ediff-show-session-group-hook nil "*Hooks run just after a session group buffer is shown.") +(defvar ediff-meta-buffer-keymap-setup-hook nil + "*Hooks run just after setting up the ediff-meta-buffer-map. +This keymap controls key bindings in the meta buffer and is a local variable. +This means that you can set different bindings for different kinds of meta +buffers.") ;; buffer holding the multi-file patch. local to the meta buffer (ediff-defvar-local ediff-meta-patchbufer nil "") @@ -230,7 +235,9 @@ ediff-directories, is run.") (define-key ediff-meta-buffer-map [mouse-2] ediff-meta-action-function) (define-key ediff-meta-buffer-map [button2] ediff-meta-action-function)) - (use-local-map ediff-meta-buffer-map)) + (use-local-map ediff-meta-buffer-map) + ;; modify ediff-meta-buffer-map here + (run-hooks 'ediff-meta-buffer-keymap-setup-hook)) (defun ediff-meta-mode () "This mode controls all operations on Ediff session groups. @@ -1275,6 +1282,7 @@ all marked sessions must be active." (setq ediff-merge-store-file (, (concat merge-autostore-dir + "mrg_" (file-name-nondirectory file1)))) ;; make ediff-startup pass ;; ediff-control-buffer back to the meta @@ -1291,6 +1299,7 @@ all marked sessions must be active." (setq ediff-merge-store-file (, (concat merge-autostore-dir + "mrg_" (file-name-nondirectory file1)))) ;; make ediff-startup pass ;; ediff-control-buffer back to the meta @@ -1306,6 +1315,7 @@ all marked sessions must be active." (setq ediff-merge-store-file (, (concat merge-autostore-dir + "mrg_" (file-name-nondirectory file1)))) ;; make ediff-startup pass ;; ediff-control-buffer back to the meta @@ -1320,6 +1330,7 @@ all marked sessions must be active." (setq ediff-merge-store-file (, (concat merge-autostore-dir + "mrg_" (file-name-nondirectory file1)))) (setq ediff-meta-buffer (, (current-buffer))) ;; this arranges that ediff-startup will pass |