anchor.diff:  
            (editor-condition-handler (c)
              (declare (ignore c))
  -           (stop-record-key))
  -
  -         (editor-condition-handler! (c)
  -           (dolist (function (gethash (type-of c) *editor-condition-handlers*))
  -             (funcall function c))))
  +           (stop-record-key)))
   
       (redraw)
   
  
positive.code:               (current-buffer))
      (setf (current-buffer) (window-buffer (current-window)))))
  
  (defvar *editor-condition-handlers* (make-hash-table))
  
  (defun register-command-loop-condition-handler (condition-name handler)
    (pushnew handler (gethash condition-name *editor-condition-handlers*)))
  
  (defun command-loop-body ()
    (flet ((redraw ()
             (when (= 0 (event-queue-length))
  
negative.code:                          #'editor-abort-handler)
                         (editor-condition
                           #'editor-condition-handler))
            (read-command-and-call))
        (editor-condition (c)
          (restart-case (error c)
            (lem-restart:message ()
  