diff options
| author | Michael Kifer <kifer@cs.stonybrook.edu> | 1997-07-17 19:37:07 +0000 |
|---|---|---|
| committer | Michael Kifer <kifer@cs.stonybrook.edu> | 1997-07-17 19:37:07 +0000 |
| commit | 1e70790f2f4826c646d5640a9f6162aa78ea682b (patch) | |
| tree | 8c5e1f471a70bb6c1594cc983aceed67a9eb86de /lisp/ediff-util.el | |
| parent | 99358b9788c9c6849f8fa17984dfa57853502cd7 (diff) | |
| download | emacs-1e70790f2f4826c646d5640a9f6162aa78ea682b.tar.gz | |
new version
Diffstat (limited to 'lisp/ediff-util.el')
| -rw-r--r-- | lisp/ediff-util.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/ediff-util.el b/lisp/ediff-util.el index 527a9e2972d..fbd5808726a 100644 --- a/lisp/ediff-util.el +++ b/lisp/ediff-util.el @@ -101,6 +101,7 @@ This mode is entered through one of the following commands: `ediff-patch-file' `ediff-patch-buffer' `epatch-buffer' + `erevision' `ediff-revision' Commands: @@ -404,7 +405,10 @@ to invocation.") (or (memq control-buffer ediff-this-buffer-ediff-sessions) (setq ediff-this-buffer-ediff-sessions (cons control-buffer ediff-this-buffer-ediff-sessions))) + (if ediff-make-buffers-readonly-at-startup + (setq buffer-read-only t)) ) + (ediff-eval-in-buffer ediff-buffer-B (ediff-nuke-selective-display) (run-hooks 'ediff-prepare-buffer-hook) @@ -414,7 +418,10 @@ to invocation.") (or (memq control-buffer ediff-this-buffer-ediff-sessions) (setq ediff-this-buffer-ediff-sessions (cons control-buffer ediff-this-buffer-ediff-sessions))) + (if ediff-make-buffers-readonly-at-startup + (setq buffer-read-only t)) ) + (if ediff-3way-job (ediff-eval-in-buffer ediff-buffer-C (ediff-nuke-selective-display) @@ -424,6 +431,8 @@ to invocation.") (setq ediff-this-buffer-ediff-sessions (cons control-buffer ediff-this-buffer-ediff-sessions))) + (if ediff-make-buffers-readonly-at-startup + (setq buffer-read-only t)) )) (if (ediff-buffer-live-p ediff-ancestor-buffer) |