diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2009-11-06 07:50:54 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2009-11-06 07:50:54 +0000 |
| commit | 0b7f397ca754d0fca96b9778329ec5206f445205 (patch) | |
| tree | 9d4f2daf57168c04b61837cc6eeca90c364b5198 /lisp/cus-face.el | |
| parent | 5adc433ec64ffbd82f809de77fceb294fc8a93c2 (diff) | |
| download | emacs-0b7f397ca754d0fca96b9778329ec5206f445205.tar.gz | |
* progmodes/ld-script.el (auto-mode-alist):
* vc-hooks.el (vc-directory-exclusion-list): Purecopy strings.
* cus-face.el (custom-declare-face): Purecopy face spec.
Diffstat (limited to 'lisp/cus-face.el')
| -rw-r--r-- | lisp/cus-face.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/cus-face.el b/lisp/cus-face.el index 78c28b058da..c28b660b31b 100644 --- a/lisp/cus-face.el +++ b/lisp/cus-face.el @@ -50,7 +50,7 @@ (if have-window-system (make-face-x-resource-internal face))))) ;; Don't record SPEC until we see it causes no errors. - (put face 'face-defface-spec spec) + (put face 'face-defface-spec (purecopy spec)) (push (cons 'defface face) current-load-list) (when (and doc (null (face-documentation face))) (set-face-documentation face (purecopy doc))) |