[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed a09e198 36/59: Improve objed-eval-exp
From: |
Clemens Radermacher |
Subject: |
[elpa] externals/objed a09e198 36/59: Improve objed-eval-exp |
Date: |
Sun, 24 Mar 2019 06:06:40 -0400 (EDT) |
branch: externals/objed
commit a09e198663878faf5b8f363ddc5fc88b47e5a72f
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>
Improve objed-eval-exp
---
objed.el | 13 ++++++++-----
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/objed.el b/objed.el
index 9d88553..788214f 100644
--- a/objed.el
+++ b/objed.el
@@ -2799,8 +2799,9 @@ If REPLACE is non-nil replace the region with the result."
(if (not replace)
str
(when str
- (delete-region beg end)
- (insert str)))))))))
+ (prog1 str
+ (delete-region beg end)
+ (insert str))))))))))
;; TODO: toggle like fill/unfill
@@ -2874,7 +2875,7 @@ If REPLACE is non-nil replace evaluated code with result."
"Eval expression at point, fallback to defun.
If REPLACE is non-nil replace evaluated code with result."
- (interactive)
+ (interactive "P")
(let* ((obj (cond ((objed--at-object-p 'bracket)
'bracket)
((or (objed--at-object-p 'identifier)
@@ -2884,10 +2885,12 @@ If REPLACE is non-nil replace evaluated code with
result."
(odata (objed--get-object obj))
(res (and odata
(apply 'objed--eval-func
- (append (objed--current odata) (list replace))))))
+ (append (objed--current odata) (list replace))))))
+ (if replace
+ (objed--switch-to 'char)
(when res
(prog1 res
- (objed--switch-to obj nil odata)))))
+ (objed--switch-to obj nil odata))))))
(defun objed-pipe-region (beg end cmd &optional variant)
- [elpa] externals/objed f3d55c0 54/59: Add binding for expand context "object", (continued)
- [elpa] externals/objed f3d55c0 54/59: Add binding for expand context "object", Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 550e537 41/59: Update docstrings, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 6227a85 43/59: Improve movment with objed extend, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed c87ea0f 38/59: Change binding for objed-insert, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed b5e68c9 33/59: Add objed insert command, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 1d116bd 42/59: Improve objed context object, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed fef1621 47/59: Reorder few defuns by topic, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed dc86d31 45/59: Change bindings for duplicate ops, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed a46a1e5 46/59: Add binding for including leading ws, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 315a622 40/59: Update beg of object at point semantics, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed a09e198 36/59: Improve objed-eval-exp,
Clemens Radermacher <=
- [elpa] externals/objed 5af62e2 35/59: Default to char if current buffer has no objed--object set, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 26cd732 32/59: Exit with exit code or op name, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 4c878f8 21/59: Change objed-append-mode activation rules, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed c17de45 48/59: Convert toggle state to shrink context command, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed fe2b5f1 34/59: Improve objed-copy, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 08cb11c 31/59: Eval op improvements/fixes, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 951af46 28/59: Convert eval op to eval-context, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 20d776a 04/59: Improve identifier command, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed 084c9ea 39/59: Adding toggle identifier place command, Clemens Radermacher, 2019/03/24
- [elpa] externals/objed d35abd5 30/59: Improve eval context op for comments and change its binding, Clemens Radermacher, 2019/03/24