anchor.diff:       (completion-view (minibuffer-view *next-interface*))))))
   
   (defun minibuffer-set-completion-function (function)
  -  (declare (ignore function)))
  +  (setf (completion-function (minibuffer-view *next-interface*)) function))
  
positive.code: (defun cut ())
  
  (defun process-event (event)
    (let ((modifier-state (gdk:gdk-event-key-state event))
          (character (gdk:gdk-keyval-to-unicode
                      (gdk:gdk-event-key-keyval event))))
      (unless (equalp character #\Null)
        (next:push-key-chord
         (member :control-mask modifier-state :test #'equalp)
         (member :mod1-mask modifier-state :test #'equalp)
         (member :super-mask modifier-state :test #'equalp)
         (string character)))))
  
  (defun set-visible-view (view)
    (declare (ignore view)))
  (defun delete-view (view)
    (declare (ignore view)))
  (defun make-web-view ())
  (defun web-view-set-url (view url)
    (declare (ignore view url)))
  (defun web-view-set-url-loaded-callback (view function)
    (declare (ignore view function)))
  (defun web-view-get-url (view)
    (declare (ignore view)))
  
  (defun web-view-execute (view script)
    (declare (ignore view script))
  
negative.code:        (gtk:gtk-list-store-set
          (completion-model self)
          (gtk:gtk-list-store-append (completion-model self))
          (write-to-string element))))
  
  (defmethod get-input ((self minibuffer-view))
    (gtk:gtk-entry-text (input-entry self)))
  
  (defmethod process-set-completions ((self minibuffer-view))
    "Process and set completions for the minibuffer"
    (with-slots (completion-function completion-model completion-viw) self
      (when (completion-function self)
        (completions-clear self)
        (completions-add self (funcall completion-function (get-input self))))))
  
  (defun initialize ()
    (setf (gethash #\Return *character-conversion-table*) "RETURN")
    (setf (gethash #\- *character-conversion-table*) "HYPHEN"))
  
  (defun start ()
    (gtk:within-main-loop
  