mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-15 11:21:19 -07:00
Code Issues Projects Releases Wiki Activity

gnus-util.el (gnus-macroexpand-all): Fix last change.

Browse source
This commit is contained in:
Katsumi Yamaoka 2010-12-03 02:30:12 +00:00
parent d6f6af81e8
commit 78b1832ebf
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -2042,10 +2042,9 @@ If no macros are expanded, FORM is returned unchanged."
(if (consp form)
(let ((idx 1)
(len (length form))
elem expanded)
expanded)
(while (< idx len)
(when (consp (setq elem (nth idx form)))
(setcar (nthcdr idx form) (gnus-macroexpand-all elem)))
(setcar (nthcdr idx form) (gnus-macroexpand-all (nth idx form)))
(setq idx (1+ idx)))
(if (eq (setq expanded (macroexpand form)) form)
form