[elpa] externals/idlwave 23b06d1f3b 253/360: Shell-command, for simple 'wait commands.

[ELPA Syncer]

branch: externals/idlwave
commit 23b06d1f3b612baa477b247317c09105bf394f6e
Author: JD Smith <jdtsmith@gmail.com>
Commit: JD Smith <jdtsmith@gmail.com>

    Shell-command, for simple 'wait commands.
---
 idlw-shell.el | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/idlw-shell.el b/idlw-shell.el
index c28e89153f..a5036cf592 100644
--- a/idlw-shell.el
+++ b/idlw-shell.el
@@ -1373,6 +1373,22 @@ recognized."
        (goto-char save-point))
       (set-buffer save-buffer))))
 
+(defun idlwave-shell-command (cmd)
+  "Send a command and immediately gather the result.
+Disables line display after state scanning."
+  (let (result)
+    ;; Only return when you've received the output
+    (idlwave-shell-send-command 
+     cmd 
+     '(progn (idlwave-shell-strip-input)
+            (setq result idlwave-shell-command-output))
+     'hide 'wait nil 'disable)
+    (with-current-buffer ;; DEBUGXXX
+       (get-buffer-create "*idlwave-shell-output*")
+      (goto-char (point-max))
+      (insert (format "--[C.] New result: %s\n" result)))
+    result))
+
 (defun idlwave-shell-send-char (c &optional error)
   "Send one character to the shell, without a newline."
   (interactive "cChar to send to IDL: \np")