[nongnu] elpa/sweeprolog f87a456437: FIXED: quote file paths passed to shell-command-to-string

[ELPA Syncer]

branch: elpa/sweeprolog
commit f87a4564371a8358582a2b64d33194df11dff397
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    FIXED: quote file paths passed to shell-command-to-string
    
    * sweeprolog.el: sweeprolog--ensure-module: quote paths and use
    packaged sweep.pl
    * README.org: fix typo
---
 README.org    |  2 +-
 sweeprolog.el | 13 ++++++++-----
 2 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/README.org b/README.org
index f2311414f1..3ad1b08b5e 100644
--- a/README.org
+++ b/README.org
@@ -579,7 +579,7 @@ In Emacs 29, the command ~M-x cycle-spacing~ is extensible 
through a
 list of callback functions stored in the variable
 ~cycle-spacing-actions~.  ~sweep~ leverages this facility and adds
 ~sweeprolog-align-spaces~ as the first action of ~cycle-spacing~.  To
-inhibit this ~sweeprolog-mode~ from doing so, set the user option
+inhibit ~sweeprolog-mode~ from doing so, set the user option
 ~sweeprolog-enable-cycle-spacing~ to nil.
 
 Moreover, in Emacs 29 ~cycle-spacing~ is bound by default to ~M-SPC~, thus
diff --git a/sweeprolog.el b/sweeprolog.el
index 32ca7688b5..c793c6fdce 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -202,11 +202,14 @@ clause."
                                 (split-string
                                  (shell-command-to-string
                                   (concat
-                                   (or sweeprolog-swipl-path (executable-find 
"swipl"))
-                                   " -g"
-                                   " write_sweep_module_location"
-                                   " -t"
-                                   " halt"))
+                                   (shell-quote-argument
+                                    (or sweeprolog-swipl-path (executable-find 
"swipl")))
+                                   " -g write_sweep_module_location"
+                                   " -t halt "
+                                   (shell-quote-argument
+                                    (expand-file-name
+                                     "sweep.pl"
+                                     (file-name-directory load-file-name)))))
                                  "\n")))))
       (condition-case _
           (load sweep-module-path)