diff options
| author | Dan Gudmundsson <dgud@erlang.org> | 2014-01-22 11:46:11 +0100 |
|---|---|---|
| committer | Dan Gudmundsson <dgud@erlang.org> | 2014-01-22 11:46:11 +0100 |
| commit | dfda225071ad46dc20cfe5e2a7e3f4abdfddcfae (patch) | |
| tree | 8c0f41abd12b0913957f2fc39201d7502fae339e /lib/tools/emacs/erlang.el | |
| parent | d203887853971d58a4054400a88f91bbf73b19c8 (diff) | |
| parent | a94be31b40aa5505366b07ba7c8212b869453522 (diff) | |
| download | erlang-dfda225071ad46dc20cfe5e2a7e3f4abdfddcfae.tar.gz | |
Merge remote-tracking branch 'vinoski/vinoski/emacs-error-fixes' into vinoski/emacs-fixes
Diffstat (limited to 'lib/tools/emacs/erlang.el')
| -rw-r--r-- | lib/tools/emacs/erlang.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/tools/emacs/erlang.el b/lib/tools/emacs/erlang.el index fd90e3a870..eff769a9ff 100644 --- a/lib/tools/emacs/erlang.el +++ b/lib/tools/emacs/erlang.el @@ -73,6 +73,8 @@ ;; M-x set-variable RET debug-on-error RET t RET ;;; Code: +(eval-when-compile (require 'cl)) + ;; Variables: (defconst erlang-version "2.7" @@ -3931,7 +3933,7 @@ non-whitespace characters following the point on the current line." (self-insert-command arg) ;; Was this the second char in bit-syntax open (`<<')? - (unless (< (point) 2) + (unless (<= (point) 2) (save-excursion (backward-char 2) (when (and (eq (char-after (point)) ?<) @@ -3952,7 +3954,7 @@ non-whitespace characters following the point on the current line." (defun erlang-after-bitsyntax-close () "Return t if point is immediately after a bit-syntax close parenthesis (`>>')." - (and (>= (point) 2) + (and (>= (point) 3) (save-excursion (backward-char 2) (and (eq (char-after (point)) ?>) |