diff options
| author | Richard M. Stallman | 1997-02-03 09:45:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-02-03 09:45:27 +0000 |
| commit | c2604a9b8632d7be52d82d14f9ba43c0c75cc423 (patch) | |
| tree | 26e276bfdf48c25666b9f3a0f06a6524fb7b84fb | |
| parent | f36012a6692d4b6e248a04f26de9a61c4b989eee (diff) | |
| download | emacs-c2604a9b8632d7be52d82d14f9ba43c0c75cc423.tar.gz emacs-c2604a9b8632d7be52d82d14f9ba43c0c75cc423.zip | |
(dired-rename-file): Pass new arg to set-visited-file-name.
| -rw-r--r-- | lisp/dired-aux.el | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el index 86b897d6616..6c07d430df4 100644 --- a/lisp/dired-aux.el +++ b/lisp/dired-aux.el | |||
| @@ -950,11 +950,8 @@ Special value `always' suppresses confirmation.") | |||
| 950 | (rename-file from to ok-flag) ; error is caught in -create-files | 950 | (rename-file from to ok-flag) ; error is caught in -create-files |
| 951 | ;; Silently rename the visited file of any buffer visiting this file. | 951 | ;; Silently rename the visited file of any buffer visiting this file. |
| 952 | (and (get-file-buffer from) | 952 | (and (get-file-buffer from) |
| 953 | (save-excursion | 953 | (with-current-buffer (get-file-buffer from) |
| 954 | (set-buffer (get-file-buffer from)) | 954 | (set-visited-file-name to nil t))) |
| 955 | (let ((modflag (buffer-modified-p))) | ||
| 956 | (set-visited-file-name to) | ||
| 957 | (set-buffer-modified-p modflag)))) | ||
| 958 | (dired-remove-file from) | 955 | (dired-remove-file from) |
| 959 | ;; See if it's an inserted subdir, and rename that, too. | 956 | ;; See if it's an inserted subdir, and rename that, too. |
| 960 | (dired-rename-subdir from to)) | 957 | (dired-rename-subdir from to)) |