Commit 67ad2f93 authored by Werner LEMBERG's avatar Werner LEMBERG
Browse files

(describe-coding-system, print-coding-system-briefly): Make printed output have a similar

format as describe-character-set.
parent 78f743c7
2001-12-20 Werner Lemberg <wl@gnu.org>
* international/mule-diag.el (describe-coding-system,
print-coding-system-briefly): Make printed output have a similar
format as describe-character-set.
2001-12-20 Pavel Jan,Bm(Bk <Pavel@Janik.cz> 2001-12-20 Pavel Jan,Bm(Bk <Pavel@Janik.cz>
   
* play/blackbox.el (bb-member): Remove, use member instead. * play/blackbox.el (bb-member): Remove, use member instead.
......
...@@ -675,6 +675,7 @@ which font is being used for displaying the character." ...@@ -675,6 +675,7 @@ which font is being used for displaying the character."
(interactive-p)) (interactive-p))
(with-output-to-temp-buffer (help-buffer) (with-output-to-temp-buffer (help-buffer)
(print-coding-system-briefly coding-system 'doc-string) (print-coding-system-briefly coding-system 'doc-string)
(princ "\n")
(let ((coding-spec (coding-system-spec coding-system))) (let ((coding-spec (coding-system-spec coding-system)))
(princ "Type: ") (princ "Type: ")
(let ((type (coding-system-type coding-system)) (let ((type (coding-system-type coding-system))
...@@ -814,10 +815,10 @@ at the place of `..': ...@@ -814,10 +815,10 @@ at the place of `..':
(princ (format " %S" (cons 'alias: (cdr aliases))))) (princ (format " %S" (cons 'alias: (cdr aliases)))))
(if (memq coding-system aliases) (if (memq coding-system aliases)
(princ (format " (alias of %s)" (car aliases)))))) (princ (format " (alias of %s)" (car aliases))))))
(princ "\n") (princ "\n\n")
(if (and doc-string (if (and doc-string
(setq doc-string (coding-system-doc-string coding-system))) (setq doc-string (coding-system-doc-string coding-system)))
(princ (format " %s\n" doc-string))))) (princ (format "%s\n" doc-string)))))
;;;###autoload ;;;###autoload
(defun describe-current-coding-system () (defun describe-current-coding-system ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment