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
(skip-chars-forward "^|") (point))))))
(defun boon-select-org-tree ()
"Return the region corresponding to the current subtree."
(interactive)
(lambda ()
(boon-regs-from-bounds
(save-excursion
(save-match-data
(org-with-limited-levels
(cons
(progn (org-back-to-heading t) (point))
(progn (org-end-of-subtree t t)
(when (and (org-at-heading-p) (not (eobp))) (backward-char 1))
(point)))))))))
(with-eval-after-load 'org
(defun boon-select-org-tree ()
"Return the region corresponding to the current subtree."
(interactive)
(lambda ()
(boon-regs-from-bounds
(save-excursion
(save-match-data
(org-with-limited-levels
(cons
(progn (org-back-to-heading t) (point))
(progn (org-end-of-subtree t t)
(when (and (org-at-heading-p) (not (eobp))) (backward-char 1))
(point))))))))))
(defun boon-select-justline ()
"Return the region of the current line, without any newline."
(interactive) (boon-regs-from-bounds (cons (line-beginning-position) (line-end-position))))