(describe-current-coding-system):

Don't assume selection-coding-system is always defined.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 05308ac0cd4ea1ab885b27069363891592d8dfe6..afcee6d44eb3eed4c296f10f6247f383cfd56502 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 5b58af5fcd9cf943264b62cdc8dca7949852e848..91c7ef782077eef7d597e44fef21a2e3f1f9b05a 100644 (file)
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -599,8 +599,9 @@ docstring, and print only the first line of the docstring."
       (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: ")