mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Use defalias at the top level

Browse source 
* 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.
This commit is contained in:
Katsumi Yamaoka 2015-09-01 22:59:53 +00:00
parent 183ad9d597
commit fea1e883c4
2 changed files with 7 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus/gnus-util.el
View file

@ -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.