diff options
| author | Erlang/OTP <[email protected]> | 2009-12-15 15:23:03 +0100 |
|---|---|---|
| committer | Erlang/OTP <[email protected]> | 2009-12-15 15:23:03 +0100 |
| commit | cb62972ca24198cc13e030adbd0b8a757bdb293c (patch) | |
| tree | 05eaab89e318613f1d4fb64cb477345ddcf512b6 /lib/tools/emacs/erlang.el | |
| parent | a0c385e10b16c7697ad744bc63d7ce4d0439ca6e (diff) | |
| parent | 889208661105bf2e296c168ed0afa7452db137df (diff) | |
| download | otp-cb62972ca24198cc13e030adbd0b8a757bdb293c.tar.gz otp-cb62972ca24198cc13e030adbd0b8a757bdb293c.tar.bz2 otp-cb62972ca24198cc13e030adbd0b8a757bdb293c.zip | |
Merge branch 'dgud/emacs-improvements' into ccase/r13b04_dev
Diffstat (limited to 'lib/tools/emacs/erlang.el')
| -rw-r--r-- | lib/tools/emacs/erlang.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lib/tools/emacs/erlang.el b/lib/tools/emacs/erlang.el index f623e3a1ee..b352ae7cce 100644 --- a/lib/tools/emacs/erlang.el +++ b/lib/tools/emacs/erlang.el @@ -72,7 +72,7 @@ ;; Variables: -(defconst erlang-version "2.6.1" +(defconst erlang-version "2.6.2" "The version number of Erlang mode.") (defvar erlang-root-dir nil @@ -3792,9 +3792,9 @@ Value is list (stack token-start token-type in-what)." ;; Clause end ((= (following-char) ?\;) - (if (and stack (and (eq (car (car stack)) 'when) - (eq (car (car (cdr (cdr stack)))) 'spec))) - (erlang-pop stack)) + (if (eq (car (car (last stack))) 'spec) + (while (memq (car (car stack)) '(when ::)) + (erlang-pop stack))) (if (and stack (eq (car (car stack)) '->)) (erlang-pop stack)) (forward-char 1)) @@ -4946,6 +4946,7 @@ non-whitespace characters following the point on the current line." (setq erlang-electric-newline-inhibit nil) (setq erlang-electric-newline-inhibit t) (undo-boundary) + (erlang-indent-line) (end-of-line) (newline) (condition-case nil |