[elpa] externals/org-real 93cb91e 133/160: Linting/elc

[ELPA Syncer]

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

    Linting/elc
---
 org-real.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/org-real.el b/org-real.el
index fdd9017..b5e98b6 100644
--- a/org-real.el
+++ b/org-real.el
@@ -1211,7 +1211,7 @@ If INCLUDE-ON-TOP is non-nil, also include height on top 
of box."
 
 (cl-defmethod org-real--create-cursor-function ((box org-real-box))
   "Create cursor functions for entering and leaving BOX."
-  (with-slots (rel rel-box display-rel-box display-rel name metadata) box
+  (with-slots (rel rel-box display-rel-box display-rel name metadata 
help-echo) box
     (let (tooltip-timer)
       (lambda (_window _oldpos dir)
         (let ((inhibit-read-only t))
@@ -1219,7 +1219,7 @@ If INCLUDE-ON-TOP is non-nil, also include height on top 
of box."
             (if (eq dir 'entered)
                 (progn
                   (if (slot-boundp box :help-echo)
-                      (message (oref box :help-echo)))
+                      (message help-echo))
                   (if (slot-boundp box :metadata)
                       (setq tooltip-timer (org-real--tooltip metadata))
                     (if (and (slot-boundp box :name) (slot-boundp box :rel))
@@ -1320,7 +1320,7 @@ BOX is the box the button is being made for."
       (append
        `(("TAB"       . ,(org-real--cycle-children box))
          ("r"         . ,(org-real--jump-rel box)))
-       (when (oref box :locations)
+       (when (and (slot-boundp box :locations) locations)
          `(("o"         . ,(org-real--jump-other-window box))
            ("<mouse-1>" . ,(org-real--jump-to box))
            ("RET"       . ,(org-real--jump-to box))