# HG changeset patch
# User Michael Albinus <michael.albinus@gmx.de>
# Date 1284710287 -7200
# Node ID 670fe38909f508021b13ccd2de971a7197ca83ff
# Parent  4fd09e92be418ff3abd1d161f87d50f3c7232334
* net/tramp-compat.el (tramp-compat-with-temp-message): Make it a
defmacro.

diff -r 4fd09e92be41 -r 670fe38909f5 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Sep 17 09:00:12 2010 +0200
+++ b/lisp/ChangeLog	Fri Sep 17 09:58:07 2010 +0200
@@ -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 -r 4fd09e92be41 -r 670fe38909f5 lisp/net/tramp-compat.el
--- a/lisp/net/tramp-compat.el	Fri Sep 17 09:00:12 2010 +0200
+++ b/lisp/net/tramp-compat.el	Fri Sep 17 09:58:07 2010 +0200
@@ -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)))