[Emacs-diffs] /srv/bzr/emacs/emacs-24 r108773: * lisp/textmodes/rst.el (rst-adornment-faces-alist): Avoid copy-list.

[Stefan Monnier]

------------------------------------------------------------
revno: 108773
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2012-06-27 14:36:25 -0400
message:
  * lisp/textmodes/rst.el (rst-adornment-faces-alist): Avoid copy-list.
modified:
  lisp/ChangeLog
  lisp/textmodes/rst.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-06-27 15:11:28 +0000
+++ b/lisp/ChangeLog    2012-06-27 18:36:25 +0000
@@ -1,5 +1,7 @@
 2012-06-27  Stefan Monnier  <address@hidden>
 
+       * 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):

=== modified file 'lisp/textmodes/rst.el'
--- a/lisp/textmodes/rst.el     2012-06-17 08:53:31 +0000
+++ b/lisp/textmodes/rst.el     2012-06-27 18:36:25 +0000
@@ -3416,10 +3416,11 @@
 
 (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)