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

diff --git a/README.org b/README.org
index f2311414f1f661954aed9f2d9bde5c4aa5914b01..3ad1b08b5ea1e79663e556d289c77fd2bc6cf323 100644 (file)
--- 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 32ca7688b519d884c449cf27007efaf03f86b7d3..c793c6fdcea9d73500ca402006a7fd4175aa2147 100644 (file)
--- 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)