From e309e2a56606ef774c5c366f74ea17ced46da065 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 27 Jun 2012 14:36:25 -0400 Subject: [PATCH] * lisp/textmodes/rst.el (rst-adornment-faces-alist): Avoid copy-list. --- lisp/ChangeLog | 2 ++ lisp/textmodes/rst.el | 5 +++-- 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 + * 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) -- 2.39.2