branch: externals/org-real
commit c916d882392124643f764077ce5eea9a9351d9b7
Author: Tyler Grinn <tylergr...@gmail.com>
Commit: Tyler Grinn <tylergr...@gmail.com>
Draw selected box last
---
org-real.el | 17 +++++++++--------
1 file changed, 9 insertions(+), 8 deletions(-)
diff --git a/org-real.el b/org-real.el
index 99e81fe..32cce50 100644
--- a/org-real.el
+++ b/org-real.el
@@ -1235,8 +1235,8 @@ If INCLUDE-ON-TOP is non-nil, also include height on top
of box."
(when (eq dir 'entered)
(save-excursion
(let ((inhibit-read-only t))
- (org-real--draw box 'selected)
- (if visible-rel-box (org-real--draw visible-rel-box 'rel))))
+ (if visible-rel-box (org-real--draw visible-rel-box 'rel))
+ (org-real--draw box 'selected)))
(if (slot-boundp box :help-echo) (message help-echo))
(if (slot-boundp box :metadata)
(setq tooltip-timer (org-real--tooltip metadata))
@@ -1246,18 +1246,19 @@ If INCLUDE-ON-TOP is non-nil, also include height on
top of box."
(setq tooltip-timer
(org-real--tooltip
(with-temp-buffer
- (insert (format (concat "The %s "
- (if (org-real--is-plural
name) "are" "is")
- " %s the %s.")
- name rel rel-name))
+ (insert (format
+ (concat "The %s "
+ (if (org-real--is-plural name)
"are" "is")
+ " %s the %s.")
+ name rel rel-name))
(let ((fill-column org-real-tooltip-max-width))
(fill-paragraph t))
(buffer-string))))))))
(when (eq dir 'left)
(save-excursion
(let ((inhibit-read-only t))
- (org-real--draw box t)
- (if visible-rel-box (org-real--draw visible-rel-box t))))
+ (if visible-rel-box (org-real--draw visible-rel-box t))
+ (org-real--draw box t)))
(if tooltip-timer (cancel-timer tooltip-timer))))))))
(cl-defmethod org-real--jump-other-window ((box org-real-box))
