anchor.diff:          (gtk-object gtk-buffer) webkit2:+webkit-editing-command-cut+)))
      (lambda (e) (echo-warning "Cannot cut: ~a" e))))
   
  -(define-ffi-method ffi-buffer-select-all ((gtk-buffer gtk-buffer))
  -  (webkit:webkit-web-view-can-execute-editing-command*
  +(defmethod ffi-buffer-select-all ((gtk-buffer gtk-buffer))
  +  (webkit:webkit-web-view-can-execute-editing-command
      (gtk-object gtk-buffer) webkit2:+webkit-editing-command-select-all+
      (lambda (can-execute?)
        (when can-execute?
  
positive.code:         (gtk-object gtk-buffer) webkit2:+webkit-editing-command-undo+)))
     (lambda (e) (echo-warning "Cannot undo: ~a" e))))
  
  (define-ffi-method ffi-buffer-redo ((gtk-buffer gtk-buffer))
    (webkit:webkit-web-view-can-execute-editing-command*
     (gtk-object gtk-buffer) webkit2:+webkit-editing-command-redo+
     (lambda (can-execute?)
       (when can-execute?
  
negative.code:         (gtk-object gtk-buffer) webkit2:+webkit-editing-command-paste+)))
     (lambda (e) (echo-warning "Cannot paste: ~a" e))))
  
  (defmethod ffi-buffer-cut ((gtk-buffer gtk-buffer))
    (webkit:webkit-web-view-can-execute-editing-command
     (gtk-object gtk-buffer) webkit2:+webkit-editing-command-cut+
     (lambda (can-execute?)
       (when can-execute?
  