[Emacs-diffs] Changes to emacs/lisp/international/mule-diag.el

[Kenichi Handa]

Index: emacs/lisp/international/mule-diag.el
diff -c emacs/lisp/international/mule-diag.el:1.91 
emacs/lisp/international/mule-diag.el:1.92
*** emacs/lisp/international/mule-diag.el:1.91  Thu Sep  4 14:19:36 2003
--- emacs/lisp/international/mule-diag.el       Tue Oct  7 02:45:46 2003
***************
*** 996,1002 ****
    (dolist (coding-system (sort-coding-systems (coding-system-list 
'base-only)))
      (if (null arg)
        (print-coding-system-briefly coding-system 'tightly)
!       (print-coding-system coding-system))))
  
  ;;;###autoload
  (defun list-coding-categories ()
--- 996,1013 ----
    (dolist (coding-system (sort-coding-systems (coding-system-list 
'base-only)))
      (if (null arg)
        (print-coding-system-briefly coding-system 'tightly)
!       (print-coding-system coding-system)))
!   (let ((first t))
!     (dolist (elt coding-system-alist)
!       (unless (memq (intern (car elt)) coding-system-list)
!       (when first
!         (princ "\
! ####################################################
! # The following coding systems are not yet loaded. #
! ####################################################
! ")
!         (setq first nil))
!       (princ-list (car elt))))))
  
  ;;;###autoload
  (defun list-coding-categories ()