diff options
author | Michael Albinus <[email protected]> | 2010-09-17 09:58:07 +0200 |
---|---|---|
committer | Michael Albinus <[email protected]> | 2010-09-17 09:58:07 +0200 |
commit | 1a9dc3b588164a97382127f51f1dda9e74abcf3d (patch) | |
tree | 428342ead24962b2b98d05dd34acff5690f4822e | |
parent | 318a04c60bf855b832b5c90e220bf3b576e1273e (diff) |
* net/tramp-compat.el (tramp-compat-with-temp-message): Make it a
defmacro.
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/net/tramp-compat.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f7960c1d74..929204e511 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-09-17 Michael Albinus <[email protected]> + + * net/tramp-compat.el (tramp-compat-with-temp-message): Make it a + defmacro. + 2010-09-16 Chong Yidong <[email protected]> * mail/sendmail.el: Add "*unsent mail*" to diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el index 4da2fb3377..5156711fa4 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))) |