mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

(sort-coding-systems): Adjust

Browse source 
priority of utf-16 and x-ctext.
This commit is contained in:
Dave Love 2003-01-03 20:16:56 +00:00
parent 13d472b871
commit b439e72aa8
2 changed files with 32 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lisp/ChangeLog
View file

@ -1,3 +1,24 @@
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

13
lisp/international/mule-cmds.el
View file

@ -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))