branch: externals/embark
commit 2e3ce23d19da042c4d5b5aa98b5a4345a8a5fcc9
Author: Omar Antolín <omar.anto...@gmail.com>
Commit: Omar Antolín <omar.anto...@gmail.com>
Have embark-bindings-at-point also check overlays
The get-text-property function ignores overlays while
get-char-property doesn't. Not the best naming scheme, but at least
both functions exist. Since keymaps specified in overlays are also
activated, we want embark-bindings-at-point to show those too.
Also, fix a typo: the property is local-map, not local-keymap.
This fixes #438.
---
embark.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/embark.el b/embark.el
index a62babb4d2..3ff652ca2f 100644
--- a/embark.el
+++ b/embark.el
@@ -1617,8 +1617,8 @@ The selected command will be executed."
"Explore all current command key bindings with `completing-read'.
The selected command will be executed."
(interactive)
- (let ((keymaps (delq nil (list (get-text-property (point) 'keymap)
- (get-text-property (point) 'local-keymap)))))
+ (let ((keymaps (delq nil (list (get-char-property (point) 'keymap)
+ (get-char-property (point) 'local-map)))))
(unless keymaps
(user-error "No key bindings found at point"))
(embark-bindings-in-keymap (make-composed-keymap keymaps))))
