diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2009-10-30 02:00:11 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2009-10-30 02:00:11 +0000 |
| commit | 78e97352bf64349bad5adc433cfb0b1df61ed3de (patch) | |
| tree | 73ca2cf49aa2deac23915346644691376b5b5d68 /lisp/international | |
| parent | 20b3498646c1ddbce6430a5ef517a7dbafca01f0 (diff) | |
| download | emacs-78e97352bf64349bad5adc433cfb0b1df61ed3de.tar.gz | |
* puresize.h (BASE_PURESIZE): Increase to 1470000.
* lread.c (Fload): Purecopy the file name when building Vpreloaded_file_list.
* textmodes/ispell.el (ispell-skip-region-alist):
* international/mule-conf.el (eight-bit):
* international/fontset.el (font-encoding-alist):
* startup.el (pure-space-overflow-message):
* simple.el (overwrite-mode-textual, overwrite-mode-binary):
* paths.el (gnus-nntp-service, rmail-spool-directory)
(term-file-prefix):
* files.el (save-some-buffers-action-alist):
* cmuscheme.el (same-window-buffer-names):
* ielm.el (same-window-buffer-names):
* shell.el (same-window-buffer-names):
* mail/sendmail.el (same-window-buffer-names):
* progmodes/inf-lisp.el (same-window-buffer-names):
* bindings.el (mode-line-client)
(mode-line-column-line-number-mode-map):
* language/tibetan.el (tibetan-precomposition-rule-regexp)
(tibetan-precomposed-regexp): Purecopy string arguments.
Diffstat (limited to 'lisp/international')
| -rw-r--r-- | lisp/international/fontset.el | 4 | ||||
| -rw-r--r-- | lisp/international/mule-conf.el | 4 |
2 files changed, 5 insertions, 3 deletions
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index dd8b8634631..87ea17805cb 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el @@ -34,6 +34,8 @@ ;; Setup font-encoding-alist for all known encodings. (setq font-encoding-alist + (mapcar (lambda (arg) + (cons (purecopy (car arg)) (cdr arg))) '(("iso8859-1$" . iso-8859-1) ("iso8859-2$" . iso-8859-2) ("iso8859-3$" . iso-8859-3) @@ -116,7 +118,7 @@ ("mulelao-1" . mule-lao) ("muletibetan-2" . tibetan) ("muletibetan-0" . tibetan) - ("muletibetan-1" . tibetan-1-column))) + ("muletibetan-1" . tibetan-1-column)))) (defvar font-encoding-charset-alist) diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el index 8805d5c17aa..9b231015529 100644 --- a/lisp/international/mule-conf.el +++ b/lisp/international/mule-conf.el @@ -109,8 +109,8 @@ (put-charset-property 'emacs :long-name "Emacs") -(put-charset-property 'eight-bit :docstring "Raw bytes 128-255") -(put-charset-property 'eight-bit :short-name "Raw bytes") +(put-charset-property 'eight-bit :docstring (purecopy "Raw bytes 128-255")) +(put-charset-property 'eight-bit :short-name (purecopy "Raw bytes")) (define-charset-alias 'ucs 'unicode) |