diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2009-11-11 19:24:20 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2009-11-11 19:24:20 +0000 |
| commit | aaa448c984ad227585dac4a2fe2ee5bdc467e25e (patch) | |
| tree | 73cfced623c9a2f6596f52eb261a28660031cc33 /lisp/international/mule-conf.el | |
| parent | 04420943de5a7a92f94c7642b76990c77ca751f8 (diff) | |
| download | emacs-aaa448c984ad227585dac4a2fe2ee5bdc467e25e.tar.gz | |
* widget.el (define-widget): Purecopy the docstring.
* international/mule-cmds.el (charset): Do not purecopy the
docstring here, define-widget does it.
* textmodes/texinfo.el (texinfo-open-quote, texinfo-close-quote):
* textmodes/bibtex-style.el (auto-mode-alist):
* progmodes/inf-lisp.el (inferior-lisp-prompt):
* progmodes/compile.el (compile-command):
* language/korea-util.el (default-korean-keyboard):
* international/mule-conf.el (file-coding-system-alist):
* emacs-lisp/eldoc.el (eldoc-minor-mode-string):
* tooltip.el (tooltip-frame-parameters):
* newcomment.el (comment-end, comment-padding):
* dired.el (dired-trivial-filenames):
* comint.el (comint-file-name-prefix): Purecopy initial values.
Diffstat (limited to 'lisp/international/mule-conf.el')
| -rw-r--r-- | lisp/international/mule-conf.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el index b32f8a93f7a..e0c1dede211 100644 --- a/lisp/international/mule-conf.el +++ b/lisp/international/mule-conf.el @@ -1504,6 +1504,7 @@ for decoding and encoding files, process I/O, etc." ;; Tar files are not decoded at all, but we treat them as raw bytes. (setq file-coding-system-alist + (mapcar (lambda (arg) (cons (purecopy (car arg)) (cdr arg))) '(("\\.elc\\'" . utf-8-emacs) ("\\.utf\\(-8\\)?\\'" . utf-8) ("\\.xml\\'" . xml-find-file-coding-system) @@ -1516,7 +1517,7 @@ for decoding and encoding files, process I/O, etc." ("\\.tar\\'" . (no-conversion . no-conversion)) ( "\\.po[tx]?\\'\\|\\.po\\." . po-find-file-coding-system) ("\\.\\(tex\\|ltx\\|dtx\\|drv\\)\\'" . latexenc-find-file-coding-system) - ("" . (undecided . nil)))) + ("" . (undecided . nil))))) ;;; Setting coding categories and their priorities. |