From e681ad5d4f929cace40a10a482b8daac127e0296 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Tue, 10 Dec 2019 20:42:23 -0500 Subject: Replace compatibility kludge with org-element-lineage Org v9.3 is now the minimum requirement. --- org-link-edit.el | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/org-link-edit.el b/org-link-edit.el index 0c2cc27..e83b12a 100644 --- a/org-link-edit.el +++ b/org-link-edit.el @@ -67,12 +67,7 @@ (require 'cl-lib) (defun org-link-edit--on-link-p (&optional element) - (let ((el (or element (org-element-context)))) - ;; Don't use `org-element-lineage' because it isn't available - ;; until Org version 8.3. - (while (and el (not (memq (car el) '(link)))) - (setq el (org-element-property :parent el))) - (eq (car el) 'link))) + (org-element-lineage (or element (org-element-context)) '(link) t)) (defun org-link-edit--link-data () "Return list with information about the link at point. -- cgit v1.2.3