[elpa] externals/embark 2e3ce23d19: Have embark-bindings-at-point also check overlays

[ELPA Syncer]

branch: externals/embark
commit 2e3ce23d19da042c4d5b5aa98b5a4345a8a5fcc9
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@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))))