3317 |
(coding-system-used last-coding-system-used)) |
(coding-system-used last-coding-system-used)) |
3318 |
(unwind-protect |
(unwind-protect |
3319 |
(progn |
(progn |
3320 |
(let ((executing-kbd-macro t) |
(let ((filename (buffer-file-name)) |
|
(filename (buffer-file-name)) |
|
3321 |
(mod-p (buffer-modified-p))) |
(mod-p (buffer-modified-p))) |
3322 |
(unwind-protect |
(unwind-protect |
3323 |
(progn |
(progn |
3324 |
(ange-ftp-real-write-region start end temp nil visit) |
(ange-ftp-real-write-region start end temp nil |
3325 |
|
(or visit 'quiet)) |
3326 |
(setq coding-system-used last-coding-system-used)) |
(setq coding-system-used last-coding-system-used)) |
3327 |
;; cleanup forms |
;; cleanup forms |
3328 |
(setq coding-system-used last-coding-system-used) |
(setq coding-system-used last-coding-system-used) |