# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1485530614 -7200
# Node ID 0959998f028de559a0313c8cd347c40c23f38743
# Parent  87b79df71e39ae8eea39c9a30a90a2b8d3d16df6
Return list instead printing to *Message* buffer in my/lookup-key.

diff -r 87b79df71e39 -r 0959998f028d .emacs-my
--- a/.emacs-my	Thu Jan 26 21:18:12 2017 +0200
+++ b/.emacs-my	Fri Jan 27 17:23:34 2017 +0200
@@ -158,12 +158,15 @@
     `(condition-case nil (progn ,@body) (error nil)))
   )
 
-(defun my-lookup-key (key)
+(defun my/lookup-key (key)
   "Search for KEY in all known keymaps."
-  (mapatoms (lambda (ob) (when (and (boundp ob) (keymapp (symbol-value ob)))
-                      (when (functionp (lookup-key (symbol-value ob) key))
-                        (message "%S" ob))))
-            obarray))
+  (let (result)
+    (mapatoms (lambda (ob) (when (and (boundp ob)
+                                 (keymapp (symbol-value ob))
+                                 (functionp (lookup-key (symbol-value ob) key)))
+                        (push ob result)))
+              obarray)
+    (remove-if-not 'identity result) ))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "lisp, elisp")