mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases 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-07-12 23:29:39 +00:00
parent 119831da31
commit 4494f50d12
2 changed files with 24 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -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)