anchor.diff:    (kill-region (point-min) (point))
     t)
   
  -(define-command minibuf-read-line-prev-log () ()
  -  (when *minibuf-read-line-log*
  -    (kill-region (point-min) (point-max))
  -    (let ((str (pop *minibuf-read-line-log*)))
  -      (push str *minibuf-read-line-prev-log*)
  +(define-command minibuf-read-line-prev-history () ()
  +  (multiple-value-bind (str win)
  +      (prev-history *minibuf-read-line-history*)
  +    (when win
  +      (kill-region (point-min) (point-max))
         (insert-string str))))
   
  -(define-command minibuf-read-line-next-log () ()
  -  (when *minibuf-read-line-prev-log*
  -    (kill-region (point-min) (point-max))
  -    (let ((str (pop *minibuf-read-line-prev-log*)))
  -      (push str *minibuf-read-line-log*)
  +(define-command minibuf-read-line-next-history () ()
  +  (multiple-value-bind (str win)
  +      (next-history *minibuf-read-line-history*)
  +    (when win
  +      (kill-region (point-min) (point-max))
         (insert-string str))))
   
   (define-command minibuf-read-line-break () ()
  
positive.code: (define-key *minibuf-keymap* (kbd "C-m") 'minibuf-read-line-confirm)
  (define-key *minibuf-keymap* (kbd "C-i") 'minibuf-read-line-completion)
  (define-key *minibuf-keymap* (kbd "C-u") 'minibuf-read-line-clear-before)
  (define-key *minibuf-keymap* (kbd "C-p") 'minibuf-read-line-prev-log)
  (define-key *minibuf-keymap* (kbd "C-n") 'minibuf-read-line-next-log)
  (define-key *minibuf-keymap* (kbd "C-g") 'minibuf-read-line-break)
  
  (defvar *minibuf-read-line-tmp-window*)
  
negative.code:           minibuf-read-line-confirm
            minibuf-read-line-completion
            minibuf-read-line-clear-before
            minibuf-read-line-prev-history
            minibuf-read-line-next-history
            minibuf-get-line
            minibuf-read-line-refresh
            minibuf-read-line
  