aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSteve Vinoski <[email protected]>2013-12-20 16:03:51 -0500
committerSteve Vinoski <[email protected]>2013-12-20 16:03:51 -0500
commit6667c6187753d476611282524148fd239309d3eb (patch)
tree29f3b680dc442896dcf30ca5766e60ce9094a20a
parent25237481ccccd3ddfa74582dc267632ad618ba30 (diff)
downloadotp-6667c6187753d476611282524148fd239309d3eb.tar.gz
otp-6667c6187753d476611282524148fd239309d3eb.tar.bz2
otp-6667c6187753d476611282524148fd239309d3eb.zip
fix erlang-mode erlang-get-function-arity
In the emacs erlang-mode the function erlang-get-function-arity failed to return a correct arity value for functions with literal binaries as parameters, for example: function(<<Bin:20/binary>>) -> Bin. Fix erlang-get-function-arity to recognize binary parameters correctly.
-rw-r--r--lib/tools/emacs/erlang.el4
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/tools/emacs/erlang.el b/lib/tools/emacs/erlang.el
index c395d22356..b9a05572f7 100644
--- a/lib/tools/emacs/erlang.el
+++ b/lib/tools/emacs/erlang.el
@@ -3645,6 +3645,10 @@ Normally used in conjunction with `erlang-beginning-of-clause', e.g.:
(setq cont nil))
((looking-at "\\s *\\($\\|%\\)")
(forward-line 1))
+ ((looking-at "\\s *<<[^>]*?>>")
+ (when (zerop res)
+ (setq res (+ 1 res)))
+ (goto-char (match-end 0)))
((looking-at "\\s *,")
(setq res (+ 1 res))
(goto-char (match-end 0)))