From 1a9dc3b588164a97382127f51f1dda9e74abcf3d Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Fri, 17 Sep 2010 09:58:07 +0200 Subject: [PATCH] * net/tramp-compat.el (tramp-compat-with-temp-message): Make it a defmacro. --- lisp/ChangeLog | 5 +++++ lisp/net/tramp-compat.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f7960c1d749..929204e5115 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-09-17 Michael Albinus + + * net/tramp-compat.el (tramp-compat-with-temp-message): Make it a + defmacro. + 2010-09-16 Chong Yidong * mail/sendmail.el: Add "*unsent mail*" to diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el index 4da2fb33771..5156711fa47 100644 --- a/lisp/net/tramp-compat.el +++ b/lisp/net/tramp-compat.el @@ -184,7 +184,7 @@ ;; `with-temp-message' does not exists in XEmacs. (if (fboundp 'with-temp-message) (defalias 'tramp-compat-with-temp-message 'with-temp-message) - (defun tramp-compat-with-temp-message (message &rest body) + (defmacro tramp-compat-with-temp-message (message &rest body) "Display MESSAGE temporarily if non-nil while BODY is evaluated." `(progn ,@body))) -- 2.39.2