diff options
| -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." | |||
| 1375 | (setq buffer-file-name buffer-file-truename)))) | 1375 | (setq buffer-file-name buffer-file-truename)))) |
| 1376 | (setq buffer-file-number | 1376 | (setq buffer-file-number |
| 1377 | (if filename | 1377 | (if filename |
| 1378 | (nth 10 (file-attributes buffer-file-name)) | 1378 | (nthcdr 10 (file-attributes buffer-file-name)) |
| 1379 | nil))) | 1379 | nil))) |
| 1380 | ;; write-file-hooks is normally used for things like ftp-find-file | 1380 | ;; write-file-hooks is normally used for things like ftp-find-file |
| 1381 | ;; that visit things that are not local files as if they were files. | 1381 | ;; 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'." | |||
| 1782 | ;; If a hook returned t, file is already "written". | 1782 | ;; If a hook returned t, file is already "written". |
| 1783 | ;; Otherwise, write it the usual way now. | 1783 | ;; Otherwise, write it the usual way now. |
| 1784 | (setq setmodes (basic-save-buffer-1))) | 1784 | (setq setmodes (basic-save-buffer-1))) |
| 1785 | (setq buffer-file-number (nth 10 (file-attributes buffer-file-name))) | 1785 | (setq buffer-file-number |
| 1786 | (nthcdr 10 (file-attributes buffer-file-name))) | ||
| 1786 | (if setmodes | 1787 | (if setmodes |
| 1787 | (condition-case () | 1788 | (condition-case () |
| 1788 | (set-file-modes buffer-file-name setmodes) | 1789 | (set-file-modes buffer-file-name setmodes) |