/[emacs]/emacs/lisp/international/mule-cmds.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-cmds.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.170.4.5 by fx, Sun Dec 15 16:12:21 2002 UTC revision 1.170.4.6 by handa, Tue May 6 06:59:34 2003 UTC
# Line 398  non-nil, it is used to sort CODINGS diff Line 398  non-nil, it is used to sort CODINGS diff
398                      (let ((base (coding-system-base x)))                      (let ((base (coding-system-base x)))
399                        (+ (if (eq base most-preferred) 64 0)                        (+ (if (eq base most-preferred) 64 0)
400                           (let ((mime (coding-system-get base 'mime-charset)))                           (let ((mime (coding-system-get base 'mime-charset)))
401                               ;; Prefer coding systems corresponding to a
402                               ;; MIME charset.
403                             (if mime                             (if mime
404                                 (if (string-match "^x-" (symbol-name mime))                                 ;; Lower utf-16 priority so that we
405                                     16 32)                                 ;; normally prefer utf-8 to it, and put
406                                   ;; x-ctext below that.
407                                   (cond ((string-match "^utf-16"
408                                                        (symbol-name mime))
409                                          16)
410                                         ((string-match "^x-" (symbol-name mime))
411                                          8)
412                                         (t 32))
413                               0))                               0))
414                           (if (memq base lang-preferred) 8 0)                           (if (memq base lang-preferred) 8 0)
415                           (if (string-match "-with-esc$" (symbol-name base))                           (if (string-match "-with-esc$" (symbol-name base))

Legend:
Removed from v.1.170.4.5  
changed lines
  Added in v.1.170.4.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26