[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed 919a72d 071/216: Adjust python block object
From: |
Stefan Monnier |
Subject: |
[elpa] externals/objed 919a72d 071/216: Adjust python block object |
Date: |
Tue, 8 Jan 2019 12:29:14 -0500 (EST) |
branch: externals/objed
commit 919a72dbabc3cf730ae7609951ce60a13874a70a
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>
Adjust python block object
---
objed-objects.el | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/objed-objects.el b/objed-objects.el
index c81a63a..5f92908 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1129,13 +1129,13 @@ If SYN is given use it instead of syntax at point."
(cons (objed--skip-forward (car bounds)'ws)
(objed--skip-backward (cdr bounds)'ws))))
-(defun objed--skip-ws (&optional back)
+(defun objed--skip-ws (&optional back limit)
"Skip whitspace.
Defaults to forward, if BACK is non-nil skip backwards."
(if back
- (skip-chars-backward " \r\n\t")
- (skip-chars-forward " \r\n\t")))
+ (skip-chars-backward " \r\n\t" limit)
+ (skip-chars-forward " \r\n\t" limit)))
(defun objed--skip-forward (from &optional ws comment)
@@ -2056,8 +2056,11 @@ non-nil the indentation block can contain empty lines."
:try-prev
(python-nav-backward-block)
:get-obj
- (let ((start (save-excursion (python-nav-beginning-of-block) (point)))
- (end (save-excursion (python-nav-end-of-block))))
+ (let* ((objed--block-p t)
+ (end (save-excursion (python-nav-end-of-block) (forward-line 1)
(point)))
+ (start (save-excursion (python-nav-beginning-of-block)
+ (objed--skip-ws t (line-beginning-position))
+ (point))))
(cons start end))))
(provide 'objed-objects)
- [elpa] externals/objed 5f23c05 070/216: Fixup advice code, (continued)
- [elpa] externals/objed 5f23c05 070/216: Fixup advice code, Stefan Monnier, 2019/01/08
- [elpa] externals/objed bd6a50c 092/216: Change bindings for surroundings, undo in region, Stefan Monnier, 2019/01/08
- [elpa] externals/objed aa8ba7b 093/216: Change DEL to behave as normal for char object, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 21ca995 069/216: Cleanup malformed object, Stefan Monnier, 2019/01/08
- [elpa] externals/objed d21fd72 073/216: Fix makup again, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 7c41d13 076/216: Fixup which-key paging commands, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 204ea88 095/216: Change surroundings binding, Stefan Monnier, 2019/01/08
- [elpa] externals/objed b54fa1a 077/216: Add more tests, Stefan Monnier, 2019/01/08
- [elpa] externals/objed deb059e 100/216: Update bindings, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 53cafee 085/216: Add new commands to move to first/last instance, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 919a72d 071/216: Adjust python block object,
Stefan Monnier <=
- [elpa] externals/objed b7ded6d 083/216: Improve tests, add more tests, Stefan Monnier, 2019/01/08
- [elpa] externals/objed e5f8bac 102/216: Improve undo in region, Stefan Monnier, 2019/01/08
- [elpa] externals/objed e5dfba1 096/216: Add extend commands, Stefan Monnier, 2019/01/08
- [elpa] externals/objed d770ddd 055/216: Don't exit after eval op, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 6907e69 058/216: Improve face object, Stefan Monnier, 2019/01/08
- [elpa] externals/objed cac61c3 084/216: Improve block objects, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 58af659 068/216: Start adding tests, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 655a636 090/216: Fix bug, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 838094f 097/216: Working on #14, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 9f4e3cf 062/216: More face object adjustments, Stefan Monnier, 2019/01/08