[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed 033b5aa 05/59: Exchange point and mark when toggl
From: |
Clemens Radermacher |
Subject: |
[elpa] externals/objed 033b5aa 05/59: Exchange point and mark when toggling side selection |
Date: |
Sun, 24 Mar 2019 06:06:34 -0400 (EDT) |
branch: externals/objed
commit 033b5aa105c488a13dd5c720ac617a6f502ee72b
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>
Exchange point and mark when toggling side selection
---
objed.el | 14 ++++++++------
1 file changed, 8 insertions(+), 6 deletions(-)
diff --git a/objed.el b/objed.el
index a351a5d..c141aae 100644
--- a/objed.el
+++ b/objed.el
@@ -1957,12 +1957,14 @@ back to `objed-initial-object' if no match found."
Default to sexp at point."
(interactive)
- (let ((sdiff (abs (- (point) (objed--beg))))
- (ediff (abs (- (point) (objed--end)))))
- (cond ((> ediff sdiff)
- (goto-char (objed--end)))
- (t
- (goto-char (objed--beg))))))
+ (if (use-region-p)
+ (exchange-point-and-mark)
+ (let ((sdiff (abs (- (point) (objed--beg))))
+ (ediff (abs (- (point) (objed--end)))))
+ (cond ((> ediff sdiff)
+ (goto-char (objed--end)))
+ (t
+ (goto-char (objed--beg)))))))
(defun objed-exchange-point-and-mark ()
"Exchange point and mark.
- [elpa] externals/objed d56bf74 07/59: Don't ignore errors for try-next/prev, (continued)
- [elpa] externals/objed d56bf74 07/59: Don't ignore errors for try-next/prev, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 68c2a1e 01/59: Improve quit window, reformat if in edit buffer, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 5761dcf 29/59: Obey lexical binding for eval op, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 77fad58 19/59: If region is activated, deactivate it first on objed-quit, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 1c04620 49/59: Skip docstring for inner elisp defun object, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed e771f06 14/59: Improve ace object, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 395708b 13/59: Update object bindings, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 7e0bf6f 12/59: Change binding for word object in object map, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed c000147 08/59: Error when no next/prev object when using next/prev command, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed ae7b3e8 06/59: Dont exit objed on macro recording/execution, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 033b5aa 05/59: Exchange point and mark when toggling side selection,
Clemens Radermacher <=
- [elpa] externals/objed 2170235 02/59: Update description, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 37f455e 15/59: Add region to object map, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 68bae26 10/59: Give feedback if already at last/first identifier, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed aa4104e 03/59: Improve reformat, Clemens Radermacher, 2019/03/24