* slp.el (slp-exec-wait): Use `slp-program-arguments'.

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 80b804d..e04ef1f 100644 (file)
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,5 +1,7 @@
 2001-08-28  Yuuichi Teranishi  <teranisi@gohome.org>
 
+       * slp.el (slp-exec-wait): Use `slp-program-arguments'.
+
        * acap.el (acap-parse-return-metadata-or-return-metalist): Fix for
        parsing NIL.
        (acap-parse-return-metadata): Ditto.

diff --git a/elmo/slp.el b/elmo/slp.el
index 5ca27c3..88ed9d4 100644 (file)
--- a/elmo/slp.el
+++ b/elmo/slp.el
@@ -51,7 +51,8 @@
   "Synchronous execution of slp-program.
 TYPE is a symbol (one of `srvs', `attrs', `srvtypes', `as-is', `ignore')."
   (with-temp-buffer 
-    (let ((result (apply 'call-process slp-program nil t nil (delq nil args))))
+    (let ((result (apply 'call-process slp-program nil t nil
+                        (append slp-program-arguments (delq nil args)))))
       (unless (zerop result)
        (error "SLP error: " (buffer-string)))
       (goto-char (point-min))