anchor.diff:                      (input-buffer-cursor minibuffer)
                       (input-buffer minibuffer)))
     (incf (input-buffer-cursor minibuffer) (length characters))
  -  (setf (completion-cursor minibuffer) 0)
     (update-display minibuffer))
   
   (define-command self-insert ()
  
positive.code: @export
  (defmethod update-display ((minibuffer minibuffer))
    (with-slots (input-buffer input-buffer-cursor completion-function
                 completions completion-cursor completion-head empty-complete-immediate)
        minibuffer
      (if completion-function
          (setf completions (funcall completion-function input-buffer))
  
negative.code: 
  (define-command delete-forwards-word (&optional (minibuffer (current-minibuffer)))
    "Delete characters from cursor position until the end of the word at point."
    (with-accessors ((buffer input-buffer) (cursor input-buffer-cursor)) minibuffer
      (let* ((current-cursor-position cursor)
             (new-cursor-position (cursor-forwards-word minibuffer))
             (transpose-distance (- new-cursor-position current-cursor-position)))
        (setf buffer
              (concatenate 'string
                           (subseq buffer 0 current-cursor-position)
                           (subseq buffer new-cursor-position (length buffer))))
        (setf cursor (- cursor transpose-distance))))
    (update-display minibuffer))
  
  (defun %delete-backwards-word (input position)
  