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: (defvar *minibuf-read-line-comp-f*)
  (defvar *minibuf-read-line-existing-p*)
  
  (defvar *minibuf-read-line-log* nil)
  (defvar *minibuf-read-line-prev-log* nil)
  (defvar *minibuf-read-line-busy-p* nil)
  
  (define-command minibuf-read-line-confirm () ()
  
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
  