[STUMP] [PATCH] command-mode-hook

[Matt Spear]

I really like command-mode, but I found I make the mistake of thinking
I am not in command mode when I am.  I have attached a patch to add a
*commond-mode-hook*, and a var *in-command-mode* (I'd like to remove
this var if the list has any pointers on how to do it).  I also added
a check in ungrab to ensure it was not in command-mode as this can be
confusing.  An example usage:

(setf *command-mode-hook*
      (list (lambda (start)
              (if start
                  (grab-pointer (current-screen))
                  (ungrab-pointer)))))

Cheers!!!
Matt Spear
address@hidden

command-hook.patch
Description: Text Data