summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog13
-rw-r--r--lisp/composite.el2
-rw-r--r--lisp/files.el2
-rw-r--r--lisp/find-file.el4
-rw-r--r--lisp/international/mule.el6
-rw-r--r--lisp/jka-cmpr-hook.el3
-rw-r--r--lisp/paths.el2
-rw-r--r--lisp/progmodes/compile.el2
-rw-r--r--lisp/replace.el2
-rw-r--r--lisp/simple.el4
-rw-r--r--lisp/textmodes/css-mode.el2
-rw-r--r--lisp/textmodes/ispell.el2
12 files changed, 30 insertions, 14 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 80d816cc517..000d55ab89e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,18 @@
2009-11-12 Dan Nicolaescu <dann@ics.uci.edu>
+ * textmodes/ispell.el (ispell-skip-region-alist):
+ * textmodes/css-mode.el (auto-mode-alist):
+ * progmodes/compile.el (auto-mode-alist):
+ * international/mule.el (ctext-non-standard-encodings-alist)
+ (ctext-non-standard-encodings-regexp):
+ * simple.el (shell-command-switch, text-read-only):
+ * replace.el (occur-mode-map):
+ * paths.el (rmail-file-name):
+ * jka-cmpr-hook.el (jka-compr-build-file-regexp):
+ * find-file.el (ff-special-constructs):
+ * files.el (file-name-handler-alist):
+ * composite.el: Purecopy strings.
+
* emacs-lisp/cl-macs.el (define-compiler-macro): Purecopy the file name.
2009-11-11 Dan Nicolaescu <dann@ics.uci.edu>
diff --git a/lisp/composite.el b/lisp/composite.el
index c9f16e2f518..ce7ea95800b 100644
--- a/lisp/composite.el
+++ b/lisp/composite.el
@@ -655,7 +655,7 @@ All non-spacing characters has this function in
(setq i (1+ i))))
gstring))))))
-(let ((elt '(["\\c.\\c^+" 1 compose-gstring-for-graphic]
+(let ((elt `([,(purecopy "\\c.\\c^+") 1 compose-gstring-for-graphic]
[nil 0 compose-gstring-for-graphic])))
(map-char-table
#'(lambda (key val)
diff --git a/lisp/files.el b/lisp/files.el
index 328239b5e37..3fc64600786 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -5945,7 +5945,7 @@ only these files will be asked to be saved."
;; so that magic file name handlers will not apply to it.
(setq file-name-handler-alist
- (cons '("\\`/:" . file-name-non-special)
+ (cons (cons (purecopy "\\`/:") 'file-name-non-special)
file-name-handler-alist))
;; We depend on being the last handler on the list,
diff --git a/lisp/find-file.el b/lisp/find-file.el
index d4e335def70..8042cfb2a4a 100644
--- a/lisp/find-file.el
+++ b/lisp/find-file.el
@@ -183,9 +183,9 @@ To override this, give an argument to `ff-find-other-file'."
;;;###autoload
(defvar ff-special-constructs
- '(
+ `(
;; C/C++ include, for NeXTSTEP too
- ("^\#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]" .
+ (,(purecopy "^\#\\s *\\(include\\|import\\)\\s +[<\"]\\(.*\\)[>\"]") .
(lambda ()
(buffer-substring (match-beginning 2) (match-end 2))))
)
diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index c4e8f06f5e0..7ccec501c7d 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1404,10 +1404,11 @@ This function is provided for backward compatibility."
;;; X selections
(defvar ctext-non-standard-encodings-alist
+ (mapcar 'purecopy
'(("big5-0" big5 2 big5)
("ISO8859-14" iso-8859-14 1 latin-iso8859-14)
("ISO8859-15" iso-8859-15 1 latin-iso8859-15)
- ("gbk-0" gbk 2 chinese-gbk))
+ ("gbk-0" gbk 2 chinese-gbk)))
"Alist of non-standard encoding names vs the corresponding usages in CTEXT.
It controls how extended segments of a compound text are handled
@@ -1440,13 +1441,14 @@ Each element must be one of the names listed in the variable
`ctext-non-standard-encodings-alist' (which see).")
(defvar ctext-non-standard-encodings-regexp
+ (purecopy
(string-to-multibyte
(concat
;; For non-standard encodings.
"\\(\e%/[0-4][\200-\377][\200-\377]\\([^\002]+\\)\002\\)"
"\\|"
;; For UTF-8 encoding.
- "\\(\e%G[^\e]*\e%@\\)")))
+ "\\(\e%G[^\e]*\e%@\\)"))))
;; Functions to support "Non-Standard Character Set Encodings" defined
;; by the COMPOUND-TEXT spec. They also support "The UTF-8 encoding"
diff --git a/lisp/jka-cmpr-hook.el b/lisp/jka-cmpr-hook.el
index fab5c6ba925..6697d241987 100644
--- a/lisp/jka-cmpr-hook.el
+++ b/lisp/jka-cmpr-hook.el
@@ -71,10 +71,11 @@ Otherwise, it is nil.")
(defun jka-compr-build-file-regexp ()
+ (purecopy
(mapconcat
'jka-compr-info-regexp
jka-compr-compression-info-list
- "\\|"))
+ "\\|")))
;; Functions for accessing the return value of jka-compr-get-compression-info
(defun jka-compr-info-regexp (info) (aref info 0))
diff --git a/lisp/paths.el b/lisp/paths.el
index 7af0136a478..ac072ac7b01 100644
--- a/lisp/paths.el
+++ b/lisp/paths.el
@@ -132,7 +132,7 @@ should be set to `(system-name)'.")
*The name of your organization, as a string.
The `ORGANIZATION' environment variable is used instead if defined.")
-(defcustom rmail-file-name "~/RMAIL" "\
+(defcustom rmail-file-name (purecopy "~/RMAIL") "\
Name of user's primary mail file."
:type 'string
:group 'rmail
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index f101fe65064..cb2b8986f22 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -2377,7 +2377,7 @@ The file-structure looks like this:
(eq compilation-scroll-output 'first-error))))
;;;###autoload
-(add-to-list 'auto-mode-alist '("\\.gcov\\'" . compilation-mode))
+(add-to-list 'auto-mode-alist (cons (purecopy "\\.gcov\\'") 'compilation-mode))
(provide 'compile)
diff --git a/lisp/replace.el b/lisp/replace.el
index b4b614534d9..7e14895d1e6 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -773,7 +773,7 @@ a previously found match."
(menu-bar-make-mm-toggle next-error-follow-minor-mode
"Auto Occurrence Display"
"Display another occurrence when moving the cursor"))
- (define-key map [separator-1] '("--"))
+ (define-key map [separator-1] menu-bar-separator)
(define-key map [kill-this-buffer]
`(menu-item ,(purecopy "Kill occur buffer") kill-this-buffer
:help ,(purecopy "Kill the current *Occur* buffer")))
diff --git a/lisp/simple.el b/lisp/simple.el
index 00693b3bb56..73c7ac7579f 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2003,7 +2003,7 @@ which is defined in the `warnings' library.\n")
Maximum length of the history list is determined by the value
of `history-length', which see.")
-(defvar shell-command-switch "-c"
+(defvar shell-command-switch (purecopy "-c")
"Switch used to have the shell execute its command line argument.")
(defvar shell-command-default-error-buffer nil
@@ -2945,7 +2945,7 @@ move the yanking point; just return the Nth kill forward."
(put 'text-read-only 'error-conditions
'(text-read-only buffer-read-only error))
-(put 'text-read-only 'error-message "Text is read-only")
+(put 'text-read-only 'error-message (purecopy "Text is read-only"))
(defun kill-region (beg end &optional yank-handler)
"Kill (\"cut\") text between point and mark.
diff --git a/lisp/textmodes/css-mode.el b/lisp/textmodes/css-mode.el
index 70dc3ca5706..58a7766f2a3 100644
--- a/lisp/textmodes/css-mode.el
+++ b/lisp/textmodes/css-mode.el
@@ -257,7 +257,7 @@
(defvar css-font-lock-defaults
'(css-font-lock-keywords nil t))
-;;;###autoload (add-to-list 'auto-mode-alist '("\\.css\\'" . css-mode))
+;;;###autoload (add-to-list 'auto-mode-alist (cons (purecopy "\\.css\\'") 'css-mode))
;;;###autoload
(define-derived-mode css-mode fundamental-mode "CSS"
"Major mode to edit Cascading Style Sheets."
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 75cc8e0de47..f8fd0685be1 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1406,7 +1406,7 @@ The last occurring definition in the buffer will be used.")
;; Matches e-mail addresses, file names, http addresses, etc. The
;; `-+' `_+' patterns are necessary for performance reasons when
;; `-' or `_' part of word syntax.
- ("\\(--+\\|_+\\|\\(/\\w\\|\\(\\(\\w\\|[-_]\\)+[.:@]\\)\\)\\(\\w\\|[-_]\\)*\\([.:/@]+\\(\\w\\|[-_~=?&]\\)+\\)+\\)")
+ (,(purecopy "\\(--+\\|_+\\|\\(/\\w\\|\\(\\(\\w\\|[-_]\\)+[.:@]\\)\\)\\(\\w\\|[-_]\\)*\\([.:/@]+\\(\\w\\|[-_~=?&]\\)+\\)+\\)"))
;; above checks /.\w sequences
;;("\\(--+\\|\\(/\\|\\(\\(\\w\\|[-_]\\)+[.:@]\\)\\)\\(\\w\\|[-_]\\)*\\([.:/@]+\\(\\w\\|[-_~=?&]\\)+\\)+\\)")
;; This is a pretty complex regexp. It can be simplified to the following: