[Emacs-diffs] /srv/bzr/emacs/trunk r101455: * net/tramp-compat.el (tramp-compat-with-temp-message): Make it a

[Michael Albinus]

------------------------------------------------------------
revno: 101455
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Fri 2010-09-17 09:58:07 +0200
message:
  * net/tramp-compat.el (tramp-compat-with-temp-message): Make it a
  defmacro.
modified:
  lisp/ChangeLog
  lisp/net/tramp-compat.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-09-17 00:08:06 +0000
+++ b/lisp/ChangeLog    2010-09-17 07:58:07 +0000
@@ -1,3 +1,8 @@
+2010-09-17  Michael Albinus  <address@hidden>
+
+       * net/tramp-compat.el (tramp-compat-with-temp-message): Make it a
+       defmacro.
+
 2010-09-16  Chong Yidong  <address@hidden>
 
        * mail/sendmail.el: Add "*unsent mail*" to

=== modified file 'lisp/net/tramp-compat.el'
--- a/lisp/net/tramp-compat.el  2010-09-15 20:27:11 +0000
+++ b/lisp/net/tramp-compat.el  2010-09-17 07:58:07 +0000
@@ -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)))