diff options
| author | Dan Gudmundsson <[email protected]> | 2010-03-15 10:46:58 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2010-03-15 14:09:56 +0100 |
| commit | 228e1f013f99e2d2fb4ee0f7a9cb5d21638756a8 (patch) | |
| tree | 76d265cd44a03fd6fcf35d37e0b7e4bf82791a0d /lib/tools/emacs/erlang.el | |
| parent | bffb3a3f3b1406bd6069f9266846b14b307ce026 (diff) | |
| download | otp-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.el | 3 |
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) |