branch: elpa/sweeprolog
commit 69be982c4192af19dd36142e96ced5e9cdcad000
Author: Eshel Yaron <m...@eshelyaron.com>
Commit: Eshel Yaron <m...@eshelyaron.com>
FIXED: don't rely on string-lines added in Emacs 28.1
---
sweep.el | 18 ++++++++++--------
1 file changed, 10 insertions(+), 8 deletions(-)
diff --git a/sweep.el b/sweep.el
index 8ba8cabf0c..c647417f86 100644
--- a/sweep.el
+++ b/sweep.el
@@ -139,14 +139,16 @@ inserted to the input history in `sweep-top-level-mode'
buffers."
(defun sweep--ensure-module ()
(let ((sweep-module-path (car
- (string-lines
- (shell-command-to-string
- (concat
- (or sweep-swipl-path (executable-find "swipl"))
- " -g"
- " write_sweep_module_location"
- " -t"
- " halt"))))))
+ (save-match-data
+ (split-string
+ (shell-command-to-string
+ (concat
+ (or sweep-swipl-path (executable-find
"swipl"))
+ " -g"
+ " write_sweep_module_location"
+ " -t"
+ " halt"))
+ "\n")))))
(load sweep-module-path)))
(defface sweep-debug-prefix-face
