       "if"
       "let"
       "of"
-      "query"
       "receive"
       "try"
       "when")


(defun erlang-at-keyword ()
  "Are we looking at an Erlang keyword which will increase indentation?"
  (looking-at (concat "\\(when\\|if\\|fun\\|case\\|begin\\|query\\|"
		      "of\\|receive\\|after\\|catch\\|try\\)[^_a-zA-Z0-9]")))

(defun erlang-at-operator ()

			 (erlang-skip-blank to)))
		   (eq (following-char) ?\())
		 (erlang-push (list 'fun token (current-column)) stack)))
	    ((looking-at "\\(begin\\)[^_a-zA-Z0-9]")
	     (erlang-push (list 'begin token (current-column)) stack))
	    ;; Normal when case
	    ;;((looking-at "when\\s ")
