[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/embark 9c9c936dd7 1/3: Make embark-org-define-link-keym
From: |
ELPA Syncer |
Subject: |
[elpa] externals/embark 9c9c936dd7 1/3: Make embark-org-define-link-keymap private |
Date: |
Fri, 6 May 2022 19:57:30 -0400 (EDT) |
branch: externals/embark
commit 9c9c936dd74ee81faa7b112449f6178a0433e8ad
Author: Omar Antolín <omar.antolin@gmail.com>
Commit: Omar Antolín <omar.antolin@gmail.com>
Make embark-org-define-link-keymap private
---
embark-org.el | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/embark-org.el b/embark-org.el
index 135a2f3e34..2f808cbe25 100644
--- a/embark-org.el
+++ b/embark-org.el
@@ -211,7 +211,7 @@ also the whole target.")
("TAB" org-insert-link)
("w" 'embark-org-copy-map))
-(defmacro embark-org-define-link-keymap (type)
+(defmacro embark-org--define-link-keymap (type)
"Define a keymap for Org link of given TYPE.
The keymap will inherit from `embark-org-link-map' and from
`embark-TYPE-map' in that order."
@@ -225,10 +225,13 @@ The keymap will inherit from `embark-org-link-map' and
from
(push 'embark--ignore-target
(alist-get 'org-open-at-point embark-target-injection-hooks))
-(embark-org-define-link-keymap url)
-(embark-org-define-link-keymap file)
-(embark-org-define-link-keymap email)
-(embark-org-define-link-keymap expression)
+(push 'embark--ignore-target
+ (alist-get 'org-insert-link embark-target-injection-hooks))
+
+(embark-org--define-link-keymap url)
+(embark-org--define-link-keymap file)
+(embark-org--define-link-keymap email)
+(embark-org--define-link-keymap expression)
(add-to-list 'embark-keymap-alist '(org-link . embark-org-link-map))
(add-to-list 'embark-keymap-alist '(org-url-link . embark-org-url-link-map))