Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 18:37:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
non-nil VISIT arg to ange-ftp-real-write-region.
This commit is contained in:
Richard M. Stallman 2002-09-29 18:24:03 +00:00
parent 2c74359fda
commit c857be22ca
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/net/ange-ftp.el
View file

@ -3161,12 +3161,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)