Mercurial Mercurial > dot-emacs / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix test for finding key by lookup-key.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Sat, 19 Sep 2015 19:08:31 +0300
changeset 1292 b515e071a52c
parent 1291 9cef82dd4c45
child 1293 064ea72c81c9
child 1294 03ff957a2614
Fix test for finding key by lookup-key.
.emacs-my file | annotate | diff | comparison | revisions 
--- 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))
dot-emacs