diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-10-29 20:23:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-10-29 20:23:42 +0000 |
| commit | 2a47b4f5b4162c7cb5d45a7edade9c03efd32f74 (patch) | |
| tree | 2d7c3dd07d575e3f8244187c891d0cb418a08d11 /lisp | |
| parent | c3f1e1a914acf731014d2963e7b771fd0a007f65 (diff) | |
| download | emacs-2a47b4f5b4162c7cb5d45a7edade9c03efd32f74.tar.gz emacs-2a47b4f5b4162c7cb5d45a7edade9c03efd32f74.tar.bz2 emacs-2a47b4f5b4162c7cb5d45a7edade9c03efd32f74.zip | |
(set-visited-file-name, basic-save-buffer):
Set buffer-file-number consistently with find-file-noselect.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/files.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el index a7bfd5ea00a..1b2afa8aa7f 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -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) |