(executable-set-magic): If

executable-find returns a quoted file name, unquote it before
inserting it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9a29f22ea5b51e05902bdd9108eb4d1e03264fb1..83215282a8ec18096ca12c2d3f37071d160a02cf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2001-08-07  Gerd Moellmann  <gerd@gnu.org>
 
+       * progmodes/executable.el (executable-set-magic): If 
+       executable-find returns a quoted file name, unquote it before
+       inserting it.
+
        * image.el (image-type-regexps): For JPEG files, use a regexp
        derived from the JPEG spec.
        

diff --git a/lisp/progmodes/executable.el b/lisp/progmodes/executable.el
index ce2b0b68cbbea6b908eedc9a763abe9c4b33e29c..bfe860fb22372db83d5395f51cae15f2eedb2148 100644 (file)
--- a/lisp/progmodes/executable.el
+++ b/lisp/progmodes/executable.el
@@ -210,13 +210,19 @@ executable."
    (let* ((name (read-string "Name or file name of interpreter: "))
          (arg (read-string (format "Argument for %s: " name))))
      (list name arg (eq executable-query 'function) t)))
+
   (setq interpreter (if (file-name-absolute-p interpreter)
                        interpreter
                      (or (executable-find interpreter)
-                         (error "Interpreter %s not recognized" interpreter)))
-       argument (concat interpreter
+                         (error "Interpreter %s not recognized"
+                                interpreter))))
+
+  (setq argument (concat (if (string-match "\\`/:" interpreter)
+                            (replace-match "" nil nil interpreter)
+                          interpreter)
                         (and argument (string< "" argument) " ")
                         argument))
+
   (or buffer-read-only
       (if buffer-file-name
          (string-match executable-magicless-file-regexp
@@ -253,7 +259,7 @@ executable."
 ;;;          (eq executable-insert t)
 ;;;          (set-buffer-modified-p buffer-modified-p))
          )))
-  interpreter)
+    interpreter)