Commits

Anonymous committed 510b42c

Apply patch from <87g0xyc0un.fsf@dp50.ecc.u-tokyo.ac.jp> to fix
mule-diag.

  • Participants
  • Parent commits fc10289

Comments (0)

Files changed (2)

+1999-11-22  Yoshiki Hayashi  <t90553@mail.ecc.u-tokyo.ac.jp>
+
+	* mule-diag.el (list-coding-systems): Use
+	with-displaying-help-buffer.
+	(list-input-methods): Ditto.
+	(list-coding-categories): Autoload. Use coding-category-system
+	and made interactive.
+
 1999-06-30  MORIOKA Tomohiko  <tomo@etl.go.jp>
 
 	* mule-debug.el (list-coding-system-briefly): Define as an

File mule-diag.el

 With prefix arg, the output format gets more cryptic,
 but still contains full information about each coding system."
   (interactive "P")
-  (with-output-to-temp-buffer "*Help*"
-    (list-coding-systems-1 arg)))
+  (with-displaying-help-buffer
+   (lambda ()
+     (with-current-buffer standard-output
+       (list-coding-systems-1 arg)))))
+
 
 (defun list-coding-systems-1 (arg)
   (if (null arg)
 	(print-coding-system coding-system))
       (setq bases (cdr bases)))))
 
-;;;###automatic
+;;;###autoload
 (defun list-coding-categories ()
   "Display a list of all coding categories."
+  (interactive)
   (with-output-to-temp-buffer "*Help*"
     (princ "\
 ############################
 ")
     (let ((l (coding-priority-list)))
       (while l
-	(princ (format "%s:%s\n" (car l) (symbol-value (car l))))
+	(princ (format "%s:%s\n" (car l) (coding-category-system (car l))))
 	(setq l (cdr l))))))
 
 ;;; FONT
 (defun list-input-methods ()
   "Display information about all input methods."
   (interactive)
-  (with-output-to-temp-buffer "*Help*"
-    (list-input-methods-1)))
+  (with-displaying-help-buffer
+   (lambda ()
+     (with-current-buffer standard-output
+       (list-input-methods-1)))))
+
 
 (defun list-input-methods-1 ()
   (if (not input-method-alist)