              :next-print-wraps false
              :origin-mode origin-mode
              :auto-wrap-mode auto-wrap-mode)
-      (update-in [:cursor] merge cursor)))
+      (update :cursor merge cursor)))
 
 (defn set-mode [vt intermediate param]
   (match [intermediate param]

  vt)

(defn replace-char [line x cell]
  (assoc-in line [x] cell))

(defn insert-char [line x cell]
  (vec (concat

(defn execute-tbc [{{:keys [x]} :cursor :as vt}]
  (let [n (get-param vt 0 0)]
    (condp = n
      0 (update vt :tabs disj x)
      3 (update vt :tabs empty)
      vt)))

(defn execute-sm [vt]
