diff options
| author | Stephen Berman <stephen.berman@gmx.net> | 2017-07-29 13:34:47 +0200 |
|---|---|---|
| committer | Stephen Berman <stephen.berman@gmx.net> | 2017-07-29 13:34:47 +0200 |
| commit | 8e394b082bd6ecd9ba212cb3ca07cbace66767a6 (patch) | |
| tree | 4782f5d9fb8b3143acd57ccf9de78f633c6c94f6 /lisp/files.el | |
| parent | dfee60fe66f3d9fe4249c9662d802753f3e50929 (diff) | |
| download | emacs-8e394b082bd6ecd9ba212cb3ca07cbace66767a6.tar.gz | |
Preserve point under 'dired-auto-revert-buffer' (third case)
* lisp/files.el (find-file): Use pop-to-buffer-same-window
instead of switch-to-buffer. This preserves Dired window
point when dired-auto-revert-buffer is non-nil. (Bug#27243)
* test/lisp/dired-tests.el (dired-test-bug27243-01)
(dired-test-bug27243-02, dired-test-bug27243-03): New tests.
The first two replace a previous test that combined them; that
test intermittently fails in the Hydra build system, so maybe
separating the two cases will help locate the point of
failure. The third test involves find-file but is here
because it, like the others, is testing the effect of
dired-auto-revert-buffer.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el index 6d9957d494a..6ce2fe98b05 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1599,8 +1599,8 @@ automatically choosing a major mode, use \\[find-file-literally]." (confirm-nonexistent-file-or-buffer))) (let ((value (find-file-noselect filename nil nil wildcards))) (if (listp value) - (mapcar 'switch-to-buffer (nreverse value)) - (switch-to-buffer value)))) + (mapcar 'pop-to-buffer-same-window (nreverse value)) + (pop-to-buffer-same-window value)))) (defun find-file-other-window (filename &optional wildcards) "Edit file FILENAME, in another window. |