[nongnu] elpa/lua-mode 4a22b3c 100/468: Allow lua-start-process to be called interactively.

[Philip Kaludercic]

branch: elpa/lua-mode
commit 4a22b3c0a43216db0e47f31f8d1c720facad2960
Author: Reuben Thomas <rrt@sc3d.org>
Commit: immerrr <immerrr+lua@gmail.com>

    Allow lua-start-process to be called interactively.
---
 lua-mode.el | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/lua-mode.el b/lua-mode.el
index 91e8e5c..c3f65e5 100644
--- a/lua-mode.el
+++ b/lua-mode.el
@@ -929,10 +929,14 @@ This function just searches for a `end' at the beginning 
of a line."
           (forward-line)))
     ret))
 
-(defun lua-start-process (name &optional program startfile &rest switches)
-  "Start a lua process named NAME, running PROGRAM."
+(defun lua-start-process (&optional name program startfile &rest switches)
+  "Start a lua process named NAME, running PROGRAM.
+PROGRAM defaults to NAME, which defaults to `lua-default-application'.
+When called interactively, switch to the process buffer."
+  (interactive)
   (or switches
       (setq switches lua-default-command-switches))
+  (setq name (or name lua-default-application))
   (setq program (or program name))
   (setq lua-process-buffer (apply 'make-comint name program startfile 
switches))
   (setq lua-process (get-buffer-process lua-process-buffer))
@@ -940,7 +944,10 @@ This function just searches for a `end' at the beginning 
of a line."
   (with-current-buffer lua-process-buffer
     (while (not (lua-prompt-line))
       (accept-process-output (get-buffer-process (current-buffer)))
-      (goto-char (point-max)))))
+      (goto-char (point-max))))
+  ;; when called interactively, switch to process buffer
+  (if (called-interactively-p 'any)
+      (switch-to-buffer lua-process-buffer)))
 
 (defun lua-kill-process ()
   "Kill lua subprocess and its buffer."