diff options
| author | Richard M. Stallman <[email protected]> | 2002-07-12 23:29:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 2002-07-12 23:29:39 +0000 |
| commit | 4494f50d122a10a83d5b6dc53c5ff0094c4b9d3e (patch) | |
| tree | 47273a7cf14589abf0ecfe0357c06c16b5009626 /lisp/net | |
| parent | 119831da31e1181628d9d7db281accca641d7fd0 (diff) | |
(ange-ftp-write-region): Don't bind executing-kbd-macro; instead, pass
non-nil VISIT arg to ange-ftp-real-write-region.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/ange-ftp.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 10d759c149..27cf72caba 100644 --- 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) |