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 773de12eec9..4f36427a2e2 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -1794,7 +1794,8 @@ the last real save, but optional arg FORCE non-nil means delete anyway." | |||
| 1794 | (unwind-protect | 1794 | (unwind-protect |
| 1795 | (progn (clear-visited-file-modtime) | 1795 | (progn (clear-visited-file-modtime) |
| 1796 | (write-region (point-min) (point-max) | 1796 | (write-region (point-min) (point-max) |
| 1797 | tempname nil realname) | 1797 | tempname nil realname |
| 1798 | buffer-file-truename) | ||
| 1798 | (setq succeed t)) | 1799 | (setq succeed t)) |
| 1799 | ;; If writing the temp file fails, | 1800 | ;; If writing the temp file fails, |
| 1800 | ;; delete the temp file. | 1801 | ;; delete the temp file. |
| @@ -1818,7 +1819,7 @@ the last real save, but optional arg FORCE non-nil means delete anyway." | |||
| 1818 | (setq setmodes (file-modes buffer-file-name)) | 1819 | (setq setmodes (file-modes buffer-file-name)) |
| 1819 | (set-file-modes buffer-file-name 511))) | 1820 | (set-file-modes buffer-file-name 511))) |
| 1820 | (write-region (point-min) (point-max) | 1821 | (write-region (point-min) (point-max) |
| 1821 | buffer-file-name nil t))) | 1822 | buffer-file-name nil t buffer-file-truename))) |
| 1822 | setmodes)) | 1823 | setmodes)) |
| 1823 | 1824 | ||
| 1824 | (defun save-some-buffers (&optional arg exiting) | 1825 | (defun save-some-buffers (&optional arg exiting) |