mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(dired-rename-file): Pass new arg to set-visited-file-name.

Browse Source
This commit is contained in:
Richard M. Stallman 1997-02-03 09:45:27 +00:00
parent f36012a669
commit c2604a9b86
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/dired-aux.el
View File

@ -950,11 +950,8 @@ Special value `always' suppresses confirmation.")
(rename-file from to ok-flag) ; error is caught in -create-files
;; Silently rename the visited file of any buffer visiting this file.
(and (get-file-buffer from)
(save-excursion
(set-buffer (get-file-buffer from))
(let ((modflag (buffer-modified-p)))
(set-visited-file-name to)
(set-buffer-modified-p modflag))))
(with-current-buffer (get-file-buffer from)
(set-visited-file-name to nil t)))
(dired-remove-file from)
;; See if it's an inserted subdir, and rename that, too.
(dired-rename-subdir from to))