diff options
-rw-r--r-- | init.el | 16 |
1 files changed, 16 insertions, 0 deletions
@@ -216,6 +216,22 @@ (require 'god-mode) (global-set-key (kbd "<M-SPC>") 'god-mode-all) + +(defun original-god-mode-lookup-key-sequence (&optional key key-string-so-far) ()) +(fset 'original-god-mode-lookup-key-sequence (symbol-function 'god-mode-lookup-key-sequence)) + +(defun god-mode-lookup-key-sequence (&optional key key-string-so-far) + "Lookup the command for the given `key' (or the next keypress, +if `key' is nil). This function sometimes +recurses. `key-string-so-far' should be nil for the first call in +the sequence." + (interactive) + (message (format "%s" key)) + (case key + (?x (original-god-mode-lookup-key-sequence ?t key-string-so-far)) + (?t (original-god-mode-lookup-key-sequence ?x key-string-so-far)) + (t (original-god-mode-lookup-key-sequence key key-string-so-far)))) + (defun my-update-cursor () (if god-local-mode (set-cursor-color "Red") |