mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

gnus-util.el (gnus-macroexpand-all): Use eval-and-compile.

Browse Source
This commit is contained in:
Katsumi Yamaoka 2010-12-05 23:29:50 +00:00
parent 04db63bc41
commit c67e426e95
2 changed files with 21 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View File

@ -1,3 +1,7 @@
2010-12-05 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-util.el (gnus-macroexpand-all): Use eval-and-compile.
2010-12-05 Lars Magne Ingebrigtsen <larsi@gnus.org>
* gnus-sum.el (gnus-summary-respool-article): The completion function

3
lisp/gnus/gnus-util.el
View File

@ -2037,6 +2037,7 @@ Same as `string-match' except this function does not change the match data."
(save-match-data
(string-match regexp string start))))
(eval-and-compile
(if (fboundp 'macroexpand-all)
(defalias 'gnus-macroexpand-all 'macroexpand-all)
(defun gnus-macroexpand-all (form &optional environment)
@ -2055,7 +2056,7 @@ definitions to shadow the loaded ones for use in file byte-compilation."
(if (eq (setq expanded (macroexpand form environment)) form)
form
(gnus-macroexpand-all expanded environment)))
form)))
form))))
(provide 'gnus-util)