[elpa] externals/embark 81c924ca55 3/6: Merge pull request #561 from minad/autoload-embark

[ELPA Syncer]

branch: externals/embark
commit 81c924ca555ceeb9dd1fec221ff5aa5d2bca242d
Merge: fa5a59cf55 e0bb5b342d
Author: Omar Antolín Camarena <omar.antolin@gmail.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #561 from minad/autoload-embark
    
    Auto load Org integration
---
 embark-org.el | 9 +++------
 embark.el     | 3 +++
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/embark-org.el b/embark-org.el
index 8c601dad5e..46ce7702a5 100644
--- a/embark-org.el
+++ b/embark-org.el
@@ -31,6 +31,7 @@
 
 (require 'embark)
 (require 'org)
+(require 'org-element)
 
 ;;; Basic target finder for Org
 
@@ -99,8 +100,6 @@
     )
   "Supported Org object and element types.")
 
-(declare-function org-element-property "org-element" (property element))
-
 (defun embark-org-target-element-context ()
   "Target the smallest Org element or object around point."
   (when-let (((derived-mode-p 'org-mode 'org-agenda-mode))
@@ -289,10 +288,8 @@ what part or in what format the link is copied."
 (embark-org-define-link-copier description description "'s description")
 (embark-org-define-link-copier target target "'s target")
 
-(declare-function embark-org-copy-link-inner-target "embark-org")
-(fset 'embark-org-copy-link-inner-target 'kill-new)
-(put 'embark-org-copy-link-inner-target 'function-documentation
-      "Copy 'inner part' of the Org link at point's target.
+(defalias 'embark-org-copy-link-inner-target #'kill-new
+  "Copy 'inner part' of the Org link at point's target.
 For mailto and elisp links, the inner part is the portion of the
 target after 'mailto:' or 'elisp:'.
 
diff --git a/embark.el b/embark.el
index 76af12670a..3d8619ea90 100644
--- a/embark.el
+++ b/embark.el
@@ -4299,4 +4299,7 @@ library, which have an obvious notion of associated 
directory."
   (unless (require 'embark-consult nil 'noerror)
     (warn "The package embark-consult should be installed if you use both 
Embark and Consult")))
 
+(with-eval-after-load 'org
+  (require 'embark-org))
+
 ;;; embark.el ends here