[elpa] externals/objed 7c2bc2f 206/216: Inline eval-rspec

[Stefan Monnier]

branch: externals/objed
commit 7c2bc2fd4066c9fef2d192f1b168160aaef5edbf
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>

    Inline eval-rspec
---
 objed.el | 18 +++---------------
 1 file changed, 3 insertions(+), 15 deletions(-)

diff --git a/objed.el b/objed.el
index eccf2c1..973ef4d 100644
--- a/objed.el
+++ b/objed.el
@@ -1999,24 +1999,12 @@ When PREFIX is given it will be used by RCMD as
        (push-mark end t t)
        (objed--with-allow-input
         (let ((this-command rcmd)
-              (oargs (objed--eval-rspec rcmd)))
+              (oargs (cddr
+                      (advice-eval-interactive-spec
+                       (cadr (interactive-form rcmd))))))
           (apply handler rcmd beg end oargs)))))))
 
 
-(defun objed--eval-rspec (rcmd)
-  "Eval the interactive spec of region command RCMD.
-
-Returns the result (skipping the positional arguments)."
-  (save-mark-and-excursion
-   ;; some commands error when evaling the interactive spec if
-   ;; there is no mark
-   (unless (marker-position (mark-marker))
-     (set-marker (mark-marker) (point)))
-   (objed--with-allow-input
-    (cddr
-     (advice-eval-interactive-spec
-      (cadr (interactive-form rcmd)))))))
-
 ;; * State Info
 
 (defvar objed--last-states nil