# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1358082074 -7200
# Node ID 6c3765dd9ed2373819e7a9b04534fe9bf7431b34
# Parent  a3e820b8422750d93e08e035b101fc0609cddcc1
Search for KEY in all known keymaps.

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