From: Stefan Monnier Date: Wed, 27 Jun 2012 18:36:25 +0000 (-0400) Subject: * lisp/textmodes/rst.el (rst-adornment-faces-alist): Avoid copy-list. X-Git-Tag: emacs-24.2.90~1199^2~314 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e309e2a56606ef774c5c366f74ea17ced46da065;p=emacs.git * lisp/textmodes/rst.el (rst-adornment-faces-alist): Avoid copy-list. --- 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 + * 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)