anchor.diff:                                                      " " " ")))
         (funcall callback-function normalized-input))
       (when cleanup-function
  -      (funcall cleanup-function))))
  +      (funcall cleanup-function))
  +    (setf (invisible-input-p minibuffer) nil)))
   
   (define-command cancel-input (minibuffer-mode &optional (minibuffer (minibuffer *interface*)))
     "Close the minibuffer query without further action."
     (setf (display-mode minibuffer) :nil)
     (with-slots (cleanup-function) minibuffer
       (when cleanup-function
  -      (funcall cleanup-function)))
  +      (funcall cleanup-function))
  +    (setf (invisible-input-p minibuffer) nil))
     (hide *interface*))
   
   (defmethod set-input ((minibuffer minibuffer) input)
  
positive.code:   (setf (completion-cursor minibuffer) 0)
    (setf (setup-function minibuffer) setup-function)
    (setf (cleanup-function minibuffer) cleanup-function)
    (setf (empty-complete-immediate minibuffer) empty-complete-immediate)
    (setf (callback-buffer minibuffer) (active-buffer *interface*))
    (if setup-function
  
negative.code:                      :documentation "The CSS applied to a minibuffer when it is set-up.")))
  
  (defmethod read-from-minibuffer ((minibuffer minibuffer)
                                   &key callback input-prompt completion-function invisible-input-p setup-function
                                     cleanup-function empty-complete-immediate)
    (if input-prompt
        (setf (input-prompt minibuffer) input-prompt)
  