branch: externals/org-real commit 9f314c0da7a444aa17546ee12689c4f3bab8253f Author: Amy Grinn <grinn....@gmail.com> Commit: Amy Grinn <grinn....@gmail.com>
Simplified merge function --- org-real.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/org-real.el b/org-real.el index 588b3e6dfa..557b689be3 100644 --- a/org-real.el +++ b/org-real.el @@ -224,11 +224,9 @@ If EXCLUDE-CHILDREN, only retrieve sibling boxes." (if (= 0 (length boxes)) (org-real--box) (car boxes)) - (let ((world (org-real--box)) - box) + (let ((world (org-real--box))) (while boxes - (setq box (pop boxes)) - (org-real--merge-into box world)) + (org-real--merge-into (pop boxes) world)) world))) (defun org-real--expand (box)