675 |
(interactive-p)) |
(interactive-p)) |
676 |
(with-output-to-temp-buffer (help-buffer) |
(with-output-to-temp-buffer (help-buffer) |
677 |
(print-coding-system-briefly coding-system 'doc-string) |
(print-coding-system-briefly coding-system 'doc-string) |
678 |
|
(princ "\n") |
679 |
(let ((coding-spec (coding-system-spec coding-system))) |
(let ((coding-spec (coding-system-spec coding-system))) |
680 |
(princ "Type: ") |
(princ "Type: ") |
681 |
(let ((type (coding-system-type coding-system)) |
(let ((type (coding-system-type coding-system)) |
815 |
(princ (format " %S" (cons 'alias: (cdr aliases))))) |
(princ (format " %S" (cons 'alias: (cdr aliases))))) |
816 |
(if (memq coding-system aliases) |
(if (memq coding-system aliases) |
817 |
(princ (format " (alias of %s)" (car aliases)))))) |
(princ (format " (alias of %s)" (car aliases)))))) |
818 |
(princ "\n") |
(princ "\n\n") |
819 |
(if (and doc-string |
(if (and doc-string |
820 |
(setq doc-string (coding-system-doc-string coding-system))) |
(setq doc-string (coding-system-doc-string coding-system))) |
821 |
(princ (format " %s\n" doc-string))))) |
(princ (format "%s\n" doc-string))))) |
822 |
|
|
823 |
;;;###autoload |
;;;###autoload |
824 |
(defun describe-current-coding-system () |
(defun describe-current-coding-system () |