Mercurial > emacs

changeset 5350:722bd9d45ab2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ange-ftp-write-region): Call set-visited-file-modtime. (ange-ftp-insert-file-contents): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Sat, 25 Dec 1993 02:13:37 +0000
parents efcc2af40221
children 8e1536744d7e
files lisp/ange-ftp.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ange-ftp.el	Sat Dec 25 01:45:30 1993 +0000
+++ b/lisp/ange-ftp.el	Sat Dec 25 02:13:37 1993 +0000
@@ -857,7 +857,7 @@
 ;;;; 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 @@
 		(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 @@
 		      (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