 (defconst espresso--font-lock-keywords-2
   (append espresso--font-lock-keywords-1
           (list (list espresso--keyword-re 1 font-lock-keyword-face)
+                (list "\\_<for\\_>"
+                      "\\s-+\\(each\\)\\_>" nil nil
+                      (list 1 'font-lock-keyword-face))
                 (cons espresso--basic-type-re font-lock-type-face)
                 (cons espresso--constant-re font-lock-constant-face)))
   "Level two font lock.")

because it is special to the Javascript interpreter."
  (interactive "MJavascript to evaluate: ")
  (with-espresso-js
   (let* ((context (espresso--get-js-context))
          (content-window (ecase (car context)
                            (window (cdr context))
                            (browser (js< (cdr context)
                                          "contentWindow" "wrappedJSObject"))))
          (result (js-eval content-window js)))

     (when (interactive-p)

      (insert "EXIT")
      (comint-send-input nil t)
      (espresso--wait-for-matching-output
       (inferior-moz-process) espresso--js-prompt-regexp
       espresso-js-timeout))))

(defsubst espresso--js-not (value)
  (memq value '(nil false undefined)))
