diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-12-25 02:13:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-12-25 02:13:37 +0000 |
| commit | 01ce75148fb0af69bfb2d149fc2ef8308f19b9d9 (patch) | |
| tree | 5ec5e16e17ce42bcc78b84d7bbf4f4e547ed0a0c /lisp/ange-ftp.el | |
| parent | d4830f1e92c316b80c7ff12a551fa19a2af86f78 (diff) | |
| download | emacs-01ce75148fb0af69bfb2d149fc2ef8308f19b9d9.tar.gz | |
(ange-ftp-write-region): Call set-visited-file-modtime.
(ange-ftp-insert-file-contents): Likewise.
Diffstat (limited to 'lisp/ange-ftp.el')
| -rw-r--r-- | lisp/ange-ftp.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el index 8ed9ae6c0b4..e1efeed67f6 100644 --- a/lisp/ange-ftp.el +++ b/lisp/ange-ftp.el @@ -857,7 +857,7 @@ SIZE, if supplied, should be a prime number." ;;;; Internal variables. ;;;; ------------------------------------------------------------ -(defconst ange-ftp-version "$Revision: 1.37 $") +(defconst ange-ftp-version "$Revision: 1.38 $") (defvar ange-ftp-data-buffer-name " *ftp data*" "Buffer name to hold directory listing data received from ftp process.") @@ -2897,6 +2897,7 @@ system TYPE.") (ange-ftp-set-ascii-mode host user))) (if (eq visit t) (progn + (set-visited-file-modtime '(0 0)) (ange-ftp-set-buffer-mode) (setq buffer-file-name filename) (set-buffer-modified-p nil))) @@ -2957,7 +2958,9 @@ system TYPE.") (ange-ftp-set-ascii-mode host user)) (ange-ftp-del-tmp-name temp)) (if visit - (setq buffer-file-name filename)) + (progn + (set-visited-file-modtime '(0 0)) + (setq buffer-file-name filename))) (list filename size)) (signal 'file-error (list |