(ange-ftp-write-region): Don't bind executing-kbd-macro; instead, pass

non-nil VISIT arg to ange-ftp-real-write-region.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b78cd8681638c195dcc7f54a1ca7e980a28f1052..0e7c0797b580d802fae537b2fdb78523d31d6e13 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,26 @@
 2002-07-12  Richard M. Stallman  <rms@gnu.org>
 
+       * net/ange-ftp.el (ange-ftp-write-region):
+       Don't bind executing-kbd-macro; instead, pass non-nil VISIT arg
+       to ange-ftp-real-write-region.
+
+       * replace.el (flush-lines, keep-lines): Convert REND to a marker.
+
+       * help-fns.el (help-with-tutorial): Display completion list right away.
+
+       * ediff-ptch.el (ediff-test-patch-utility): Catch error and return nil.
+
+       * startup.el (command-line): Set memory-signal-data.
+       (fancy-splash-text, normal-splash-screen):
+       Mention "Read the Emacs Manual" or C-h r.
+       Rearrange the initial help to put the help cmds on left
+       and the actions (exit, undo) on the right.  Other small
+       text clarifications.
+       (fancy-splash-text, actions page): Add blank line to balance help page.
+
+       * help.el (help-map): Add binding for info-emacs-manual.
+       (print-help-return-message): Doc fix.
+
        * strokes.el (strokes-help): Call print-help-return-message
        while inside with-output-to-temp-buffer.
 

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 10d759c149439eaeeb79a7b72f8c3f9612562413..27cf72caba5a7e7877ffcf33ad220d690a707ef2 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -3317,12 +3317,12 @@ system TYPE.")
               (coding-system-used last-coding-system-used))
          (unwind-protect
              (progn
-               (let ((executing-kbd-macro t)
-                     (filename (buffer-file-name))
+               (let ((filename (buffer-file-name))
                      (mod-p (buffer-modified-p)))
                  (unwind-protect
                      (progn
-                       (ange-ftp-real-write-region start end temp nil visit)
+                       (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)