anchor.diff:    (let ((prefix (compile-shortcut *prefix*))
           (move (compile-shortcut *move*))
           (resize (compile-shortcut *resize*))
  +        (close  (compile-shortcut *close*))
           last-button last-x last-y waiting-shortcut)
   
       ;; Grab prefix and mouse buttons on root
       (grab-key *root* (code prefix) :modifiers (state prefix))
       (grab-button *root* (code move) '(:button-press) :modifiers (state move))
       (grab-button *root* (code resize) '(:button-press) :modifiers (state resize))
  +    (grab-button *root* (code close) '(:button-press) :modifiers (state close))
   
       ;; Populate list of windows
       (loop for w in (query-tree *root*) do
  
positive.code:         (focus emacs)
          (run-program "emacs" nil :wait nil :search t))))
  
  ;;; User shortcuts
  (defparameter *prefix* '(:control #\t) "Prefix for shortcuts")
  (defparameter *move* '(:mod-1 1) "Mouse button to move a window")
  (defparameter *resize* '(:mod-1 3) "Mouse button to resize a window")
  (defshortcut (#\c) (run-program "xterm" nil :wait nil :search t))
  (defshortcut (#\e) (emacs))
  (defshortcut (:mod-1 #\e) (run-program "envi" nil :wait nil :search t))
  
negative.code: (defshortcut (:control #\l) (run-program "xlock" nil :wait nil :search t))
  (defshortcut (#\n) (next))
  (defshortcut (#\p) (next #'1-))
  (defshortcut (:control #\n) (next))
  (defshortcut (:control #\p) (next #'1-))
  (defshortcut (:control #\t) (flast))
  
  ;;; Modifier keypress avoidance code
  