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 | aec81cb6417d235bd72495df86a6677b5f261701 (patch) | |
| tree | b1ba6d4f06f49c51a99c038d72ff1fa43fba5db0 /lisp/ange-ftp.el | |
| parent | 8359469caa0ddfcd27b80492c26c8bfdd4cbc177 (diff) | |
| download | emacs-aec81cb6417d235bd72495df86a6677b5f261701.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 |