emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/objed 1af3cc7 190/216: Allow minibuffer input in non in


From: Stefan Monnier
Subject: [elpa] externals/objed 1af3cc7 190/216: Allow minibuffer input in non interactive function ops
Date: Tue, 8 Jan 2019 12:29:37 -0500 (EST)

branch: externals/objed
commit 1af3cc757313f837c5e061c05efb64e4ec4271ef
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>

    Allow minibuffer input in non interactive function ops
---
 objed.el | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/objed.el b/objed.el
index cf48c5a..459b8f3 100644
--- a/objed.el
+++ b/objed.el
@@ -1925,12 +1925,14 @@ operation."
   (if (commandp f)
       (objed--create-op-from-rcmd f arg)
     ;; try to pass arg
-    (lambda (beg end)
-      (condition-case nil
-          (funcall f beg end arg)
-        ((wrong-number-of-arguments)
-         (when arg (message "Prefix arg ignored, not supported by operation."))
-         (funcall f beg end))))))
+     (lambda (beg end)
+       (condition-case nil
+           (objed--with-allow-input
+            (funcall f beg end arg))
+         ((wrong-number-of-arguments)
+          (when arg (message "Prefix arg ignored, not supported by 
operation."))
+          (objed--with-allow-input
+           (funcall f beg end)))))))
 
 
 (defun objed--create-op-from-rcmd (rcmd &optional prefix)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]