Mercurial > emacs
changeset 88796:d740bbf6ca68
(sort-coding-systems): Comment out
iso-2022 case.
(encoded-string-description): Fix coding-system-type test.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Thu, 27 Jun 2002 18:39:54 +0000 |
| parents | d726f6eea9df |
| children | ac14949a64e4 |
| files | lisp/international/mule-cmds.el |
| diffstat | 1 files changed, 15 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-cmds.el Thu Jun 27 18:37:40 2002 +0000 +++ b/lisp/international/mule-cmds.el Thu Jun 27 18:39:54 2002 +0000 @@ -252,6 +252,7 @@ "Execute an I/O command using the specified coding system." (interactive) (let* ((default (and buffer-file-coding-system + ;; Fixme: what is t here? (not (eq (coding-system-type buffer-file-coding-system) t)) buffer-file-coding-system)) @@ -393,18 +394,19 @@ (if (memq base lang-preferred) 8 0) (if (string-match "-with-esc$" (symbol-name base)) 0 4) - (if (eq (coding-system-type base) 2) - ;; For ISO based coding systems, prefer - ;; one that doesn't use escape sequences. - ;; Fixme: coding-system-spec - (let* ((extra-spec (coding-system-spec base)) - (flags (aref extra-spec 3))) - (if (/= (logand flags #x40) 0) - (if (/= (logand flags #x30) 0) - 0 - 1) - 2)) - 1))))))) +;; Fixme: sort out coding-system-spec +;; (if (eq (coding-system-type base) 'iso-2022) +;; ;; For ISO based coding systems, prefer +;; ;; one that doesn't use escape sequences. +;; (let* ((extra-spec (coding-system-spec base)) +;; (flags (aref extra-spec 3))) +;; (if (/= (logand flags #x40) 0) +;; (if (/= (logand flags #x30) 0) +;; 0 +;; 1) +;; 2)) +;; 1) + )))))) (sort codings (function (lambda (x y) (> (funcall func x) (funcall func y)))))))) @@ -2011,7 +2013,7 @@ "Return a pretty description of STR that is encoded by CODING-SYSTEM." (setq str (string-as-unibyte str)) (mapconcat - (if (and coding-system (eq (coding-system-type coding-system) 2)) + (if (and coding-system (eq (coding-system-type coding-system) 'iso-2022)) ;; Try to get a pretty description for ISO 2022 escape sequences. (function (lambda (x) (or (cdr (assq x iso-2022-control-alist)) (format "%02X" x))))