Mercurial > emacs
changeset 88655:ea446bb886ad
(print-coding-system-briefly): Fix
printing aliases.
(print-coding-system): Use coding-system-aliases.
(mule-diag): Don't list coding categories.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sun, 26 May 2002 22:45:31 +0000 |
| parents | ce18173db20e |
| children | 7b1035a6538b |
| files | lisp/international/mule-diag.el |
| diffstat | 1 files changed, 4 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-diag.el Sun May 26 22:43:14 2002 +0000 +++ b/lisp/international/mule-diag.el Sun May 26 22:45:31 2002 +0000 @@ -681,7 +681,7 @@ (princ (format "%c -- %s" (coding-system-mnemonic coding-system) coding-system)) - (let ((aliases (coding-system-get coding-system 'alias-coding-systems))) + (let ((aliases (coding-system-aliases coding-system))) (if (eq coding-system (car aliases)) (if (cdr aliases) (princ (format " %S" (cons 'alias: (cdr aliases))))) @@ -740,6 +740,7 @@ from these, and therefore cannot be recognized automatically with the present coding system priorities.\n\n") + ;; Fixme: should this be replaced or junked? (if nil (let ((categories '(coding-category-iso-7 coding-category-iso-7-else)) coding-system codings) @@ -749,7 +750,6 @@ (function (lambda (x) (if (and (not (eq x coding-system)) - (coding-system-get x 'no-initial-designation) (let ((flags (coding-system-get :flags))) (not (or (memq 'use-roman flags) (memq 'use-oldjis flags))))) @@ -800,7 +800,7 @@ (let ((type (coding-system-type coding-system)) (eol-type (coding-system-eol-type coding-system)) (flags (coding-system-get coding-system :flags)) - (aliases (coding-system-get coding-system 'alias-coding-systems))) + (aliases (coding-system-aliases coding-system))) (if (not (eq (car aliases) coding-system)) (princ (format "%s (alias of %s)\n" coding-system (car aliases))) (princ coding-system) @@ -913,6 +913,7 @@ (print-coding-system coding-system)) (setq bases (cdr bases))))) +;; Fixme: delete? ;;;###autoload (defun list-coding-categories () "Display a list of all coding categories." @@ -1197,16 +1198,6 @@ (insert-section 4 "Coding systems") (list-coding-systems-1 t) - (princ "\ -############################ -## LIST OF CODING CATEGORIES (ordered by priority) -## CATEGORY:CODING-SYSTEM -## -") - (let ((l coding-category-list)) - (while l - (princ (format "%s:%s\n" (car l) (symbol-value (car l)))) - (setq l (cdr l)))) (insert "\n") (insert-section 5 "Character sets")