Perl: ¿Cómo puedo hacer que Emacs agregue comillas a la ruta completa de un script de Perl?

Question

Pregunta embarazosamente simple. Usando el modo CPerl en Emacs 23.4.1 en Windows 7 64, cuando uso C-c c para ejecutar el script, Emacs no ajusta la ruta entre comillas, por lo que cualquier directorio con espacios hace que Perl no pueda encontrar el archivo. "C:/Perl64/bin\perl.exe -w g:/foo/bar/first second/myscript.pl" genera este mensaje de error: "Can't open perl script "g:/foo/bar/first": No such file or directory"

Pregunta: ¿cómo puedo hacer Emacs usar comillas cuando se pasa el nombre del archivo a Perl en sí?

Editar: por alguna razón no puedo comentar (tal vez un problema con el navegador) por lo que estoy editando la publicación original en respuesta al comentario de @legoscia: "C-c c ejecuta el comando mode-compile". En el menú de Perl, está marcado como "Ejecutar".

Answer 1

Solo tengo mode-compile.el v2.29 disponible, pero en esa versión el problema es exactamente como usted lo describe, los argumentos para el comando de compilación no se escapan correctamente, y no hay ninguna opción para habilitarlo.

Es un poco de truco, pero usted debería ser capaz de redefinir la función correspondiente con la correcta escape para el nombre de archivo con esto en su .emacs archivo:

(eval-after-load 'mode-compile 
    '(progn 
    (defun mc--shell-compile (shell dbgflags &optional errors-regexp-alist) 
     ;; Run SHELL with debug flags DBGFLAGS on current-buffer 
     (let* ((shcmd (or (mc--which shell) 
          (error "Compilation abort: command %s not found" shell))) 
      (shfile (or mc--remote-pathname (buffer-file-name) 
          (error "Compilation abort: Buffer %s has no filename" 
           (buffer-name)))) 
      (run-cmd (concat shcmd " " dbgflags " " (shell-quote-argument shfile) " " 
           (setq mc--shell-args 
            (read-string (if mode-compile-expert-p 
                "Argv: " 
                (format "Arguments to %s %s script: " 
                  shfile shell)) 
               mc--shell-args))))) 
     ;; Modify compilation-error-regexp-alist if needed 
     (if errors-regexp-alist 
      (progn 
       ;; Set compilation-error-regexp-alist from compile 
       (or (listp errors-regexp-alist) 
        (error "Compilation abort: In mc--shell-compile errors-regexp-alist not a list.")) 
       ;; Add new regexp alist to compilation-error-regexp-alist 
       (mapcar '(lambda(x) 
         (if (mc--member x compilation-error-regexp-alist) nil 
          (setq compilation-error-regexp-alist 
           (append (list x) 
             compilation-error-regexp-alist)))) 
         errors-regexp-alist))) 
     ;; Run compile with run-cmd 
     (mc--compile run-cmd))))) 

La línea cambié estaba cambiando

(run-cmd (concat shcmd " " dbgflags " " shfile " " 

a

(run-cmd (concat shcmd " " dbgflags " " (shell-quote-argument shfile) " " 

Una solución más completa sería también Escape del dbgflags (donde sea que estén configurados, solo escapando toda la variable no estará bien) y mc--shell-args cuando están configurados también.