--- 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")