2647 |
(if (and coding-system (eq (coding-system-type coding-system) 2)) |
(if (and coding-system (eq (coding-system-type coding-system) 2)) |
2648 |
;; Try to get a pretty description for ISO 2022 escape sequences. |
;; Try to get a pretty description for ISO 2022 escape sequences. |
2649 |
(function (lambda (x) (or (cdr (assq x iso-2022-control-alist)) |
(function (lambda (x) (or (cdr (assq x iso-2022-control-alist)) |
2650 |
(format "0x%02X" x)))) |
(format "#x%02X" x)))) |
2651 |
(function (lambda (x) (format "0x%02X" x)))) |
(function (lambda (x) (format "#x%02X" x)))) |
2652 |
str " ")) |
str " ")) |
2653 |
|
|
2654 |
(defun encode-coding-char (char coding-system) |
(defun encode-coding-char (char coding-system) |