# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1211918991 0
# Node ID 5d45e3ef3e0f3178319cd50588485e9418900584
# Parent  8a8bad853798906d5f84a07afb102fbe52727f3f
(describe-current-coding-system):
Don't assume selection-coding-system is always defined.

diff -r 8a8bad853798 -r 5d45e3ef3e0f lisp/ChangeLog
--- a/lisp/ChangeLog	Tue May 27 20:08:21 2008 +0000
+++ b/lisp/ChangeLog	Tue May 27 20:09:51 2008 +0000
@@ -1,5 +1,8 @@
 2008-05-27  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* international/mule-diag.el (describe-current-coding-system):
+	Don't assume selection-coding-system is always defined.
+
 	* tar-mode.el: Use defstruct and markers.
 	(tar-setf): Remove.
 	(tar-header): Use defstruct.  Add `data-start' field.
diff -r 8a8bad853798 -r 5d45e3ef3e0f lisp/international/mule-diag.el
--- 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: ")