anchor.diff:    (gobject:g-signal-connect
      (gtk-object buffer) "button-press-event"
      (lambda (web-view event) (declare (ignore web-view))
  -     #-darwin
  -     (flush-clipboard)
        (on-signal-button-press-event buffer event)))
     (gobject:g-signal-connect
      (gtk-object buffer) "scroll-event"
  
positive.code:      (lambda (widget event) (declare (ignore widget))
         #+darwin
         (push-modifier *browser* event)
         #-darwin
         (flush-clipboard)
         (on-signal-key-press-event window event)))
      (gobject:g-signal-connect
       gtk-object "key_release_event"
       (lambda (widget event) (declare (ignore widget))
         #+darwin
         (pop-modifier *browser* event)
         #-darwin
         (flush-clipboard)
         (on-signal-key-release-event window event)))
      (gobject:g-signal-connect
       gtk-object "destroy"
  
negative.code:      ;; Return t to prevent the context menu from showing.
       nil))
    buffer)
  
  (defmethod ffi-buffer-delete ((buffer gtk-buffer))
    (gtk:gtk-widget-destroy (gtk-object buffer)))
  