/[emacs]/emacs/lisp/net/ange-ftp.el
ViewVC logotype

Diff of /emacs/lisp/net/ange-ftp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.38 by monnier, Thu Jul 4 20:37:14 2002 UTC revision 1.39 by rms, Fri Jul 12 23:29:26 2002 UTC
# Line 3317  system TYPE.") Line 3317  system TYPE.")
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)

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26