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