[Emacs-diffs] Changes to emacs/lisp/net/ange-ftp.el

[Richard M. Stallman]

Index: emacs/lisp/net/ange-ftp.el
diff -c emacs/lisp/net/ange-ftp.el:1.38 emacs/lisp/net/ange-ftp.el:1.39
*** emacs/lisp/net/ange-ftp.el:1.38     Thu Jul  4 16:37:14 2002
--- emacs/lisp/net/ange-ftp.el  Fri Jul 12 19:29:26 2002
***************
*** 3317,3328 ****
               (coding-system-used last-coding-system-used))
          (unwind-protect
              (progn
!               (let ((executing-kbd-macro t)
!                     (filename (buffer-file-name))
                      (mod-p (buffer-modified-p)))
                  (unwind-protect
                      (progn
!                       (ange-ftp-real-write-region start end temp nil visit)
                        (setq coding-system-used last-coding-system-used))
                    ;; cleanup forms
                    (setq coding-system-used last-coding-system-used)
--- 3317,3328 ----
               (coding-system-used last-coding-system-used))
          (unwind-protect
              (progn
!               (let ((filename (buffer-file-name))
                      (mod-p (buffer-modified-p)))
                  (unwind-protect
                      (progn
!                       (ange-ftp-real-write-region start end temp nil
!                                                   (or visit 'quiet))
                        (setq coding-system-used last-coding-system-used))
                    ;; cleanup forms
                    (setq coding-system-used last-coding-system-used)