Merge pull request #724 from malcook/main

fix emacs integration

init/lisp

@@ -60,7 +60,7 @@ Return value is t on success, nil otherwise."
           (if (> (buffer-size) 0)
               (progn
                 ;; replace cmd-buffer w/ contents of file whose name is in cmd-buffer
-                (insert-file-contents (buffer-substring (point-min) (1- (point-max))) nil nil nil t)
+                ;; (insert-file-contents (buffer-substring (point-min) (1- (point-max))) nil nil nil t)
                 ;; and run it carefully.  If an error is thrown, catch it and
                 ;; propagate the fact upwards as a nil, but be sure to still
                 ;; execute cleanup below

shells/Lisp.lua

@@ -80,9 +80,9 @@ function Lisp.expandVar(self, k, v, vType)
    v                 = tostring(v):multiEscaped()
    lineA[#lineA + 1] = "(setenv \""
    lineA[#lineA + 1] = k
-   lineA[#lineA + 1] = "\" "
+   lineA[#lineA + 1] = "\" \""
    lineA[#lineA + 1] = v
-   lineA[#lineA + 1] = ")\n"
+   lineA[#lineA + 1] = "\")\n"
    local line = concatTbl(lineA,"")
    stdout:write(line)
    if (k:find('^_ModuleTable') == nil) then