aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDan Gudmundsson <[email protected]>2014-01-22 11:46:11 +0100
committerDan Gudmundsson <[email protected]>2014-01-22 11:46:11 +0100
commitdfda225071ad46dc20cfe5e2a7e3f4abdfddcfae (patch)
tree8c0f41abd12b0913957f2fc39201d7502fae339e
parentd203887853971d58a4054400a88f91bbf73b19c8 (diff)
parenta94be31b40aa5505366b07ba7c8212b869453522 (diff)
downloadotp-dfda225071ad46dc20cfe5e2a7e3f4abdfddcfae.tar.gz
otp-dfda225071ad46dc20cfe5e2a7e3f4abdfddcfae.tar.bz2
otp-dfda225071ad46dc20cfe5e2a7e3f4abdfddcfae.zip
Merge remote-tracking branch 'vinoski/vinoski/emacs-error-fixes' into vinoski/emacs-fixes
-rw-r--r--lib/tools/emacs/erlang.el6
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)) ?>)