mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

* progmodes/ld-script.el (auto-mode-alist):

Browse source 
* vc-hooks.el (vc-directory-exclusion-list): Purecopy strings.

* cus-face.el (custom-declare-face): Purecopy face spec.
This commit is contained in:
Dan Nicolaescu 2009-11-06 07:50:54 +00:00
parent 5adc433ec6
commit 0b7f397ca7
4 changed files with 14 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

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

2
lisp/cus-face.el
View file

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

7
lisp/progmodes/ld-script.el
View file

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

4
lisp/vc-hooks.el
View file

@ -77,9 +77,9 @@ An empty list disables VC altogether."
;; 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)