comparison lisp/international/mule-diag.el @ 88705:80a9a0f0e995

(describe-current-coding-system): Add selection-coding-system.
author Dave Love <fx@gnu.org>
date Fri, 31 May 2002 22:26:10 +0000
parents c68f88e42678
children 9ae3a7ed0b93
comparison
equal deleted inserted replaced
88704:d203bf79d292 88705:80a9a0f0e995
708 (print-coding-system-briefly default-buffer-file-coding-system) 708 (print-coding-system-briefly default-buffer-file-coding-system)
709 (princ "Coding system for keyboard input:\n ") 709 (princ "Coding system for keyboard input:\n ")
710 (print-coding-system-briefly (keyboard-coding-system)) 710 (print-coding-system-briefly (keyboard-coding-system))
711 (princ "Coding system for terminal output:\n ") 711 (princ "Coding system for terminal output:\n ")
712 (print-coding-system-briefly (terminal-coding-system)) 712 (print-coding-system-briefly (terminal-coding-system))
713 (princ "Coding system for inter-client cut and paste:\n ")
714 (print-coding-system-briefly selection-coding-system)
713 (when (get-buffer-process (current-buffer)) 715 (when (get-buffer-process (current-buffer))
714 (princ "Coding systems for process I/O:\n") 716 (princ "Coding systems for process I/O:\n")
715 (princ " encoding input to the process: ") 717 (princ " encoding input to the process: ")
716 (print-coding-system-briefly (cdr process-coding-systems)) 718 (print-coding-system-briefly (cdr process-coding-systems))
717 (princ " decoding output from the process: ") 719 (princ " decoding output from the process: ")