Mercurial > emacs
changeset 105879:b4f29dbe3ee7
* 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.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Fri, 06 Nov 2009 07:50:54 +0000 |
| parents | 0b36e1e1cf47 |
| children | 5910e0380daf |
| files | lisp/ChangeLog lisp/cus-face.el lisp/progmodes/ld-script.el lisp/vc-hooks.el |
| diffstat | 4 files changed, 14 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Nov 06 07:49:31 2009 +0000 +++ b/lisp/ChangeLog Fri Nov 06 07:50:54 2009 +0000 @@ -1,3 +1,10 @@ +2009-11-05 Dan Nicolaescu <dann@ics.uci.edu> + + * 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. + 2009-11-06 Kenichi Handa <handa@m17n.org> * international/uni-bidi.el: Re-generated.
--- a/lisp/cus-face.el Fri Nov 06 07:49:31 2009 +0000 +++ b/lisp/cus-face.el Fri Nov 06 07:50:54 2009 +0000 @@ -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)))
--- a/lisp/progmodes/ld-script.el Fri Nov 06 07:49:31 2009 +0000 +++ b/lisp/progmodes/ld-script.el Fri Nov 06 07:50:54 2009 +0000 @@ -162,11 +162,12 @@ ;; eCos uses "ld" and "ldi". ;; Netbsd uses "ldscript.*". ;;;###autoload -(add-to-list 'auto-mode-alist '("\\.ld[si]?\\>" . ld-script-mode)) -(add-to-list 'auto-mode-alist '("ld\\.?script\\>" . ld-script-mode)) +(add-to-list 'auto-mode-alist (purecopy '("\\.ld[si]?\\>" . ld-script-mode))) +;;;###autoload +(add-to-list 'auto-mode-alist (purecopy '("ld\\.?script\\>" . ld-script-mode))) ;;;###autoload -(add-to-list 'auto-mode-alist '("\\.x[bdsru]?[cn]?\\'" . ld-script-mode)) +(add-to-list 'auto-mode-alist (purecopy '("\\.x[bdsru]?[cn]?\\'" . ld-script-mode))) ;;;###autoload (define-derived-mode ld-script-mode nil "LD-Script"
--- a/lisp/vc-hooks.el Fri Nov 06 07:49:31 2009 +0000 +++ b/lisp/vc-hooks.el Fri Nov 06 07:50:54 2009 +0000 @@ -77,9 +77,9 @@ ;; Note: we don't actually have a darcs back end yet. ;; Also, Meta-CVS (corresponsding to MCVS) is unsupported. -(defcustom vc-directory-exclusion-list '("SCCS" "RCS" "CVS" "MCVS" +(defcustom vc-directory-exclusion-list (purecopy '("SCCS" "RCS" "CVS" "MCVS" ".svn" ".git" ".hg" ".bzr" - "_MTN" "_darcs" "{arch}") + "_MTN" "_darcs" "{arch}")) "List of directory names to be ignored when walking directory trees." :type '(repeat string) :group 'vc)