diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/gnus-util.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 1ba10f46f3c..55d6ce55ebb 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el | |||
| @@ -2046,11 +2046,12 @@ definitions to shadow the loaded ones for use in file byte-compilation." | |||
| 2046 | (len (length (setq form (copy-sequence form)))) | 2046 | (len (length (setq form (copy-sequence form)))) |
| 2047 | expanded) | 2047 | expanded) |
| 2048 | (while (< idx len) | 2048 | (while (< idx len) |
| 2049 | (setcar (nthcdr idx form) (gnus-macroexpand-all (nth idx form))) | 2049 | (setcar (nthcdr idx form) (gnus-macroexpand-all (nth idx form) |
| 2050 | environment)) | ||
| 2050 | (setq idx (1+ idx))) | 2051 | (setq idx (1+ idx))) |
| 2051 | (if (eq (setq expanded (macroexpand form environment)) form) | 2052 | (if (eq (setq expanded (macroexpand form environment)) form) |
| 2052 | form | 2053 | form |
| 2053 | (gnus-macroexpand-all expanded))) | 2054 | (gnus-macroexpand-all expanded environment))) |
| 2054 | form))) | 2055 | form))) |
| 2055 | 2056 | ||
| 2056 | (provide 'gnus-util) | 2057 | (provide 'gnus-util) |