anchor.diff:                (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))
  
positive.code:                          #'editor-abort-handler)
                         (editor-condition
                           #'editor-condition-handler))
            (handler-bind ((editor-condition
                             #'editor-condition-handler!))
              (read-command-and-call)))
        (editor-condition (c)
          (restart-case (error c)
            (lem-restart:message ()
  
negative.code: 
           (editor-condition-handler (c)
             (declare (ignore c))
             (stop-record-key)))
  
      (redraw)
  
  