anchor.diff:    (apply #'prompt-for-accept pane type view args)
     ;; but we need to turn some of ACCEPT-1 off.
     (apply #'accept-1-for-minibuffer pane type args))
  +
  +(defmethod compose-space ((pane minibuffer-pane) &key width height)
  +  (declare (ignore width height))
  +  (with-sheet-medium (medium pane)
  +    (let* ((sr (call-next-method))
  +           (height (max (text-style-height (medium-merged-text-style medium)
  +                                           medium)
  +                        (if (message pane)
  +                            (bounding-rectangle-height (message pane))
  +                            0))))
  +      (make-space-requirement
  +       :height height :min-height height :max-height height
  +       :width (space-requirement-width sr)
  +       :min-width (space-requirement-min-width sr)
  +       :max-width (space-requirement-max-width sr)))))
   
   ;;; simpler version of McCLIM's internal operators of the same names:
   ;;; HANDLE-EMPTY-INPUT to make default processing work, EMPTY-INPUT-P
  
positive.code: current message was set."))
    (:default-initargs
     :scroll-bars nil
      :display-function 'display-minibuffer
      :display-time :no-clear
      :incremental-redisplay t))
  
  (defmethod stream-accept :before ((pane minibuffer-pane) type &rest args)
    (declare (ignore type args))
    (window-clear pane)
    (when (message pane)
      (setf (message pane) nil)
      ;; FIXME: If we do not redisplay here, the area occupied by the
      ;; message will be blanked with a white rectangle at the first
      ;; keystroke.
      (redisplay-frame-pane (pane-frame pane) pane)))
  
  (defmethod stream-accept :around ((pane minibuffer-pane) type &rest args)
    (declare (ignore args))
    ;; FIXME: this isn't the friendliest way of indicating a parse
    ;; error: there's no feedback, unlike emacs' quite nice "[no
    ;; match]".
    (loop
     (handler-case
         (with-input-focus (pane)
           (return (call-next-method)))
       (parse-error () nil))))
  
  (defmethod stream-accept ((pane minibuffer-pane) type &rest args
                            &key (view (stream-default-view pane))
  
negative.code:           stream object object-type view :rescan nil))
         (values object object-type)))))
  
  (defgeneric invoke-with-minibuffer-stream (minibuffer continuation))
  
  (defmethod invoke-with-minibuffer-stream ((minibuffer minibuffer-pane) continuation)
    (window-clear minibuffer)
    (setf (message minibuffer)
          (with-new-output-record (minibuffer)
            (setf (message-time minibuffer) (get-universal-time))
            (filling-output (minibuffer :fill-width (bounding-rectangle-width minibuffer))
              (funcall continuation minibuffer)))))
  
  (defmethod invoke-with-minibuffer-stream ((minibuffer pointer-documentation-pane) continuation)
    (clim-extensions:with-output-to-pointer-documentation (stream (pane-frame minibuffer))
  