comparison lisp/progmodes/ld-script.el @ 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 a9dc0e7c3f2b
children 1d1d5d9bd884
comparison
equal deleted inserted replaced
105878:0b36e1e1cf47 105879:b4f29dbe3ee7
160 ;; Linux-2.6.9 uses some different suffix for linker scripts: 160 ;; Linux-2.6.9 uses some different suffix for linker scripts:
161 ;; "ld", "lds", "lds.S", "lds.in", "ld.script", and "ld.script.balo". 161 ;; "ld", "lds", "lds.S", "lds.in", "ld.script", and "ld.script.balo".
162 ;; eCos uses "ld" and "ldi". 162 ;; eCos uses "ld" and "ldi".
163 ;; Netbsd uses "ldscript.*". 163 ;; Netbsd uses "ldscript.*".
164 ;;;###autoload 164 ;;;###autoload
165 (add-to-list 'auto-mode-alist '("\\.ld[si]?\\>" . ld-script-mode)) 165 (add-to-list 'auto-mode-alist (purecopy '("\\.ld[si]?\\>" . ld-script-mode)))
166 (add-to-list 'auto-mode-alist '("ld\\.?script\\>" . ld-script-mode)) 166 ;;;###autoload
167 (add-to-list 'auto-mode-alist (purecopy '("ld\\.?script\\>" . ld-script-mode)))
167 168
168 ;;;###autoload 169 ;;;###autoload
169 (add-to-list 'auto-mode-alist '("\\.x[bdsru]?[cn]?\\'" . ld-script-mode)) 170 (add-to-list 'auto-mode-alist (purecopy '("\\.x[bdsru]?[cn]?\\'" . ld-script-mode)))
170 171
171 ;;;###autoload 172 ;;;###autoload
172 (define-derived-mode ld-script-mode nil "LD-Script" 173 (define-derived-mode ld-script-mode nil "LD-Script"
173 "A major mode to edit GNU ld script files" 174 "A major mode to edit GNU ld script files"
174 (set (make-local-variable 'comment-start) "/* ") 175 (set (make-local-variable 'comment-start) "/* ")