anchor.diff:      (decf *minibuffer-history-number*)
       (replace-minibuffer-string (nth *minibuffer-history-number* *minibuffer-history*))))
   
  -(defun read-from-minibuffer (prompt &key default)
  +(defun read-from-minibuffer (prompt &key default completer)
     "Read a string from the minibuffer."
     (let ((old-buffer (current-buffer *editor*)))
       (when (eql old-buffer *minibuffer*)
  
positive.code:      (remhash #\y key-map)
       (remhash #\n key-map))))
  
  (defun initialize-minibuffer-key-map (key-map)
    (set-key #\Newline 'minibuffer-finish-input-command key-map)
    (set-key #\C-M 'minibuffer-finish-input-command key-map)
    (set-key #\M-P 'minibuffer-previous-history-command key-map)
    (set-key #\M-N 'minibuffer-next-history-command key-map)
    (set-key '(#\C-X #\C-F) nil key-map)
    (set-key '(#\C-X #\C-S) nil key-map)
    (set-key '(#\C-X #\C-W) nil key-map)
  
negative.code: ;;; Minibuffer stuff.
  (defvar *minibuffer-history* '())
  (defvar *minibuffer-history-number* 0)
  (defvar *minibuffer-completer* nil)
  (defvar *minibuffer-completion-results* ())
  (defvar *minibuffer-completion-results-number* 0)
  
  (defun fix-minibuffer-point-position-hook ()
    (when (mark< (buffer-point *minibuffer*)
  