diff options
| author | Stefan Monnier | 2014-04-21 16:31:22 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2014-04-21 16:31:22 -0400 |
| commit | f0ffb9b76754ef7dcc4842e969aa16d451f117e9 (patch) | |
| tree | 49c7b7785278e25f8eb3f799eb51331616660537 /lisp/progmodes | |
| parent | 6709d4dab9d434dcd1d797e081dfc796b735a1ff (diff) | |
| download | emacs-f0ffb9b76754ef7dcc4842e969aa16d451f117e9.tar.gz emacs-f0ffb9b76754ef7dcc4842e969aa16d451f117e9.zip | |
* lisp/progmodes/prog-mode.el (prettify-symbols--compose-symbol):
Don't prettify a word within a symbol.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/prog-mode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/progmodes/prog-mode.el b/lisp/progmodes/prog-mode.el index 3b850f3305b..407466932d9 100644 --- a/lisp/progmodes/prog-mode.el +++ b/lisp/progmodes/prog-mode.el | |||
| @@ -67,7 +67,7 @@ Regexp match data 0 points to the chars." | |||
| 67 | (let* ((start (match-beginning 0)) | 67 | (let* ((start (match-beginning 0)) |
| 68 | (end (match-end 0)) | 68 | (end (match-end 0)) |
| 69 | (syntaxes (if (eq (char-syntax (char-after start)) ?w) | 69 | (syntaxes (if (eq (char-syntax (char-after start)) ?w) |
| 70 | '(?w) '(?. ?\\))) | 70 | '(?w ?_) '(?. ?\\))) |
| 71 | match) | 71 | match) |
| 72 | (if (or (memq (char-syntax (or (char-before start) ?\s)) syntaxes) | 72 | (if (or (memq (char-syntax (or (char-before start) ?\s)) syntaxes) |
| 73 | (memq (char-syntax (or (char-after end) ?\s)) syntaxes) | 73 | (memq (char-syntax (or (char-after end) ?\s)) syntaxes) |