Commit 78b1832e authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

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

parent d6f6af81
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment