From fea1e883c49687324e627f81841a80cdb25c41f5 Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Tue, 1 Sep 2015 22:59:53 +0000 Subject: Use defalias at the top level * lisp/gnus/gnus-util.el (gnus-format-message): * lisp/net/tls.el (tls-format-message): Use defalias at the top level so as to make eval-and-compile unnecessary. Thanks to Stefan Monnier. --- lisp/gnus/gnus-util.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lisp/gnus') diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 54cf099e078..215eac88aef 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -1974,10 +1974,10 @@ to case differences." (string-equal (downcase str1) (downcase prefix)) (string-equal str1 prefix)))))) -(if (fboundp 'format-message) - (defalias 'gnus-format-message 'format-message) - ;; for Emacs < 25, and XEmacs, don't worry about quote translation. - (defalias 'gnus-format-message 'format)) +(defalias 'gnus-format-message + (if (fboundp 'format-message) 'format-message + ;; for Emacs < 25, and XEmacs, don't worry about quote translation. + 'format)) ;; Simple check: can be a macro but this way, although slow, it's really clear. ;; We don't use `bound-and-true-p' because it's not in XEmacs. -- cgit v1.2.3