Commit b439e72a authored by Dave Love's avatar Dave Love
Browse files

(sort-coding-systems): Adjust

priority of utf-16 and x-ctext.
parent 13d472b8
2003-01-03 Dave Love <fx@gnu.org>
* international/mule-cmds.el (sort-coding-systems): Adjust
priority of utf-16 and x-ctext.
* international/utf-8.el (utf-translate-cjk): Call
optimize-char-coding-system-table.
* international/ucs-tables.el (ucs-unify-8859, ucs-fragment-8859):
Call optimize-char-coding-system-table.
* international/mule.el (register-char-codings): Don't call
optimize-char-coding-system-table here.
(keyboard-coding-system): Doc fix. Update :version.
* textmodes/nroff-mode.el (nroff-mode-hook): Customize.
(nroff-imenu-expression): New.
(nroff-mode): Use it.
* autoinsert.el (auto-insert-alist): Add man page skeleton.
2003-01-03 Andre Spiegel <spiegel@gnu.org>
 
* vc-rcs.el (vc-rcs-revert): Unlock only if the user does have
......
......@@ -425,9 +425,18 @@ non-nil, it is used to sort CODINGS in the different way than above."
(let ((base (coding-system-base x)))
(+ (if (eq base most-preferred) 64 0)
(let ((mime (coding-system-get base 'mime-charset)))
;; Prefer coding systems corresponding to a
;; MIME charset.
(if mime
(if (string-match "^x-" (symbol-name mime))
16 32)
;; Lower utf-16 priority so that we
;; normally prefer utf-8 to it, and put
;; x-ctext below that.
(cond ((or (eq base 'mule-utf-16-le)
(eq base 'mule-utf-16-be))
16)
((string-match "^x-" (symbol-name mime))
8)
(t 32))
0))
(if (memq base lang-preferred) 8 0)
(if (string-match "-with-esc$" (symbol-name base))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment