From 4494f50d122a10a83d5b6dc53c5ff0094c4b9d3e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 12 Jul 2002 23:29:39 +0000 Subject: [PATCH] (ange-ftp-write-region): Don't bind executing-kbd-macro; instead, pass non-nil VISIT arg to ange-ftp-real-write-region. --- lisp/ChangeLog | 21 +++++++++++++++++++++ lisp/net/ange-ftp.el | 6 +++--- 2 files changed, 24 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b78cd868163..0e7c0797b58 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,26 @@ 2002-07-12 Richard M. Stallman + * net/ange-ftp.el (ange-ftp-write-region): + Don't bind executing-kbd-macro; instead, pass non-nil VISIT arg + to ange-ftp-real-write-region. + + * replace.el (flush-lines, keep-lines): Convert REND to a marker. + + * help-fns.el (help-with-tutorial): Display completion list right away. + + * ediff-ptch.el (ediff-test-patch-utility): Catch error and return nil. + + * startup.el (command-line): Set memory-signal-data. + (fancy-splash-text, normal-splash-screen): + Mention "Read the Emacs Manual" or C-h r. + Rearrange the initial help to put the help cmds on left + and the actions (exit, undo) on the right. Other small + text clarifications. + (fancy-splash-text, actions page): Add blank line to balance help page. + + * help.el (help-map): Add binding for info-emacs-manual. + (print-help-return-message): Doc fix. + * strokes.el (strokes-help): Call print-help-return-message while inside with-output-to-temp-buffer. diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 10d759c1494..27cf72caba5 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) -- 2.39.5