comparison lisp/international/mule-cmds.el @ 50535:32b881425e3d

(sort-coding-systems): Lower the priorities of all utf-16 base coding systems.

50534:a3dafc05fe67

			   ;; MIME charset.
			   (if mime
			       ;; 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))

50535:32b881425e3d

			   ;; MIME charset.
			   (if mime
			       ;; Lower utf-16 priority so that we
			       ;; normally prefer utf-8 to it, and put
			       ;; x-ctext below that.
			       (cond ((string-match "utf-16"
						    (symbol-name mime))
				      16)
				     ((string-match "^x-" (symbol-name mime))
				      8)
				     (t 32))
			     0))