Mercurial > emacs
comparison lisp/files.el @ 105765:db5e4a5897ec
* textmodes/tex-mode.el (tex-dvi-view-command)
(tex-show-queue-command, tex-open-quote):
* progmodes/ruby-mode.el (auto-mode-alist)
(interpreter-mode-alist): Purecopy strings.
* emacs-lisp/lisp-mode.el (emacs-lisp-mode-map): Purecopy item names.
* emacs-lisp/derived.el (define-derived-mode): Purecopy the doc
string for the hook, keymap and abbrev table.
* emacs-lisp/byte-run.el (make-obsolete): Purecopy the current name.
* x-dnd.el (x-dnd-xdnd-to-action):
* startup.el (fancy-startup-text, fancy-about-text): Change to
defconst from defvar.
* ps-print.el (ps-page-dimensions-database): Purecopy initial value.
* mouse.el (mouse-buffer-menu-mode-groups, x-fixed-font-alist):
Purecopy initialization strings.
* mail/sendmail.el (mail-header-separator)
(mail-personal-alias-file):
* mail/rmail.el (rmail-default-dont-reply-to-names)
(rmail-ignored-headers, rmail-retry-ignored-headers)
(rmail-highlighted-headers, rmail-secondary-file-directory)
(rmail-secondary-file-regexp):
* files.el (null-device, file-name-invalid-regexp)
(locate-dominating-stop-dir-regexp)
(inhibit-first-line-modes-regexps): Purecopy initialization
strings.
(interpreter-mode-alist): Use mapcar instead of mapc.
* buff-menu.el (Buffer-menu-mode-map): Purecopy name.
* bindings.el (mode-line-major-mode-keymap): Purecopy name.
(completion-ignored-extensions):
(debug-ignored-errors): Purecopy strings.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Mon, 26 Oct 2009 06:43:36 +0000 |
parents | 26d5ef08acf0 |
children | 0ad1fc06bfc8 |
comparison
equal
deleted
inserted
replaced
105764:a5db863758a8 | 105765:db5e4a5897ec |
---|---|
207 :group 'files | 207 :group 'files |
208 :initialize 'custom-initialize-delay | 208 :initialize 'custom-initialize-delay |
209 :type '(choice (const nil) directory)) | 209 :type '(choice (const nil) directory)) |
210 | 210 |
211 ;; The system null device. (Should reference NULL_DEVICE from C.) | 211 ;; The system null device. (Should reference NULL_DEVICE from C.) |
212 (defvar null-device "/dev/null" "The system null device.") | 212 (defvar null-device (purecopy "/dev/null") "The system null device.") |
213 | 213 |
214 (declare-function msdos-long-file-names "msdos.c") | 214 (declare-function msdos-long-file-names "msdos.c") |
215 (declare-function w32-long-file-name "w32proc.c") | 215 (declare-function w32-long-file-name "w32proc.c") |
216 (declare-function dired-get-filename "dired" (&optional localp no-error-if-not-filep)) | 216 (declare-function dired-get-filename "dired" (&optional localp no-error-if-not-filep)) |
217 (declare-function dired-unmark "dired" (arg)) | 217 (declare-function dired-unmark "dired" (arg)) |
220 (declare-function view-mode-disable "view" ()) | 220 (declare-function view-mode-disable "view" ()) |
221 (declare-function dosified-file-name "dos-fns" (file-name)) | 221 (declare-function dosified-file-name "dos-fns" (file-name)) |
222 | 222 |
223 (defvar file-name-invalid-regexp | 223 (defvar file-name-invalid-regexp |
224 (cond ((and (eq system-type 'ms-dos) (not (msdos-long-file-names))) | 224 (cond ((and (eq system-type 'ms-dos) (not (msdos-long-file-names))) |
225 (purecopy | |
225 (concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive | 226 (concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive |
226 "[+, ;=|<>\"?*]\\|\\[\\|\\]\\|" ; invalid characters | 227 "[+, ;=|<>\"?*]\\|\\[\\|\\]\\|" ; invalid characters |
227 "[\000-\037]\\|" ; control characters | 228 "[\000-\037]\\|" ; control characters |
228 "\\(/\\.\\.?[^/]\\)\\|" ; leading dots | 229 "\\(/\\.\\.?[^/]\\)\\|" ; leading dots |
229 "\\(/[^/.]+\\.[^/.]*\\.\\)")) ; more than a single dot | 230 "\\(/[^/.]+\\.[^/.]*\\.\\)"))) ; more than a single dot |
230 ((memq system-type '(ms-dos windows-nt cygwin)) | 231 ((memq system-type '(ms-dos windows-nt cygwin)) |
232 (purecopy | |
231 (concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive | 233 (concat "^\\([^A-Z[-`a-z]\\|..+\\)?:\\|" ; colon except after drive |
232 "[|<>\"?*\000-\037]")) ; invalid characters | 234 "[|<>\"?*\000-\037]"))) ; invalid characters |
233 (t "[\000]")) | 235 (t (purecopy "[\000]"))) |
234 "Regexp recognizing file names which aren't allowed by the filesystem.") | 236 "Regexp recognizing file names which aren't allowed by the filesystem.") |
235 | 237 |
236 (defcustom file-precious-flag nil | 238 (defcustom file-precious-flag nil |
237 "Non-nil means protect against I/O errors while saving files. | 239 "Non-nil means protect against I/O errors while saving files. |
238 Some modes set this non-nil in particular buffers. | 240 Some modes set this non-nil in particular buffers. |
764 (cdr path-and-suffixes) | 766 (cdr path-and-suffixes) |
765 string nil action)) | 767 string nil action)) |
766 (make-obsolete 'locate-file-completion 'locate-file-completion-table "23.1") | 768 (make-obsolete 'locate-file-completion 'locate-file-completion-table "23.1") |
767 | 769 |
768 (defvar locate-dominating-stop-dir-regexp | 770 (defvar locate-dominating-stop-dir-regexp |
769 "\\`\\(?:[\\/][\\/][^\\/]+[\\/]\\|/\\(?:net\\|afs\\|\\.\\.\\.\\)/\\)\\'" | 771 (purecopy "\\`\\(?:[\\/][\\/][^\\/]+[\\/]\\|/\\(?:net\\|afs\\|\\.\\.\\.\\)/\\)\\'") |
770 "Regexp of directory names which stop the search in `locate-dominating-file'. | 772 "Regexp of directory names which stop the search in `locate-dominating-file'. |
771 Any directory whose name matches this regexp will be treated like | 773 Any directory whose name matches this regexp will be treated like |
772 a kind of root directory by `locate-dominating-file' which will stop its search | 774 a kind of root directory by `locate-dominating-file' which will stop its search |
773 when it bumps into it. | 775 when it bumps into it. |
774 The default regexp prevents fruitless and time-consuming attempts to find | 776 The default regexp prevents fruitless and time-consuming attempts to find |
2357 (defvar interpreter-mode-alist | 2359 (defvar interpreter-mode-alist |
2358 ;; Note: The entries for the modes defined in cc-mode.el (awk-mode | 2360 ;; Note: The entries for the modes defined in cc-mode.el (awk-mode |
2359 ;; and pike-mode) are added through autoload directives in that | 2361 ;; and pike-mode) are added through autoload directives in that |
2360 ;; file. That way is discouraged since it spreads out the | 2362 ;; file. That way is discouraged since it spreads out the |
2361 ;; definition of the initial value. | 2363 ;; definition of the initial value. |
2362 (mapc | 2364 (mapcar |
2363 (lambda (l) | 2365 (lambda (l) |
2364 (cons (purecopy (car l)) (cdr l))) | 2366 (cons (purecopy (car l)) (cdr l))) |
2365 '(("perl" . perl-mode) | 2367 '(("perl" . perl-mode) |
2366 ("perl5" . perl-mode) | 2368 ("perl5" . perl-mode) |
2367 ("miniperl" . perl-mode) | 2369 ("miniperl" . perl-mode) |
2402 If INTERPRETER matches the name of the interpreter specified in the first line | 2404 If INTERPRETER matches the name of the interpreter specified in the first line |
2403 of a script, mode MODE is enabled. | 2405 of a script, mode MODE is enabled. |
2404 | 2406 |
2405 See also `auto-mode-alist'.") | 2407 See also `auto-mode-alist'.") |
2406 | 2408 |
2407 (defvar inhibit-first-line-modes-regexps '("\\.tar\\'" "\\.tgz\\'") | 2409 (defvar inhibit-first-line-modes-regexps (mapcar 'purecopy '("\\.tar\\'" "\\.tgz\\'")) |
2408 "List of regexps; if one matches a file name, don't look for `-*-'.") | 2410 "List of regexps; if one matches a file name, don't look for `-*-'.") |
2409 | 2411 |
2410 (defvar inhibit-first-line-modes-suffixes nil | 2412 (defvar inhibit-first-line-modes-suffixes nil |
2411 "List of regexps for what to ignore, for `inhibit-first-line-modes-regexps'. | 2413 "List of regexps for what to ignore, for `inhibit-first-line-modes-regexps'. |
2412 When checking `inhibit-first-line-modes-regexps', we first discard | 2414 When checking `inhibit-first-line-modes-regexps', we first discard |