anchor.diff:        (throw 'minibuf-read-line-end t)))
     t)
   
  -(define-command minibuf-read-line-completion () ()
  +(define-command minibuffer-read-line-completion () ()
     (when (and *minibuf-read-line-comp-f*
                *minibuffer-completion-function*)
       (with-point ((start (minibuffer-start-point)))
  
positive.code:           prompt-for-character
            active-minibuffer-window
            check-switch-minibuffer-window
            minibuf-read-line-confirm
            minibuf-read-line-completion
            minibuf-read-line-prev-history
            minibuf-read-line-next-history
            prompt-for-y-or-n-p
            prompt-for-line
            prompt-for-string
  
negative.code:         ((char= #\n c)
           (return nil))))))
  
  (define-key *minibuf-keymap* "C-j" 'minibuffer-read-line-confirm)
  (define-key *minibuf-keymap* "C-m" 'minibuffer-read-line-confirm)
  (define-key *minibuf-keymap* "C-i" 'minibuffer-read-line-completion)
  (define-key *minibuf-keymap* "M-p" 'minibuffer-read-line-prev-history)
  (define-key *minibuf-keymap* "M-n" 'minibuffer-read-line-next-history)
  (define-key *minibuf-keymap* "C-g" 'minibuf-read-line-break)
  
  (defvar *minibuf-read-line-prompt*)
  