Mercurial > emacs
changeset 42209:2c4fb0cccd48
(describe-coding-system, print-coding-system-briefly): Make printed output have a similar
format as describe-character-set.
| author | Werner LEMBERG <wl@gnu.org> |
|---|---|
| date | Thu, 20 Dec 2001 21:32:26 +0000 |
| parents | 3dd01dfd38c1 |
| children | 749313e92a43 |
| files | lisp/international/mule-diag.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule-diag.el Thu Dec 20 20:14:29 2001 +0000 +++ b/lisp/international/mule-diag.el Thu Dec 20 21:32:26 2001 +0000 @@ -675,6 +675,7 @@ (interactive-p)) (with-output-to-temp-buffer (help-buffer) (print-coding-system-briefly coding-system 'doc-string) + (princ "\n") (let ((coding-spec (coding-system-spec coding-system))) (princ "Type: ") (let ((type (coding-system-type coding-system)) @@ -814,10 +815,10 @@ (princ (format " %S" (cons 'alias: (cdr aliases))))) (if (memq coding-system aliases) (princ (format " (alias of %s)" (car aliases)))))) - (princ "\n") + (princ "\n\n") (if (and doc-string (setq doc-string (coding-system-doc-string coding-system))) - (princ (format " %s\n" doc-string))))) + (princ (format "%s\n" doc-string))))) ;;;###autoload (defun describe-current-coding-system ()