aboutsummaryrefslogtreecommitdiffstats
path: root/lib/tools/emacs/erlang.el
diff options
context:
space:
mode:
authorDan Gudmundsson <[email protected]>2010-03-15 10:46:58 +0100
committerBjörn Gustavsson <[email protected]>2010-03-15 14:09:56 +0100
commit228e1f013f99e2d2fb4ee0f7a9cb5d21638756a8 (patch)
tree76d265cd44a03fd6fcf35d37e0b7e4bf82791a0d /lib/tools/emacs/erlang.el
parentbffb3a3f3b1406bd6069f9266846b14b307ce026 (diff)
downloadotp-228e1f013f99e2d2fb4ee0f7a9cb5d21638756a8.tar.gz
otp-228e1f013f99e2d2fb4ee0f7a9cb5d21638756a8.tar.bz2
otp-228e1f013f99e2d2fb4ee0f7a9cb5d21638756a8.zip
Fix another -spec() problem
Diffstat (limited to 'lib/tools/emacs/erlang.el')
-rw-r--r--lib/tools/emacs/erlang.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/tools/emacs/erlang.el b/lib/tools/emacs/erlang.el
index be2c10ab88..a84f40244d 100644
--- a/lib/tools/emacs/erlang.el
+++ b/lib/tools/emacs/erlang.el
@@ -2653,7 +2653,8 @@ Value is list (stack token-start token-type in-what)."
(cond ((eq (car (car stack)) '\()
(erlang-pop stack)
(if (and (eq (car (car stack)) 'fun)
- (eq (car (car (cdr stack))) '::))
+ (or (eq (car (car (last stack))) 'spec)
+ (eq (car (car (cdr stack))) '::))) ;; -type()
;; Inside fun type def ') closes fun definition
(erlang-pop stack)))
((eq (car (car stack)) 'icr)