618 |
(with-output-to-temp-buffer (help-buffer) |
(with-output-to-temp-buffer (help-buffer) |
619 |
(print-coding-system-briefly coding-system 'doc-string) |
(print-coding-system-briefly coding-system 'doc-string) |
620 |
(princ "\n") |
(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 |
|
|
631 |
(princ "Type: ") |
(princ "Type: ") |
632 |
(let ((type (coding-system-type coding-system)) |
(let ((type (coding-system-type coding-system)) |
633 |
(flags (coding-system-flags coding-system))) |
(flags (coding-system-flags coding-system))) |