diff options
| -rw-r--r-- | lisp/international/mule-diag.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index 2b8b225963e..78c0e1c0e6e 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el | |||
| @@ -618,6 +618,16 @@ PC `codepages' and other coded character sets. See `non-iso-charset-alist'." | |||
| 618 | (with-output-to-temp-buffer (help-buffer) | 618 | (with-output-to-temp-buffer (help-buffer) |
| 619 | (print-coding-system-briefly coding-system 'doc-string) | 619 | (print-coding-system-briefly coding-system 'doc-string) |
| 620 | (princ "\n") | 620 | (princ "\n") |
| 621 | (let ((vars (coding-system-get coding-system 'dependency))) | ||
| 622 | (when vars | ||
| 623 | (princ "See also the documentation of these customizable variables | ||
| 624 | which alter the behaviour of this coding system.\n") | ||
| 625 | (dolist (v vars) | ||
| 626 | (princ " `") | ||
| 627 | (princ v) | ||
| 628 | (princ "'\n")) | ||
| 629 | (princ "\n"))) | ||
| 630 | |||
| 621 | (princ "Type: ") | 631 | (princ "Type: ") |
| 622 | (let ((type (coding-system-type coding-system)) | 632 | (let ((type (coding-system-type coding-system)) |
| 623 | (flags (coding-system-flags coding-system))) | 633 | (flags (coding-system-flags coding-system))) |