aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPaul Oliver <[email protected]>2013-11-18 15:08:28 +0100
committerHenrik Nord <[email protected]>2014-01-10 11:45:49 +0100
commit4786edd54b57497f70a22decad21acd1b5557709 (patch)
treebf6fddeb76ee3e02e066f68b609caece0774ac94
parent039ea3a6ed5dc147478f294910ba042850db2383 (diff)
downloadotp-4786edd54b57497f70a22decad21acd1b5557709.tar.gz
otp-4786edd54b57497f70a22decad21acd1b5557709.tar.bz2
otp-4786edd54b57497f70a22decad21acd1b5557709.zip
Remove support for query keyword from emacs mode
-rw-r--r--lib/tools/emacs/erlang.el5
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/tools/emacs/erlang.el b/lib/tools/emacs/erlang.el
index c1e9bec6ae..fd90e3a870 100644
--- a/lib/tools/emacs/erlang.el
+++ b/lib/tools/emacs/erlang.el
@@ -620,7 +620,6 @@ resulting regexp is surrounded by \\_< and \\_>."
"if"
"let"
"of"
- "query"
"receive"
"try"
"when")
@@ -2608,7 +2607,7 @@ Value is list (stack token-start token-type in-what)."
(erlang-skip-blank to)))
(eq (following-char) ?\())
(erlang-push (list 'fun token (current-column)) stack)))
- ((looking-at "\\(begin\\|query\\)[^_a-zA-Z0-9]")
+ ((looking-at "\\(begin\\)[^_a-zA-Z0-9]")
(erlang-push (list 'begin token (current-column)) stack))
;; Normal when case
;;((looking-at "when\\s ")
@@ -3118,7 +3117,7 @@ This assumes that the preceding expression is either simple
(defun erlang-at-keyword ()
"Are we looking at an Erlang keyword which will increase indentation?"
- (looking-at (concat "\\(when\\|if\\|fun\\|case\\|begin\\|query\\|"
+ (looking-at (concat "\\(when\\|if\\|fun\\|case\\|begin\\|"
"of\\|receive\\|after\\|catch\\|try\\)[^_a-zA-Z0-9]")))
(defun erlang-at-operator ()