# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1442678911 -10800
# Node ID b515e071a52c6912d19e2c47193942749f6d838e
# Parent  9cef82dd4c45f63cc03663fba08f52b8aa025bbf
Fix test for finding key by lookup-key.

diff -r 9cef82dd4c45 -r b515e071a52c .emacs-my
--- a/.emacs-my	Mon Sep 14 22:22:52 2015 +0300
+++ b/.emacs-my	Sat Sep 19 19:08:31 2015 +0300
@@ -133,7 +133,7 @@
 (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)
+                      (when (functionp (lookup-key (symbol-value ob) key))
                         (message "%S" ob))))
             obarray))