hiro/boon
1
0
Fork 0
mirror of https://github.com/vale981/boon synced 2025-03-04 17:11:40 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

attempt fix build

Browse source
This commit is contained in:
Jean-Philippe Bernardy 2019-05-24 09:53:59 +02:00
parent b1f79ab0f8
commit e5591395f3
1 changed files with 15 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
boon-arguments.el
View file

@ -70,20 +70,21 @@ This item is either the symbol at point, or, if this fails, the sexp at point."
(save-excursion (save-excursion
(skip-chars-forward "^|") (point)))))) (skip-chars-forward "^|") (point))))))
(defun boon-select-org-tree () (with-eval-after-load 'org
"Return the region corresponding to the current subtree." (defun boon-select-org-tree ()
(interactive) "Return the region corresponding to the current subtree."
(lambda () (interactive)
(boon-regs-from-bounds (lambda ()
(save-excursion (boon-regs-from-bounds
(save-match-data (save-excursion
(org-with-limited-levels (save-match-data
(cons (org-with-limited-levels
(progn (org-back-to-heading t) (point)) (cons
(progn (org-end-of-subtree t t) (progn (org-back-to-heading t) (point))
(when (and (org-at-heading-p) (not (eobp))) (backward-char 1)) (progn (org-end-of-subtree t t)
(point))))))))) (when (and (org-at-heading-p) (not (eobp))) (backward-char 1))
(point))))))))))
(defun boon-select-justline () (defun boon-select-justline ()
"Return the region of the current line, without any newline." "Return the region of the current line, without any newline."
(interactive) (boon-regs-from-bounds (cons (line-beginning-position) (line-end-position)))) (interactive) (boon-regs-from-bounds (cons (line-beginning-position) (line-end-position))))