diff -r a3e820b84227 -r 6c3765dd9ed2 .emacs-my --- a/.emacs-my Sun Jan 13 11:58:08 2013 +0200 +++ b/.emacs-my Sun Jan 13 15:01:14 2013 +0200 @@ -106,6 +106,13 @@ `(condition-case nil (progn ,@body) (error nil))) ) +(defun my-lookup-key (key) + "Search for KEY in all known keymaps." + (mapatoms (lambda (ob) (when (and (boundp ob) (keymapp (symbol-value ob))) + (when (lookup-key (symbol-value ob) key) + (message "%S" ob)))) + obarray)) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (message "mode groups")