From 0b7f397ca754d0fca96b9778329ec5206f445205 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Fri, 6 Nov 2009 07:50:54 +0000 Subject: * 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. --- lisp/cus-face.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/cus-face.el') 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))) -- cgit v1.2.1