anchor.diff:    (define-key *minibuffer-mode-map* (key "HYPHEN") #'(lambda () (self-insert *minibuffer* "-")))
     (define-key *minibuffer-mode-map* (key "SPACE") #'(lambda () (self-insert *minibuffer* " ")))
     (define-key *minibuffer-mode-map* (key "C-f") #'(lambda () (cursor-forwards *minibuffer*)))
  +  (define-key *minibuffer-mode-map* (key "M-f") #'(lambda () (cursor-forwards-word *minibuffer*)))
     (define-key *minibuffer-mode-map* (key "C-b") #'(lambda () (cursor-backwards *minibuffer*)))
  +  (define-key *minibuffer-mode-map* (key "M-b") #'(lambda () (cursor-backwards-word *minibuffer*)))
  +  (define-key *minibuffer-mode-map* (key "M-d") #'(lambda () (delete-forwards-word *minibuffer*)))
  +  (define-key *minibuffer-mode-map* (key "M-BACKSPACE") #'(lambda () (delete-backwards-word *minibuffer*)))
     (define-key *minibuffer-mode-map* (key "Right") #'(lambda () (cursor-forwards *minibuffer*)))
     (define-key *minibuffer-mode-map* (key "Left") #'(lambda () (cursor-backwards *minibuffer*)))
     (define-key *minibuffer-mode-map* (key "C-d") #'(lambda () (delete-forwards *minibuffer*)))
  
positive.code:     (setf input-buffer-cursor (length input-buffer)))
    (update-display minibuffer))
  
  (defun generate-input-html (input-buffer cursor-index)
    (cond ((equal "" input-buffer) (cl-markup:markup (:span :id "cursor" (cl-markup:raw "&nbsp;"))))
          ((eql cursor-index (length input-buffer)) (cl-markup:markup (:span input-buffer)
  
negative.code:   (define-key *minibuffer-mode-map* (key "BACKSPACE") #'(lambda () (delete-backwards *minibuffer*)))
    (define-key *minibuffer-mode-map* (key "C-a") #'(lambda () (cursor-beginning *minibuffer*)))
    (define-key *minibuffer-mode-map* (key "C-e") #'(lambda () (cursor-end *minibuffer*)))
    (define-key *minibuffer-mode-map* (key "C-k") #'(lambda () (kill-line *minibuffer*)))
    (define-key *minibuffer-mode-map* (key "RETURN") #'(lambda () (return-input *minibuffer*)))
    (define-key *minibuffer-mode-map* (key "C-RETURN") #'(lambda () (return-immediate *minibuffer*)))
    (define-key *minibuffer-mode-map* (key "C-g") #'(lambda () (cancel-input *minibuffer*)))
  