branch: externals/org-real
commit 4a60febee69cb23d4184f5a58d73ace607c24945
Author: Tyler Grinn <tylergr...@gmail.com>
Commit: Tyler Grinn <tylergr...@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."
