diff options
| author | Dan Gudmundsson <[email protected]> | 2016-05-24 08:01:34 +0200 |
|---|---|---|
| committer | Dan Gudmundsson <[email protected]> | 2016-05-24 08:01:34 +0200 |
| commit | 83b3007c6776be6e35ad8909af1a9d0707baa4d9 (patch) | |
| tree | 7bf646d62123872097f5a3bda13dba39f604c618 | |
| parent | 07aea2c4ef22eb5eb7205027665d65596828ec69 (diff) | |
| parent | 8e91ce7cde8b426354f3adcedefc3ce9ffb40117 (diff) | |
| download | otp-83b3007c6776be6e35ad8909af1a9d0707baa4d9.tar.gz otp-83b3007c6776be6e35ad8909af1a9d0707baa4d9.tar.bz2 otp-83b3007c6776be6e35ad8909af1a9d0707baa4d9.zip | |
Merge branch 'dgud/tools/emacs/improve-tags-def-function'
* dgud/tools/emacs/improve-tags-def-function:
emacs: Improve default tag search
| -rw-r--r-- | lib/tools/emacs/erlang.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/tools/emacs/erlang.el b/lib/tools/emacs/erlang.el index b808987e6e..3d20d86f43 100644 --- a/lib/tools/emacs/erlang.el +++ b/lib/tools/emacs/erlang.el @@ -3760,6 +3760,12 @@ In the future the list may contain more elements." (if (assoc fk (cdr (car imports))) (setq mod (car (car imports))) (setq imports (cdr imports)))) + (cond ((eq (preceding-char) ?#) + (setq fk (concat "-record(" fk))) + ((eq (preceding-char) ??) + (setq fk (concat "-define(" fk))) + ((and (null mod) (not (member fk erlang-int-bifs))) + (setq mod (erlang-get-module)))) (setq res (list mod fk))))) (store-match-data md) res))) |