diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2015-09-01 22:59:53 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2015-09-01 22:59:53 +0000 |
| commit | fea1e883c49687324e627f81841a80cdb25c41f5 (patch) | |
| tree | 33f89b28819032edcdba80481c9f33ba5cf3922d /lisp/gnus | |
| parent | 183ad9d59757314f93aed8a9fe512c8fb48a2ed1 (diff) | |
| download | emacs-fea1e883c49687324e627f81841a80cdb25c41f5.tar.gz emacs-fea1e883c49687324e627f81841a80cdb25c41f5.tar.bz2 emacs-fea1e883c49687324e627f81841a80cdb25c41f5.zip | |
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.
Diffstat (limited to 'lisp/gnus')
| -rw-r--r-- | lisp/gnus/gnus-util.el | 8 |
1 files changed, 4 insertions, 4 deletions
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. |