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

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

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

revision 1.68.2.8 by fx, Sun May 26 17:19:34 2002 UTC revision 1.68.2.9 by fx, Sun May 26 22:45:31 2002 UTC
# Line 681  in place of `..': Line 681  in place of `..':
681      (princ (format "%c -- %s"      (princ (format "%c -- %s"
682                     (coding-system-mnemonic coding-system)                     (coding-system-mnemonic coding-system)
683                     coding-system))                     coding-system))
684      (let ((aliases (coding-system-get coding-system 'alias-coding-systems)))      (let ((aliases (coding-system-aliases coding-system)))
685        (if (eq coding-system (car aliases))        (if (eq coding-system (car aliases))
686            (if (cdr aliases)            (if (cdr aliases)
687                (princ (format " %S" (cons 'alias: (cdr aliases)))))                (princ (format " %S" (cons 'alias: (cdr aliases)))))
# Line 740  Priority order for recognizing coding sy Line 740  Priority order for recognizing coding sy
740    from these, and therefore cannot be recognized automatically    from these, and therefore cannot be recognized automatically
741    with the present coding system priorities.\n\n")    with the present coding system priorities.\n\n")
742    
743          ;; Fixme: should this be replaced or junked?
744        (if nil        (if nil
745        (let ((categories '(coding-category-iso-7 coding-category-iso-7-else))        (let ((categories '(coding-category-iso-7 coding-category-iso-7-else))
746              coding-system codings)              coding-system codings)
# Line 749  Priority order for recognizing coding sy Line 750  Priority order for recognizing coding sy
750             (function             (function
751              (lambda (x)              (lambda (x)
752                (if (and (not (eq x coding-system))                (if (and (not (eq x coding-system))
                        (coding-system-get x 'no-initial-designation)  
753                         (let ((flags (coding-system-get :flags)))                         (let ((flags (coding-system-get :flags)))
754                           (not (or (memq 'use-roman flags)                           (not (or (memq 'use-roman flags)
755                                    (memq 'use-oldjis flags)))))                                    (memq 'use-oldjis flags)))))
# Line 800  Priority order for recognizing coding sy Line 800  Priority order for recognizing coding sy
800    (let ((type (coding-system-type coding-system))    (let ((type (coding-system-type coding-system))
801          (eol-type (coding-system-eol-type coding-system))          (eol-type (coding-system-eol-type coding-system))
802          (flags (coding-system-get coding-system :flags))          (flags (coding-system-get coding-system :flags))
803          (aliases (coding-system-get coding-system 'alias-coding-systems)))          (aliases (coding-system-aliases coding-system)))
804      (if (not (eq (car aliases) coding-system))      (if (not (eq (car aliases) coding-system))
805          (princ (format "%s (alias of %s)\n" coding-system (car aliases)))          (princ (format "%s (alias of %s)\n" coding-system (car aliases)))
806        (princ coding-system)        (princ coding-system)
# Line 913  but still contains full information abou Line 913  but still contains full information abou
913          (print-coding-system coding-system))          (print-coding-system coding-system))
914        (setq bases (cdr bases)))))        (setq bases (cdr bases)))))
915    
916    ;; Fixme: delete?
917  ;;;###autoload  ;;;###autoload
918  (defun list-coding-categories ()  (defun list-coding-categories ()
919    "Display a list of all coding categories."    "Display a list of all coding categories."
# Line 1197  system which uses fontsets)." Line 1198  system which uses fontsets)."
1198    
1199        (insert-section 4 "Coding systems")        (insert-section 4 "Coding systems")
1200        (list-coding-systems-1 t)        (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))))  
1201        (insert "\n")        (insert "\n")
1202    
1203        (insert-section 5 "Character sets")        (insert-section 5 "Character sets")

Legend:
Removed from v.1.68.2.8  
changed lines
  Added in v.1.68.2.9

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