(x-get-selection): Fix typo.

2 files changed, 5 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 05ff2258377..45e1ea91138 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-06-01  Thomas Morgan  <tlm@thomasmorgan.net>  (tiny change)
+
+        * select.el (x-get-selection): Fix typo.
+
 2008-06-01  Juanma Barranquero  <lekktu@gmail.com>
 
         * descr-text.el (describe-text-sexp): Use `string-match-p'.  Simplify.
diff --git a/lisp/select.el b/lisp/select.el
index fb2eedf7f9c..c6128169921 100644
--- a/lisp/select.el
+++ b/lisp/select.el
@@ -88,7 +88,7 @@ in `selection-converter-alist', which see."
                        selection-coding-system
                        (cond ((eq data-type 'UTF8_STRING)
                               'utf-8)
-                             ((eq data-type 'COMPOUND-TEXT)
+                             ((eq data-type 'COMPOUND_TEXT)
                               'compound-text-with-extensions)
                              ((eq data-type 'C_STRING)
                               nil)