* lisp/progmodes/prog-mode.el (prettify-symbols--compose-symbol):

Don't prettify a word within a symbol.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0b7de93cc02522c4eb0c7e87a1c82f6a80924d9e..f9d9521e412c4c463133b5af50eb550746a804a0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-04-21  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * progmodes/prog-mode.el (prettify-symbols--compose-symbol):
+       Don't prettify a word within a symbol.
+
 2014-04-20  Michael Albinus  <michael.albinus@gmx.de>
 
        * net/tramp-sh.el (tramp-get-ls-command): Use "-b" argument if

diff --git a/lisp/progmodes/prog-mode.el b/lisp/progmodes/prog-mode.el
index 3b850f3305b1c9d5d453862090e741aba0306b33..407466932d9cf049daf7d916137939dd81aa9b46 100644 (file)
--- a/lisp/progmodes/prog-mode.el
+++ b/lisp/progmodes/prog-mode.el
@@ -67,7 +67,7 @@ Regexp match data 0 points to the chars."
   (let* ((start (match-beginning 0))
         (end (match-end 0))
         (syntaxes (if (eq (char-syntax (char-after start)) ?w)
-                      '(?w) '(?. ?\\)))
+                      '(?w ?_) '(?. ?\\)))
         match)
     (if (or (memq (char-syntax (or (char-before start) ?\s)) syntaxes)
            (memq (char-syntax (or (char-after end) ?\s)) syntaxes)