[elpa] externals/org-real 4a60feb 109/160: Linting

[ELPA Syncer]

branch: externals/org-real
commit 4a60febee69cb23d4184f5a58d73ace607c24945
Author: Tyler Grinn <tylergrinn@gmail.com>
Commit: Tyler Grinn <tylergrinn@gmail.com>

    Linting
---
 Eldev       | 2 ++
 org-real.el | 9 ++++-----
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/Eldev b/Eldev
index a6196bb..f13739d 100644
--- a/Eldev
+++ b/Eldev
@@ -1,6 +1,7 @@
 ; -*- mode: emacs-lisp; lexical-binding: t -*-
 
 (eldev-use-package-archive 'melpa)
+(eldev-add-extra-dependencies 'test 'popup)
 
 (eldev-defcommand
  org_real-md5 (&rest _)
@@ -21,6 +22,7 @@
  :override t
  (require 'cl-lib)
  (require 'org-element)
+ (eldev-load-project-dependencies)
  (load-file "org-real.el")
  (let ((failures 0))
    (cl-flet* ((get-expected ()
diff --git a/org-real.el b/org-real.el
index f5cba37..cc695a0 100644
--- a/org-real.el
+++ b/org-real.el
@@ -845,7 +845,7 @@ button drawn."
                                                                    str))
                                     (put-text-property 0 (length str)
                                                        'cursor-sensor-functions
-                                                       (list 
(org-real--create-cursor-functions box))
+                                                       (list 
(org-real--create-cursor-function box))
                                                        str)
                                     (insert-button str
                                                    'help-echo "Jump to first 
occurence"
@@ -1393,10 +1393,9 @@ PREV must already exist in PARENT."
                            (with-slots (primary) box primary)))
   (oset match :locations (append (with-slots (locations) match locations)
                                  (with-slots (locations) box locations)))
-  (let ((world (org-real--get-world match)))
-    (mapc
-     (lambda (next) (org-real--add-next next match))
-     (org-real--next box))))
+  (mapc
+   (lambda (next) (org-real--add-next next match))
+   (org-real--next box)))
 
 (cl-defmethod org-real--merge-into ((from org-real-box) (to org-real-box))
   "Merge FROM box into TO box."