procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Stefan Monnier 2012-06-27 14:36:25 -04:00
parent 2014308a5d
commit e309e2a566
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -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):

5
lisp/textmodes/rst.el
View file

@ -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)