[nongnu] elpa/lua-mode 24cc45e 239/468: Skip shebang line when sending to inferior buffer (issue #61)

[Philip Kaludercic]

branch: elpa/lua-mode
commit 24cc45edf0cb54c0de5724161ffbf40b1a133892
Author: immerrr <immerrr+lua@gmail.com>
Commit: immerrr <immerrr+lua@gmail.com>

    Skip shebang line when sending to inferior buffer (issue #61)
---
 lua-mode.el | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/lua-mode.el b/lua-mode.el
index 240cb8b..5942109 100644
--- a/lua-mode.el
+++ b/lua-mode.el
@@ -1637,8 +1637,25 @@ If `lua-process' is nil or dead, start a new process 
first."
           (lua-send-region start end)
         (error "Not on a function definition")))))
 
+(defun lua-maybe-skip-shebang-line (start)
+  "Skip shebang (#!/path/to/interpreter/) line at beginning of buffer.
+
+Return a position that is after Lua-recognized shebang line (1st
+character in file must be ?#) if START is at its beginning.
+Otherwise, return START."
+  (save-restriction
+    (widen)
+    (if (and (eq start (point-min))
+             (eq (char-after start) ?#))
+        (save-excursion
+          (goto-char start)
+          (forward-line)
+          (point))
+      start)))
+
 (defun lua-send-region (start end)
   (interactive "r")
+  (setq start (lua-maybe-skip-shebang-line start))
   (let* ((lineno (line-number-at-pos start))
          (lua-tempfile (lua-make-temp-file "lua-"))
          (lua-file (or (buffer-file-name) (buffer-name)))