[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed 06f4abc 043/166: Improve repeat behavior for back
From: |
Clemens Radermacher |
Subject: |
[elpa] externals/objed 06f4abc 043/166: Improve repeat behavior for backward/forward until context |
Date: |
Sun, 29 Dec 2019 08:20:58 -0500 (EST) |
branch: externals/objed
commit 06f4abc2703e709a19743393051a6f196a47dc57
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>
Improve repeat behavior for backward/forward until context
---
objed.el | 48 ++++++++++++++++++++++++++----------------------
1 file changed, 26 insertions(+), 22 deletions(-)
diff --git a/objed.el b/objed.el
index 16d529d..8303737 100644
--- a/objed.el
+++ b/objed.el
@@ -1778,38 +1778,42 @@ Shrinks to inner objects on repeat if possible."
(objed-context-object)))
(objed--reverse))
-(defun objed-backward-until-context (arg)
+(defun objed-backward-until-context ()
"Goto object inner beginning and activate part moved over.
At bracket or string self insert ARG times."
- (interactive "p")
- (if (eq last-command this-command)
+ (interactive)
+ (if (objed--inner-p)
(progn (objed--toggle-state)
(goto-char (objed--beg)))
- (if (or (objed--at-object-p 'bracket)
- (objed--at-object-p 'string))
- (self-insert-command arg)
- (when (save-excursion
- (objed-context-object)
- (objed--toggle-state))
- (objed--change-to :iend (point) :end (point))
- (goto-char (objed--beg))))))
-
-(defun objed-forward-until-context (arg)
+ (when (save-excursion
+ (prog1 (objed-context-object)
+ (unless (eq last-command this-command)
+ (objed--toggle-state))))
+ (unless (eq last-command this-command)
+ (objed--change-to :iend (point) :end (point)))
+ (when (eq (point) (objed--beg))
+ (objed-context-object))
+ (goto-char (objed--beg)))))
+
+
+(defun objed-forward-until-context ()
"Goto object inner end and activate part moved over.
At bracket or string self insert ARG times."
- (interactive "p")
- (if (eq last-command this-command)
+ (interactive)
+ (if (objed--inner-p)
(progn (objed--toggle-state)
(goto-char (objed--end)))
- (if (or (objed--at-object-p 'bracket)
- (objed--at-object-p 'string))
- (self-insert-command arg)
- (when (save-excursion (objed-context-object)
- (objed--toggle-state))
- (objed--change-to :ibeg (point) :beg (point))
- (goto-char (objed--end))))))
+ (when (save-excursion (prog1 (objed-context-object)
+ (unless (eq last-command this-command)
+ (objed--toggle-state))))
+ (if (eq last-command this-command)
+ (goto-char (objed--end))
+ (objed--change-to :ibeg (point) :beg (point)))
+ (when (eq (point) (objed--end))
+ (objed-context-object))
+ (goto-char (objed--end)))))
(defun objed-current-or-previous-context (&optional arg)
"Move to end of object at point and activate it.
- [elpa] externals/objed bddcb432 032/166: Fix dosctring, (continued)
- [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, 2019/12/29
- [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 <=
- [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
- [elpa] externals/objed c086dce 069/166: Make [/] context independent by default, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed a7b8c48 070/166: Update docs, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 890b8b7 044/166: Add init function for hooks, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 963841d 025/166: Improve continuation object, Clemens Radermacher, 2019/12/29
- [elpa] externals/objed 09cca2c 028/166: Allow numeric prefix arg for kill/delete op, Clemens Radermacher, 2019/12/29