diff options
| author | Michael Kifer | 2009-11-24 03:16:38 +0000 |
|---|---|---|
| committer | Michael Kifer | 2009-11-24 03:16:38 +0000 |
| commit | a34d856516db603a6b4522972d844a3b9d3c64ee (patch) | |
| tree | 08b9d51436b49d03137dd4c76356fd2bec4fe358 | |
| parent | 86677b58d01a7b62bae43077c0a0f2c991b404b6 (diff) | |
| download | emacs-a34d856516db603a6b4522972d844a3b9d3c64ee.tar.gz emacs-a34d856516db603a6b4522972d844a3b9d3c64ee.zip | |
2009-11-24 Michael Kifer <kifer@cs.stonybrook.edu>
* ediff-vers.el (ediff-rcs-get-output-buffer): Revert the change
made on 2009-11-22.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/ediff-vers.el | 3 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 212ab1f1846..a3b6b604480 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2009-11-24 Michael Kifer <kifer@cs.stonybrook.edu> | ||
| 2 | |||
| 3 | * ediff-vers.el (ediff-rcs-get-output-buffer): Revert the change | ||
| 4 | made on 2009-11-22. | ||
| 5 | |||
| 1 | 2009-11-24 Glenn Morris <rgm@gnu.org> | 6 | 2009-11-24 Glenn Morris <rgm@gnu.org> |
| 2 | 7 | ||
| 3 | * bookmark.el (bookmark-bmenu-hide-filenames): Remove assignment to | 8 | * bookmark.el (bookmark-bmenu-hide-filenames): Remove assignment to |
diff --git a/lisp/ediff-vers.el b/lisp/ediff-vers.el index 0cc321ade33..b5c0c0bd942 100644 --- a/lisp/ediff-vers.el +++ b/lisp/ediff-vers.el | |||
| @@ -136,8 +136,7 @@ comparison or merge operations are being performed." | |||
| 136 | ;; Optional NAME is name to use instead of `*RCS-output*'. | 136 | ;; Optional NAME is name to use instead of `*RCS-output*'. |
| 137 | ;; This is a modified version from rcs.el v1.1. I use it here to make | 137 | ;; This is a modified version from rcs.el v1.1. I use it here to make |
| 138 | ;; Ediff immune to changes in rcs.el | 138 | ;; Ediff immune to changes in rcs.el |
| 139 | (let* ((default-major-mode 'fundamental-mode) ; no frills! | 139 | (let ((buf (get-buffer-create name))) |
| 140 | (buf (get-buffer-create name))) | ||
| 141 | (with-current-buffer buf | 140 | (with-current-buffer buf |
| 142 | (setq buffer-read-only nil | 141 | (setq buffer-read-only nil |
| 143 | default-directory (file-name-directory (expand-file-name file))) | 142 | default-directory (file-name-directory (expand-file-name file))) |