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

defmacro.

lisp/ChangeLog

+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

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)))