[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed 326fdc7 7/9: Improve ace-object
From: |
Clemens Radermacher |
Subject: |
[elpa] externals/objed 326fdc7 7/9: Improve ace-object |
Date: |
Sun, 24 Mar 2019 19:51:46 -0400 (EDT) |
branch: externals/objed
commit 326fdc7bfcf89122a0186f9e7a375d58ab1f0543
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>
Improve ace-object
---
objed-objects.el | 40 +++++++++++++++++++++++++---------------
1 file changed, 25 insertions(+), 15 deletions(-)
diff --git a/objed-objects.el b/objed-objects.el
index 76d8c7c..b7bb0cd 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -979,7 +979,7 @@ calculate the data of the object at current position using
(objed--get t))
(error
(when tryb
- (objed--get t))))))))
+ (ignore-errors (objed--get t)))))))))
(if odata
(setq objed--object o
objed--obj-state (or state 'whole)
@@ -1453,20 +1453,30 @@ comments."
(objed-define-object nil ace
:get-obj
- (let ((stripe (and (bound-and-true-p stripe-buffer-mode)
- stripe-buffer-mode)))
- (when (fboundp 'stripe-buffer-mode)
- (stripe-buffer-mode 1))
- ;; TODO: buffer stripes
- (unwind-protect
- (objed-make-object
- :beg (save-excursion (call-interactively 'avy-goto-line)
- (line-beginning-position))
- :end (save-excursion (call-interactively 'avy-goto-line)
- (1+ (line-end-position))))
- (unless (or stripe
- (not (fboundp 'stripe-buffer-mode)))
- (stripe-buffer-mode -1)))))
+ (unless (eq objed--object 'ace-object)
+ (let ((stripe (and (bound-and-true-p stripe-buffer-mode)
+ stripe-buffer-mode)))
+ (when (fboundp 'stripe-buffer-mode)
+ (stripe-buffer-mode 1))
+ (unwind-protect
+ (objed-make-object
+ :beg (save-excursion
+ (call-interactively 'avy-goto-line)
+ ;; indicate input
+ (redisplay)
+ (line-beginning-position))
+ :end (save-excursion
+ (when (fboundp 'stripe-buffer-mode)
+ (stripe-buffer-mode 1))
+ (call-interactively 'avy-goto-line)
+ (1+ (line-end-position))))
+ (unless (or stripe
+ (not (fboundp 'stripe-buffer-mode)))
+ (stripe-buffer-mode -1)))))
+ :try-next
+ (user-error "Not possible")
+ :try-prev
+ (user-error "Not possible"))
(objed-define-object nil trailing
:atp
- [elpa] externals/objed updated (fee7fb9 -> 4798b5b), Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 567f5e2 2/9: Update bindings, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed f94f230 1/9: Init expand object (when called via M-o), Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 326fdc7 7/9: Improve ace-object,
Clemens Radermacher <=
- [elpa] externals/objed 4be5dd7 3/9: Describe changes for 0.8, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 94436f0 6/9: Fallback to previous object if no next found, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 5c450d1 4/9: Improve shrink context, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 4798b5b 9/9: Version bump, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 5fbc821 5/9: Fix name clash of mail object with mail command, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 5714dc0 8/9: Ignore errors when collecting objects, Clemens Radermacher, 2019/03/24