diff options
| author | Stefan Monnier | 2012-06-27 14:36:25 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2012-06-27 14:36:25 -0400 |
| commit | e309e2a56606ef774c5c366f74ea17ced46da065 (patch) | |
| tree | 9d7097279563e53800c1a8bc2b07a345da81610e /lisp/textmodes | |
| parent | 2014308a5dc2d82a136212e0eb7eeea61838bbe7 (diff) | |
| download | emacs-e309e2a56606ef774c5c366f74ea17ced46da065.tar.gz emacs-e309e2a56606ef774c5c366f74ea17ced46da065.zip | |
* lisp/textmodes/rst.el (rst-adornment-faces-alist): Avoid copy-list.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/rst.el | 5 |
1 files changed, 3 insertions, 2 deletions
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 | |||
| 3416 | 3416 | ||
| 3417 | (defcustom rst-adornment-faces-alist | 3417 | (defcustom rst-adornment-faces-alist |
| 3418 | ;; FIXME LEVEL-FACE: Must be redone if `rst-level-face-max' is changed | 3418 | ;; FIXME LEVEL-FACE: Must be redone if `rst-level-face-max' is changed |
| 3419 | (let ((alist (copy-list '((t . rst-transition) | 3419 | (let ((alist (copy-sequence '((t . rst-transition) |
| 3420 | (nil . rst-adornment)))) | 3420 | (nil . rst-adornment)))) |
| 3421 | (i 1)) | 3421 | (i 1)) |
| 3422 | (while (<= i rst-level-face-max) | 3422 | (while (<= i rst-level-face-max) |
| 3423 | ;; FIXME: why not `push'? | ||
| 3423 | (nconc alist (list (cons i (intern (format "rst-level-%d-face" i))))) | 3424 | (nconc alist (list (cons i (intern (format "rst-level-%d-face" i))))) |
| 3424 | (setq i (1+ i))) | 3425 | (setq i (1+ i))) |
| 3425 | alist) | 3426 | alist) |