hiro/boon
1
0
Fork 0
mirror of https://github.com/vale981/boon synced 2025-03-05 09:31:43 -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

3
boon-arguments.el
View file

@ -70,6 +70,7 @@ 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))))))
(with-eval-after-load 'org
(defun boon-select-org-tree () (defun boon-select-org-tree ()
"Return the region corresponding to the current subtree." "Return the region corresponding to the current subtree."
(interactive) (interactive)
@ -82,7 +83,7 @@ This item is either the symbol at point, or, if this fails, the sexp at point."
(progn (org-back-to-heading t) (point)) (progn (org-back-to-heading t) (point))
(progn (org-end-of-subtree t t) (progn (org-end-of-subtree t t)
(when (and (org-at-heading-p) (not (eobp))) (backward-char 1)) (when (and (org-at-heading-p) (not (eobp))) (backward-char 1))
(point))))))))) (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."