diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-02-26 00:19:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-02-26 00:19:35 +0000 |
| commit | b5b98de3c7d3bbbdc0f8b03da3b6456855927e3c (patch) | |
| tree | 467a31261cde0daf29af4cf57c97b394fb28e7f2 /lisp/vc-hooks.el | |
| parent | 53f52f6b06de4ed11ed5aa98a1f2b4e838028ad0 (diff) | |
| download | emacs-b5b98de3c7d3bbbdc0f8b03da3b6456855927e3c.tar.gz | |
(vc-follow-link): Kill buffer before creating new one.
Diffstat (limited to 'lisp/vc-hooks.el')
| -rw-r--r-- | lisp/vc-hooks.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index 9fce8a43d09..ea4fd6543f5 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -929,11 +929,11 @@ control system name." (this-buffer (current-buffer))) (if (eq true-buffer this-buffer) (progn + (kill-buffer this-buffer) ;; In principle, we could do something like set-visited-file-name. ;; However, it can't be exactly the same as set-visited-file-name. ;; I'm not going to work out the details right now. -- rms. - (set-buffer (find-file-noselect truename)) - (kill-buffer this-buffer)) + (set-buffer (find-file-noselect truename))) (set-buffer true-buffer) (kill-buffer this-buffer)))) |