generate more-correct C strings

Make C string generation more correct. Still not perfect. See #25.
tromey · Sep 16, 2017 · 08c48d0 · 08c48d0
1 parent 5f9d0c4
commit 08c48d0
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/elcomp/eltoc.el b/elcomp/eltoc.el
@@ -41,7 +41,16 @@
 (defun elcomp--c-quote-string (str)
   "Quote a Lisp string according to C rules."
   (concat "\""
-	  (replace-regexp-in-string "[\\\\\"\n]" "\\\\\\&" str)
+	  (mapconcat (lambda (c)
+		       ;; Not really complete yet.
+		       (cl-case c
+			 ((?\\ ?\")
+			  (string ?\\ c))
+			 (?\n "\\n")
+			 (?\r "\\r")
+			 (?\t "\\t")
+			 (t (string c))))
+		     str "")
 	  "\""))
 
 (defun elcomp--c-name (symbol)