[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
small improvement of describe-coding-system
From: |
Werner LEMBERG |
Subject: |
small improvement of describe-coding-system |
Date: |
Tue, 18 Dec 2001 23:20:06 +0100 (CET) |
I suggest the following change to describe-coding-system.
. This makes the output looking similar to describe-character-set
and describe-language-environment.
. Multiline strings are formatted better (I just have had to
introduce such a string for euc-tw).
If you agree, I'll install it.
Werner
======================================================================
--- mule-diag.el Tue Dec 18 22:37:09 2001
+++ mule-diag.el.new Tue Dec 18 23:14:28 2001
@@ -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 ()
- small improvement of describe-coding-system,
Werner LEMBERG <=