diff options
| author | Fredrik Gustafsson <[email protected]> | 2012-08-13 16:39:27 +0200 |
|---|---|---|
| committer | Fredrik Gustafsson <[email protected]> | 2012-08-13 16:39:27 +0200 |
| commit | 10284487779ec3bf3656926d6692c6a9f38be81c (patch) | |
| tree | a8fa42d6b4e0b3cad844ce0e89604c0ac4a1f115 | |
| parent | f968ff87b1d6fb74237010bffa0390953337425e (diff) | |
| parent | 5db6226178d98141b7d1f5cf792797160710c693 (diff) | |
| download | otp-10284487779ec3bf3656926d6692c6a9f38be81c.tar.gz otp-10284487779ec3bf3656926d6692c6a9f38be81c.tar.bz2 otp-10284487779ec3bf3656926d6692c6a9f38be81c.zip | |
Merge branch 'mh/emacs-mode/atom-dollar/OTP-10178' into maint
* mh/emacs-mode/atom-dollar/OTP-10178:
Fix highlighting of atoms ending with a dollar sign
| -rw-r--r-- | lib/tools/emacs/erlang.el | 4 | ||||
| -rw-r--r-- | lib/tools/emacs/test.erl.indented | 5 | ||||
| -rw-r--r-- | lib/tools/emacs/test.erl.orig | 5 |
3 files changed, 13 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 "'")))))) diff --git a/lib/tools/emacs/test.erl.indented b/lib/tools/emacs/test.erl.indented index e0593c6522..45d9593000 100644 --- a/lib/tools/emacs/test.erl.indented +++ b/lib/tools/emacs/test.erl.indented @@ -215,6 +215,11 @@ highlighting(X) % Function definitions should be highlighted "char $in string", atom, + 'atom$', atom, 'atom$', atom, + 'atom\$', atom, + + 'char $in atom', atom, + $[, ${, $\\, atom, ?MACRO_1, ?MACRO_2(foo), diff --git a/lib/tools/emacs/test.erl.orig b/lib/tools/emacs/test.erl.orig index 69356aca9e..e123150dd1 100644 --- a/lib/tools/emacs/test.erl.orig +++ b/lib/tools/emacs/test.erl.orig @@ -215,6 +215,11 @@ highlighting(X) % Function definitions should be highlighted "char $in string", atom, + 'atom$', atom, 'atom$', atom, + 'atom\$', atom, + + 'char $in atom', atom, + $[, ${, $\\, atom, ?MACRO_1, ?MACRO_2(foo), |