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

select lines in more useful way

Browse source
This commit is contained in:
Jean-Philippe Bernardy 2019-07-20 23:28:09 +02:00
parent b38722acc3
commit e482b889cc
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
boon-arguments.el
View file

@ -99,11 +99,11 @@ This item is either the symbol at point, or, if this fails, the sexp at point."
(setq temporary-goal-column 0) (setq temporary-goal-column 0)
(lambda () (lambda ()
(list (boon-mk-reg (list (boon-mk-reg
(line-beginning-position)
(save-excursion (save-excursion
(newline (+ (forward-line count) (newline (+ (forward-line count)
(if (eq (point) (line-beginning-position)) 0 1))) (if (eq (point) (line-beginning-position)) 0 1)))
(point)) (point))))))
(line-beginning-position)))))
(defun boon-select-n (count thing) (defun boon-select-n (count thing)