diff options
| author | Daniel Colascione | 2014-10-21 17:05:13 +0100 |
|---|---|---|
| committer | Daniel Colascione | 2014-10-21 17:05:13 +0100 |
| commit | be5722e930b71fbbca049bd924b0b2f6dafa72b4 (patch) | |
| tree | 5f35241e950a4bb2228f34e2dbecd862008adb09 | |
| parent | a046b8dd48b0e26f9354e9a005113088c3bc04f9 (diff) | |
| parent | 80aabe42436b909018c98a8a87ccbe614e72ef25 (diff) | |
| download | emacs-be5722e930b71fbbca049bd924b0b2f6dafa72b4.tar.gz emacs-be5722e930b71fbbca049bd924b0b2f6dafa72b4.zip | |
Stop vc from burying buffers sometimes
* vc/vc-dispatcher.el (vc-resynch-window): Tell view-mode not to
change window configuration when we turn it off.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/vc/vc-dispatcher.el | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6246227313c..f066327c9b9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2014-10-21 Daniel Colascione <dancol@dancol.org> | ||
| 2 | |||
| 3 | * vc/vc-dispatcher.el (vc-resynch-window): Tell view-mode not to | ||
| 4 | change window configuration when we turn it off. | ||
| 5 | |||
| 1 | 2014-10-21 Stefan Monnier <monnier@iro.umontreal.ca> | 6 | 2014-10-21 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 7 | ||
| 3 | Get rid of backend-dependent selection-handling functions for kill/yank | 8 | Get rid of backend-dependent selection-handling functions for kill/yank |
diff --git a/lisp/vc/vc-dispatcher.el b/lisp/vc/vc-dispatcher.el index 4fd9691d2a2..d2125d57ba4 100644 --- a/lisp/vc/vc-dispatcher.el +++ b/lisp/vc/vc-dispatcher.el | |||
| @@ -429,7 +429,7 @@ If the current buffer is a Dired buffer, revert it." | |||
| 429 | ;; even if the dispatcher client mode has messed with file contents (as in, | 429 | ;; even if the dispatcher client mode has messed with file contents (as in, |
| 430 | ;; for example, VCS keyword expansion). | 430 | ;; for example, VCS keyword expansion). |
| 431 | 431 | ||
| 432 | (declare-function view-mode-exit "view" (&optional return-to-alist exit-action all-win)) | 432 | (declare-function view-mode-exit "view" (&optional exit-only exit-action all-win)) |
| 433 | 433 | ||
| 434 | (defun vc-position-context (posn) | 434 | (defun vc-position-context (posn) |
| 435 | "Save a bit of the text around POSN in the current buffer. | 435 | "Save a bit of the text around POSN in the current buffer. |
| @@ -543,7 +543,7 @@ editing!" | |||
| 543 | (if (file-writable-p file) | 543 | (if (file-writable-p file) |
| 544 | (and view-mode | 544 | (and view-mode |
| 545 | (let ((view-old-buffer-read-only nil)) | 545 | (let ((view-old-buffer-read-only nil)) |
| 546 | (view-mode-exit))) | 546 | (view-mode-exit t))) |
| 547 | (and (not view-mode) | 547 | (and (not view-mode) |
| 548 | (not (eq (get major-mode 'mode-class) 'special)) | 548 | (not (eq (get major-mode 'mode-class) 'special)) |
| 549 | (view-mode-enter)))) | 549 | (view-mode-enter)))) |