anchor.diff:    (active-buffer window))
   
   (defmethod window-set-minibuffer-height ((interface remote-interface)
  -                                         (window window) height)
  -  ;; WINDOW could be empty if, for instance, nothing window was focused when
  -  ;; calling WINDOW-ACTIVE.
  -  (when (and interface window (id window))
  -    (with-slots (host port url) interface
  -      (s-xml-rpc:xml-rpc-call
  -       (s-xml-rpc:encode-xml-rpc-call "window.set.minibuffer.height" (id window) height)
  -       :host host :port port :url url))))
  +                                         window height)
  +  (with-slots (host port url) interface
  +    (s-xml-rpc:xml-rpc-call
  +     (s-xml-rpc:encode-xml-rpc-call "window.set.minibuffer.height" (id window) height)
  +     :host host :port port :url url)))
   
   (defmethod buffer-make ((interface remote-interface))
     (with-slots (host port url buffers) interface
  
positive.code:    (port :accessor port :initform (getf *platform-port-socket* :port))
     (url :accessor url :initform "/RPC2")
     (windows :accessor windows :initform (make-hash-table :test #'equal))
     (buffers :accessor buffers :initform (make-hash-table :test #'equal))))
  
  (defmethod start-interface ((interface remote-interface))
  
negative.code: 
  (defmethod window-active ((interface remote-interface))
    "Return the window object for the currently active window."
    (with-slots (host port url windows) interface
      (let ((window (gethash (s-xml-rpc:xml-rpc-call
                              (s-xml-rpc:encode-xml-rpc-call "window.active")
                              :host host :port port :url url)
                             windows)))
        (when window
          (setf (last-active-window interface) window))
        (last-active-window interface))))
  
  (defmethod window-exists ((interface remote-interface) (window window))
    "Return if a window exists."
  