diff options
| author | Johan Claesson <[email protected]> | 2018-09-16 21:04:35 +0200 |
|---|---|---|
| committer | Dan Gudmundsson <[email protected]> | 2018-10-09 11:57:01 +0200 |
| commit | 8e938ab671bdcadbf6571426e045de7855a5b196 (patch) | |
| tree | 697d5db0771547752cdc07755019915544740a96 /lib/tools/emacs/erlang-test.el | |
| parent | 02e3a9b162a1fe193c271cd0db7a99c326b63844 (diff) | |
| download | otp-8e938ab671bdcadbf6571426e045de7855a5b196.tar.gz otp-8e938ab671bdcadbf6571426e045de7855a5b196.tar.bz2 otp-8e938ab671bdcadbf6571426e045de7855a5b196.zip | |
Emacs: consider case in erlang-get-identifier-at-point
Diffstat (limited to 'lib/tools/emacs/erlang-test.el')
| -rw-r--r-- | lib/tools/emacs/erlang-test.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/tools/emacs/erlang-test.el b/lib/tools/emacs/erlang-test.el index ca0b641791..2ee584d11a 100644 --- a/lib/tools/emacs/erlang-test.el +++ b/lib/tools/emacs/erlang-test.el @@ -67,7 +67,7 @@ ("SYMBOL" . "-define(SYMBOL, value).") ("MACRO" . "-define(MACRO(X), X + X).") ("struct" . "-record(struct, {until,maps,are,everywhere}).") - ("function". "function() -> #struct{}.")) + ("function" . "function() -> #struct{}.")) "Alist of erlang test code. Each entry have the format (TAGNAME . ERLANG_CODE). If TAGNAME is nil there is no definitions in the ERLANG_CODE. The @@ -147,8 +147,9 @@ concatenated to form an erlang file to test on.") do (when tagname (switch-to-buffer erlang-buffer) (erlang-test-xref-jump tagname erlang-file line) - (erlang-test-xref-jump (concat "erlang_test:" tagname) - erlang-file line))) + (when (string-equal tagname "function") + (erlang-test-xref-jump (concat "erlang_test:" tagname) + erlang-file line)))) (erlang-test-xref-jump "erlang_test:" erlang-file 1)) (defun erlang-test-xref-jump (id expected-file expected-line) |