diff lisp/international/mule-diag.el @ 95348:5d45e3ef3e0f

(describe-current-coding-system): Don't assume selection-coding-system is always defined.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 27 May 2008 20:09:51 +0000
parents 802ca11b791e
children 6c4caa612333
line wrap: on
line diff
--- a/lisp/international/mule-diag.el	Tue May 27 20:08:21 2008 +0000
+++ b/lisp/international/mule-diag.el	Tue May 27 20:09:51 2008 +0000
@@ -599,8 +599,9 @@
       (print-coding-system-briefly (keyboard-coding-system))
       (princ "Coding system for terminal output:\n  ")
       (print-coding-system-briefly (terminal-coding-system))
-      (princ "Coding system for inter-client cut and paste:\n  ")
-      (print-coding-system-briefly selection-coding-system)
+      (when (boundp 'selection-coding-system)
+          (princ "Coding system for inter-client cut and paste:\n  ")
+          (print-coding-system-briefly selection-coding-system))
       (when (get-buffer-process (current-buffer))
 	(princ "Coding systems for process I/O:\n")
 	(princ "  encoding input to the process: ")