branch: elpa/evil-matchit
commit 58e735c5ea1bbcee9393b3b8362f6188450be5ed
Author: Chen Bin <[email protected]>
Commit: Chen Bin <[email protected]>
org-element-property exist in 24.4+ only
---
evil-matchit-org.el | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/evil-matchit-org.el b/evil-matchit-org.el
index a97c03ffdc..55a3d52553 100644
--- a/evil-matchit-org.el
+++ b/evil-matchit-org.el
@@ -48,8 +48,16 @@ between '\\(' and '\\)' in regular expression.
(("begin_html") () ( "end_html") "MONOGAMY")
))
+(defun evilmi--element-property (property element)
+ "Extract the value from the PROPERTY of an ELEMENT."
+ (unless (stringp element)
+ ;; we don't use org-element-property because it's
+ ;; available only in 24.4+
+ (plist-get (nth 1 element) property)))
+
(defun evilmi--get-embedded-language-major-mode ()
- (let ((lang (org-element-property :language (org-element-at-point))))
+ ;; org-element-at-point is available only at org7+
+ (let ((lang (evilmi--element-property :language (org-element-at-point))))
(when lang
(intern (concat lang "-mode")))))
