anchor.diff:                              :initial-value +nowhere+)))
       (handle-repaint pane (region-exclusive-or old-region new-region))))
   
  -(defun map-over-text (record function)  
  +(defun map-over-text (record function)
     (cond ((typep record 'standard-text-displayed-output-record)
            (with-slots (strings baseline max-height start-y wrapped x1 y1) record
              (loop for substring in strings do
  
positive.code:                     (setf (slot-value pane 'markings) nil))
    (release-selection pane :primary t)
    (release-selection pane :local-selection t))
   
  (defun repaint-markings (pane old-markings new-markings)
    (let ((old-region (reduce #'region-union (mapcar #'(lambda (x) (marking-region pane x)) old-markings)
                              :initial-value +nowhere+))
  
negative.code: 
  (defmethod dispatch-event :around ((pane text-selection-mixin)
                                     (event pointer-button-release-event))
    (with-slots (dragging-p) pane
      (if (and (shift-rl-click-event-p event)
               dragging-p)
          (eos/shift-release pane event)
          (call-next-method))))
  
  (defmethod dispatch-event :around ((pane text-selection-mixin)
                                     (event pointer-motion-event))
    (with-slots (dragging-p) pane
      (if (and (eql (event-modifier-state event) +shift-key+)
               dragging-p)
          (eos/shift-drag pane event)
          (call-next-method))))
  
  (defun pane-clear-markings (pane &optional time)
    (declare (ignore time))
  