[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed 38887bb 107/216: Adjust textblock object
From: |
Stefan Monnier |
Subject: |
[elpa] externals/objed 38887bb 107/216: Adjust textblock object |
Date: |
Tue, 8 Jan 2019 12:29:21 -0500 (EST) |
branch: externals/objed
commit 38887bbc58e6d1efa3c8c5a5f6390618beae0d96
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>
Adjust textblock object
---
objed-objects.el | 18 ++++++++++--------
1 file changed, 10 insertions(+), 8 deletions(-)
diff --git a/objed-objects.el b/objed-objects.el
index 54515d8..eeeff00 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1536,21 +1536,23 @@ Ignores simple structured expressions like words or
symbols."
(objed-define-object nil textblock
:get-obj
- (if (or (not (derived-mode-p 'prog-mode))
- (derived-mode-p 'text-mode)
- (objed--in-comment-p)
- (objed--in-string-p))
+ (when (or (not (derived-mode-p 'prog-mode))
+ (derived-mode-p 'text-mode)
+ (objed--in-comment-p)
+ (objed--in-string-p))
(objed--with-narrow-for-text
(let ((bounds (objed--get-textblock-bounds)))
(when (and bounds
(or (not (eq (car bounds) (point-min)))
(not (eq (cdr bounds) (point-max)))))
- (objed-make-object :obounds bounds))))
- (error "No textblock here"))
+ (objed-make-object :obounds bounds)))))
+ ;; TODO: narrow for current string/object
:try-next
- (forward-sentence 1)
+ (objed--with-narrow-for-text
+ (forward-sentence 1))
:try-prev
- (forward-sentence -1))
+ (objed--with-narrow-for-text
+ (forward-sentence -1)))
(defun objed--column (pos)
- [elpa] externals/objed 22392cf 099/216: Add whitepsace objects, fixes #2, (continued)
- [elpa] externals/objed 22392cf 099/216: Add whitepsace objects, fixes #2, Stefan Monnier, 2019/01/08
- [elpa] externals/objed f3efa0e 121/216: Don't let sentence object jump over to next comments/string, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 192217a 066/216: Add no-skip option and block object, Stefan Monnier, 2019/01/08
- [elpa] externals/objed a2df7ab 075/216: Stay active when using describe key in modal state, Stefan Monnier, 2019/01/08
- [elpa] externals/objed b7fbf71 106/216: Fixes #12, collect no-skipping objects correctly, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 29bccb0 042/216: Whitespace cleanup, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 2e1e5c1 110/216: Run compilation as part of make test, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 433e92d 104/216: Block objed advices in object body codes, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 79ec8af 116/216: Fix boundary error, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 5a1c9f7 122/216: Improve char switching with objec-ace, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 38887bb 107/216: Adjust textblock object,
Stefan Monnier <=
- [elpa] externals/objed fc11d2b 119/216: Fix skipping ws if point is after the object, Stefan Monnier, 2019/01/08
- [elpa] externals/objed d50117d 114/216: Fix kill-op error, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 49e36fd 123/216: Change back to indentation behavior, Stefan Monnier, 2019/01/08
- [elpa] externals/objed ce608d8 115/216: Add symbol object back, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 051028c 129/216: Fix init for entry commands which use after-init-alist, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 4b21416 112/216: Fix endless textblock search, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 703d634 131/216: Move some op bindings to more emacsy bindings, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 92fd6e7 135/216: Fix marking instances in objects not surrounding point, Stefan Monnier, 2019/01/08
- [elpa] externals/objed b9866d6 101/216: Fix undo op behavior, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 0e1d041 105/216: Simplify object macro usage, Stefan Monnier, 2019/01/08