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

save mark and excursion where needed

Browse source
This commit is contained in:
Jean-Philippe Bernardy 2016-09-29 09:25:17 +02:00
parent 8f0e3d0e44
commit 00f60a7589
3 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
boon-arguments.el
View file

@ -52,8 +52,8 @@
"Return a region list with a single item: the region selected after calling SELECT-FUN (interactively)." "Return a region list with a single item: the region selected after calling SELECT-FUN (interactively)."
(lambda () (lambda ()
(save-mark-and-excursion (save-mark-and-excursion
(call-interactively select-fun) (call-interactively select-fun)
(boon-regs-from-bounds (cons (region-beginning) (region-end)))))) (boon-regs-from-bounds (cons (region-beginning) (region-end))))))
(defun boon-select-wim () ;; what i mean (defun boon-select-wim () ;; what i mean
"Return a region list with a single item. "Return a region list with a single item.

2
boon-moves.el
View file

@ -31,7 +31,7 @@
(interactive "P") (interactive "P")
(let ((orig-point (point))) (let ((orig-point (point)))
(goto-char (goto-char
(save-excursion (save-mark-and-excursion
(deactivate-mark) (deactivate-mark)
(if (boon-in-string-p) (if (boon-in-string-p)
(er/mark-inside-quotes) (er/mark-inside-pairs)) (er/mark-inside-quotes) (er/mark-inside-pairs))

2
boon-pkg.el
View file

@ -2,7 +2,7 @@
"boon" "boon"
"0.4" "0.4"
"Ergonomic Command Mode for Emacs." "Ergonomic Command Mode for Emacs."
'((emacs "24.5") '((emacs "25.1")
(expand-region "0.10.0") (expand-region "0.10.0")
(dash "2.12.0") (dash "2.12.0")
(multiple-cursors "1.3.0")) (multiple-cursors "1.3.0"))