From: Michael Albinus Date: Fri, 17 Sep 2010 07:58:07 +0000 (+0200) Subject: * net/tramp-compat.el (tramp-compat-with-temp-message): Make it a X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~47^2~112 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1a9dc3b588164a97382127f51f1dda9e74abcf3d;p=emacs.git * net/tramp-compat.el (tramp-compat-with-temp-message): Make it a defmacro. --- 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)))