(x-get-selection): Fix typo.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 05ff225837796fd880c79819c4c85212b328feb6..45e1ea91138e9f86bf3d069cdeef16669d496ea3 100644 (file)
--- 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 fb2eedf7f9c1743003c3eea1caf191866d69f989..c6128169921897b8bef149cb35bbace97940c7ba 100644 (file)
--- 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)