/[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.91 by fx, Thu Sep 4 18:19:36 2003 UTC revision 1.92 by handa, Tue Oct 7 06:45:46 2003 UTC
# Line 996  but still contains full information abou Line 996  but still contains full information abou
996    (dolist (coding-system (sort-coding-systems (coding-system-list 'base-only)))    (dolist (coding-system (sort-coding-systems (coding-system-list 'base-only)))
997      (if (null arg)      (if (null arg)
998          (print-coding-system-briefly coding-system 'tightly)          (print-coding-system-briefly coding-system 'tightly)
999        (print-coding-system coding-system))))        (print-coding-system coding-system)))
1000      (let ((first t))
1001        (dolist (elt coding-system-alist)
1002          (unless (memq (intern (car elt)) coding-system-list)
1003            (when first
1004              (princ "\
1005    ####################################################
1006    # The following coding systems are not yet loaded. #
1007    ####################################################
1008    ")
1009              (setq first nil))
1010            (princ-list (car elt))))))
1011    
1012  ;;;###autoload  ;;;###autoload
1013  (defun list-coding-categories ()  (defun list-coding-categories ()

Legend:
Removed from v.1.91  
changed lines
  Added in v.1.92

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