     ("[a-zA-Z][a-zA-Z0-9]*:" . 'k-variable-binding-face)
     ("[a-zA-Z][a-zA-Z0-9]*" . 'k-variable-face)
     ("-?[0-9]+\\(\\.?[0-9]*\\)?\\([eE][+-]?[0-9]+\\)?" . 'k-number-face)
-    ("\\(`\\)\\([a-zA-Z][a-zA-Z0-9_]*\\)" 
+    ("\\(`\\)\\([a-zA-Z][a-zA-Z0-9_]*\\)"
      (1 'k-builtin-face)
      (2 'k-symbol-face))
     ("[!#$%&*+,.;<=>?@^_|~-:]:?" . 'k-verb-face)

;; * other corner cases?

(defun k-font-lock-keyword-maker ()
  '(("^\\(/\\) \\([^\n]*\\)$" 
     (1 'k-comment-delimeter-face)
     (2 'k-comment-face))
    (" \\(/\\) \\([^\n]*\\)$" 
     (1 'k-comment-delimeter-face)
     (2 'k-comment-face))
    ("[/\\']:?" . 'k-adverb-face)

        (kbuf (k-proc-buffer)))
    (when (and kproc s)
      (comint-send-string kproc s))))

(defun k-buffer-is-visible ()
  "Check if the k process buffer is currently visible."
  (let ((b (k-proc-buffer)))
