Проблема с аргументами процесса оболочки emacs lisp

Question

Я пытаюсь запустить команды P4V непосредственно из xemacs. После стягивания в p4.el для Emacs Я написал следующее:

(defun p4v-command (cmd) 
    (get-buffer-create p4-output-buffer-name);; We do these two lines 
    (kill-buffer p4-output-buffer-name)  ;; to ensure no duplicates 
    (call-process "p4v" nil (get-buffer-create p4-output-buffer-name) nil 
       "-p" (p4-get-p4-port) 
       "-u" "UserName" 
       "-c" (p4-current-client) 
       "-cmd" (shell-quote-argument (concat cmd " " (buffer-name)))) 
    (display-buffer p4-output-buffer-name)) 

Я пытаюсь получить следующую информацию по команде оболочки (при CMD равно prevdiff):

p4v -p port -u user -c client -cmd "prevdiff file.txt" 

Однако , когда я выполняю функции выше с prevdiff я получаю следующую ошибку

P4V: unrecognized argument '"prevdiff' for '-cmd' option. 

Таким образом, кажется, что вызов-процесс разделения в кавычки строку «prevdiff file.txt» в в индивидуальные аргументы и P4V обрабатывает только первый.

Это не похоже на другие команды, которые я пробовал с обработкой вызова, поэтому я не уверен, что это проблема с lisp или что-то общее с P4V.

Кто-нибудь знает, как это решить?

Answer 1

call-process определенно не объединяет свои аргументы; он передает их непосредственно программе. Чтобы увидеть это так, тип M-: и вычислите следующее выражение:

(call-process "/bin/ls" nil "*scratch*" nil "avg ba") 

где «средний» и «ба» файлы в текущем каталоге. Я получаю следующее сообщение вставляется в мой поцарапать буфер:

/bin/ls: cannot access avg ba: No such file or directory 

Если вызов-процесс был вновь разобран аргументы, он будет иметь раскол «средний ба» на две отдельные аргументы --- но сообщение об ошибке показывает, что это не так.

Вместо этого проблема заключается в аргументе shell-quote. Когда я оцениваю вызов, который вы упоминаете в поцарапать буфер, я получаю следующее:

(shell-quote-argument "prevdiff file.txt") 
"prevdiff\\ file.txt" 

Другими словами, команда P4V на самом деле получает то, что нужно ввести в оболочке, как:

p4v -p port -u user -c client -cmd '"prevdiff file.txt"' 

Вот почему P4V жалуется на «prevdiff

Так что я думаю, что вы хотите вместо этого:.

"-cmd" (concat cmd " " (shell-quote-argument (buffer-name)))) 

(но, конечно, проверьте мои parens).