[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed 87cdeee 039/166: Improve toggle state
From: |
Clemens Radermacher |
Subject: |
[elpa] externals/objed 87cdeee 039/166: Improve toggle state |
Date: |
Sun, 29 Dec 2019 08:20:57 -0500 (EST) |
branch: externals/objed
commit 87cdeee440c03afcc94e46018f421c316d105d87
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>
Improve toggle state
---
objed.el | 19 +++++++++++++------
1 file changed, 13 insertions(+), 6 deletions(-)
diff --git a/objed.el b/objed.el
index 1a772c2..9e17e7d 100644
--- a/objed.el
+++ b/objed.el
@@ -1777,13 +1777,20 @@ Shrinks to inner objects on repeat if possible."
(when (eq objed--object 'sexp)
(save-excursion
(objed-context-object)))
- (let ((sdiff (abs (- (point) (objed--beg))))
- (ediff (abs (- (point) (objed--end)))))
+ (let ((boo (eq (point) (objed--beg)))
+ (eoo (eq (point) (objed--end))))
(objed--reverse)
- (goto-char (cond ((> ediff sdiff)
- (objed--beg))
- (t
- (objed--end))))))
+ (cond (boo
+ (goto-char (objed--beg)))
+ ((and eoo
+ (not (eq objed--object 'line)))
+ (goto-char (objed--end)))
+ ((< (point) (objed--beg))
+ (goto-char (objed--beg)))
+ ((and
+ (> (point) (objed--beg))
+ (> (point) (objed--end)))
+ (goto-char (objed--end))))))
(defun objed-backward-until-context (arg)
"Goto object inner beginning and activate part moved over.
- [elpa] externals/objed 0956db5 029/166: Don't add additional undo bounds for numeric repeats, (continued)
- [elpa] externals/objed 0956db5 029/166: Don't add additional undo bounds for numeric repeats, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 781f0ee 031/166: Make word object behave correctly with superword/subword-mode, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed a16418c 040/166: Refactor object-toggle-state, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed f9c3819 020/166: Tweak sexp object again, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 2701f73 026/166: Fix backward kill for continuation, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed bddcb432 032/166: Fix dosctring, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 8babcfc 030/166: Make obj state buffer local and keep it on movement, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed e6d306b 033/166: Don't exclude current object for objed-ace, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 32221a6 041/166: Remember object type for marked object, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 74204af 037/166: Add ability to jump to objects inside current one, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 87cdeee 039/166: Improve toggle state,
Clemens Radermacher <=
- [elpa] externals/objed 6ae9bff 042/166: When repeating backward/forward until proceed to object boundary, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 1b50645 048/166: Update docstring, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed db01e08 046/166: Undo last commit, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 25714dc 060/166: Don't try to be smart with electric wrap, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 06f4abc 043/166: Improve repeat behavior for backward/forward until context, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 2a634b8 054/166: Make append mode global, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 828037d 045/166: Improve init/reset checks, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 7d51f03 058/166: Merge branch 'master' of github.com:clemera/objed, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed ceeff84 057/166: Allow defining objects by regex, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 72592a9 062/166: Change bindings for barf/slurp sexps, Clemens Radermacher, 2019/12/29