diff options
| author | Magnus Henoch <[email protected]> | 2012-08-06 11:16:27 +0100 |
|---|---|---|
| committer | Henrik Nord <[email protected]> | 2012-08-07 12:09:19 +0200 |
| commit | 5db6226178d98141b7d1f5cf792797160710c693 (patch) | |
| tree | ecfe3b830ec953b59503ed633abf0cdce74f0b23 /lib/tools/emacs/erlang.el | |
| parent | 24ad2d1d985bbadb28dc8fe9dfee5e33c3bdcbbc (diff) | |
| download | otp-5db6226178d98141b7d1f5cf792797160710c693.tar.gz otp-5db6226178d98141b7d1f5cf792797160710c693.tar.bz2 otp-5db6226178d98141b7d1f5cf792797160710c693.zip | |
Fix highlighting of atoms ending with a dollar sign
Like this: 'atom$'. In that example, the last single quote should be
recognised as ending the atom. This needs a font-lock workaround
similar to the one for strings.
Diffstat (limited to 'lib/tools/emacs/erlang.el')
| -rw-r--r-- | lib/tools/emacs/erlang.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/tools/emacs/erlang.el b/lib/tools/emacs/erlang.el index 2f6c7f554e..8f98d6c85c 100644 --- a/lib/tools/emacs/erlang.el +++ b/lib/tools/emacs/erlang.el @@ -1516,7 +1516,7 @@ Other commands: ;; A dollar sign right before the double quote that ends a ;; string is not a character escape. ;; - ;; And a "string" has with a double quote not escaped by a + ;; And a "string" consists of a double quote not escaped by a ;; dollar sign, any number of non-backslash non-newline ;; characters or escaped backslashes, a dollar sign ;; (otherwise we wouldn't care) and a double quote. This @@ -1525,6 +1525,8 @@ Other commands: ;; know whether matching started inside a string: limiting ;; search to a single line keeps things sane. . (("\\(?:^\\|[^$]\\)\"\\(?:[^\"\n]\\|\\\\\"\\)*\\(\\$\\)\"" 1 "w") + ;; Likewise for atoms + ("\\(?:^\\|[^$]\\)'\\(?:[^'\n]\\|\\\\'\\)*\\(\\$\\)'" 1 "w") ;; And the dollar sign in $\" escapes two characters, not ;; just one. ("\\(\\$\\)\\\\\\\"" 1 "'")))))) |