[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r102565: gnus-util.el (gnus-macroexpa
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r102565: gnus-util.el (gnus-macroexpand-all): Don't modify argument. |
Date: |
Fri, 03 Dec 2010 04:39:36 +0000 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 102565
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Fri 2010-12-03 04:39:36 +0000
message:
gnus-util.el (gnus-macroexpand-all): Don't modify argument.
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus-util.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2010-12-03 02:57:46 +0000
+++ b/lisp/gnus/ChangeLog 2010-12-03 04:39:36 +0000
@@ -1,3 +1,7 @@
+2010-12-03 Katsumi Yamaoka <address@hidden>
+
+ * gnus-util.el (gnus-macroexpand-all): Don't modify argument.
+
2010-12-03 Glenn Morris <address@hidden>
* mm-extern.el (message-goto-body): Update declaration.
=== modified file 'lisp/gnus/gnus-util.el'
--- a/lisp/gnus/gnus-util.el 2010-12-03 02:30:12 +0000
+++ b/lisp/gnus/gnus-util.el 2010-12-03 04:39:36 +0000
@@ -2041,7 +2041,7 @@
If no macros are expanded, FORM is returned unchanged."
(if (consp form)
(let ((idx 1)
- (len (length form))
+ (len (length (setq form (copy-sequence form))))
expanded)
(while (< idx len)
(setcar (nthcdr idx form) (gnus-macroexpand-all (nth idx form)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r102565: gnus-util.el (gnus-macroexpand-all): Don't modify argument.,
Katsumi Yamaoka <=