* net/tramp-compat.el (tramp-compat-with-temp-message): Make it a

defmacro.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f7960c1d74942136eab584ee87e08f719e067c07..929204e5115329205f5e8d66ecdcdcae1d264a25 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-09-17  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp-compat.el (tramp-compat-with-temp-message): Make it a
+       defmacro.
+
 2010-09-16  Chong Yidong  <cyd@stupidchicken.com>
 
        * mail/sendmail.el: Add "*unsent mail*" to

diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el
index 4da2fb3377194c73e32ec68ce6ecf4118565a018..5156711fa47c7bd80d1a82de06246f5f4599509e 100644 (file)
--- 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)))