* lisp/textmodes/rst.el (rst-adornment-faces-alist): Avoid copy-list.

2 files changed, 5 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cb70d88b849..b08374742c1 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2012-06-27  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+        * textmodes/rst.el (rst-adornment-faces-alist): Avoid copy-list.
+
         * emacs-lisp/cl.el (flet): Mark obsolete.
         * emacs-lisp/cl-macs.el (cl-flet*): New macro.
         * vc/vc-rcs.el (vc-rcs-annotate-command, vc-rcs-parse):
diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el
index 8ad7a8e1c16..6e0562f4a4b 100644
--- a/lisp/textmodes/rst.el
+++ b/lisp/textmodes/rst.el
@@ -3416,10 +3416,11 @@ This color is used as background for section title text on level
 
 (defcustom rst-adornment-faces-alist
   ;; FIXME LEVEL-FACE: Must be redone if `rst-level-face-max' is changed
-  (let ((alist (copy-list '((t . rst-transition)
-                            (nil . rst-adornment))))
+  (let ((alist (copy-sequence '((t . rst-transition)
+                                (nil . rst-adornment))))
         (i 1))
     (while (<= i rst-level-face-max)
+      ;; FIXME: why not `push'?
       (nconc alist (list (cons i (intern (format "rst-level-%d-face" i)))))
       (setq i (1+ i)))
     alist)