Commit e309e2a5 authored by Stefan Monnier's avatar Stefan Monnier

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

parent 2014308a
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):
......@@ -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)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment