anchor.diff:  					     (let ((contents (cell-editor-contents cell-id)))
   					       (notebook/eval-to-cell cell-id contents)))
   					   "Ctrl-Space" "autocomplete"
  -					   "Tab"
  -					   (lambda (cm)
  -					     (chain -code-mirror commands (indent-auto cm)))))))
  +					   "Tab" "indentAuto"))))
   	(setf 
   	 mirror (chain -code-mirror (from-text-area (by-cell-id cell-id ".cell-contents") options))
   	 (@ cell editor) mirror)
  
positive.code:       (mirror! cell))
  
      ;; CodeMirror and utilities
      (defun show-editor (cell-id)
        (show! (by-cell-id cell-id ".CodeMirror"))
        (chain (cell-mirror cell-id) (focus)))
  
negative.code:       (let* ((mirror)
  	     (cell-id (@ cell id))
  	     (options (create
  		       "async" t
  		       "lineNumbers" t
  		       "matchBrackets" t
  		       "autoCloseBrackets" t
  