[nongnu] elpa/lua-mode 563ac50 325/468: Merge pull request #115 from RobertCochran/escape-tabs

[Philip Kaludercic]

branch: elpa/lua-mode
commit 563ac50158336a16243e1f3f22076e64a853ba72
Merge: 6511687 f2915c3
Author: dennis again <immerrr@gmail.com>
Commit: dennis again <immerrr@gmail.com>

    Merge pull request #115 from RobertCochran/escape-tabs
    
    Escape tabs in lua-make-lua-string
---
 lua-mode.el                   | 12 ++++++++----
 test/test-inferior-process.el |  7 +++++++
 2 files changed, 15 insertions(+), 4 deletions(-)

diff --git a/lua-mode.el b/lua-mode.el
index b34d1dd..95bf6dc 100644
--- a/lua-mode.el
+++ b/lua-mode.el
@@ -1708,10 +1708,14 @@ This function just searches for a `end' at the 
beginning of a line."
     (with-temp-buffer
       (insert str)
       (goto-char (point-min))
-      (while (re-search-forward "[\"'\\\n]" nil t)
-        (if (string= (match-string 0) "\n")
-            (replace-match "\\\\n")
-          (replace-match "\\\\\\&" t)))
+      (while (re-search-forward "[\"'\\\t\\\n]" nil t)
+        (cond
+        ((string= (match-string 0) "\n")
+         (replace-match "\\\\n"))
+        ((string= (match-string 0) "\t")
+         (replace-match "\\\\t"))
+        (t
+          (replace-match "\\\\\\&" t))))
       (concat "'" (buffer-string) "'"))))
 
 ;;;###autoload
diff --git a/test/test-inferior-process.el b/test/test-inferior-process.el
index 2fedd29..e51f00c 100644
--- a/test/test-inferior-process.el
+++ b/test/test-inferior-process.el
@@ -142,3 +142,10 @@ function () end
           (kill-buffer buf))
         (delete-file fname)
         (kill-buffer "*lua*")))))
+
+(describe "String escaping"
+  (it "Escapes literal tabs"
+    (expect (string=
+            (lua-make-lua-string "\
+       -- comment indented with a tab")
+            "'\\t-- comment indented with a tab'"))))