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

(set-visited-file-name, basic-save-buffer):

Browse Source 
Set buffer-file-number consistently with find-file-noselect.
This commit is contained in:
Richard M. Stallman 1995-10-29 20:23:42 +00:00
parent c3f1e1a914
commit 2a47b4f5b4
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/files.el
View File

@ -1375,7 +1375,7 @@ if you wish to pass an empty string as the argument."
(setq buffer-file-name buffer-file-truename))))
(setq buffer-file-number
(if filename
(nth 10 (file-attributes buffer-file-name))
(nthcdr 10 (file-attributes buffer-file-name))
nil)))
;; write-file-hooks is normally used for things like ftp-find-file
;; that visit things that are not local files as if they were files.
@ -1782,7 +1782,8 @@ After saving the buffer, run `after-save-hook'."
;; If a hook returned t, file is already "written".
;; Otherwise, write it the usual way now.
(setq setmodes (basic-save-buffer-1)))
(setq buffer-file-number (nth 10 (file-attributes buffer-file-name)))
(setq buffer-file-number
(nthcdr 10 (file-attributes buffer-file-name)))
(if setmodes
(condition-case ()
(set-file-modes buffer-file-name setmodes)