[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed 433e92d 104/216: Block objed advices in object bo
From: |
Stefan Monnier |
Subject: |
[elpa] externals/objed 433e92d 104/216: Block objed advices in object body codes |
Date: |
Tue, 8 Jan 2019 12:29:20 -0500 (EST) |
branch: externals/objed
commit 433e92d59d401de72e703992f3c11d2cda5bdcaa
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>
Block objed advices in object body codes
---
objed-objects.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/objed-objects.el b/objed-objects.el
index 1c124be..3294517 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1214,10 +1214,11 @@ property list where each key has an associated progn."
(push keyw wrapped)
;; allowed to move point
(if (memq vkeyw '(:try-next :try-prev :ref))
- (push `(progn ,@(nreverse forms))
+ (push `(let ((objed--block-p t)) ,@(nreverse forms))
wrapped)
- (push `(save-mark-and-excursion
- ,@(nreverse forms))
+ (push `(let ((objed--block-p t))
+ (save-mark-and-excursion
+ ,@(nreverse forms)))
wrapped))
(objed--get-arg-plist keylst valid wrapped))
(keylst
@@ -2106,8 +2107,7 @@ non-nil the indentation block can contain empty lines."
:try-prev
(python-nav-backward-block)
:get-obj
- (let* ((objed--block-p t)
- (end (save-excursion (python-nav-end-of-block) (forward-line 1)
(point)))
+ (let* ((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))))
- [elpa] externals/objed 9c1b350 067/216: Update link, (continued)
- [elpa] externals/objed 9c1b350 067/216: Update link, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 7abf5b3 091/216: Fixes #3, switch to remote object with '#', Stefan Monnier, 2019/01/08
- [elpa] externals/objed 7ba5cb2 088/216: New until beg/end of buffer behavior, Stefan Monnier, 2019/01/08
- [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 <=
- [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, 2019/01/08
- [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