From 5c9ced99ee26169226b8918bf525f45add4171ae Mon Sep 17 00:00:00 2001 From: "Cook, Malcolm" Date: Fri, 13 Sep 2024 14:08:53 -0500 Subject: [PATCH] fix emacs integration --- init/lisp | 2 +- shells/Lisp.lua | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/init/lisp b/init/lisp index f832d1fb5..68162e491 100644 --- a/init/lisp +++ b/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 diff --git a/shells/Lisp.lua b/shells/Lisp.lua index 16e571e1e..1cc21cd77 100644 --- a/shells/Lisp.lua +++ b/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