Emacs - 如何提取列表的所有元素

Question

我正在寻求一些帮助，以提取已在 dired-mode 中标记的文件和/或目录列表的所有元素。本质上，如果有某种方法可以从 (mapcar (lambda (filename) (file-name-nondirectory filename)) (dired-get-marked-files)) 的结果中删除括号 ，然后就可以解决问题了。

(start-process
  "name-of-process"
  "*output-buffer*"
  "/usr/bin/zip"
  "zip-file-name.zip"
  (mapcar
    (lambda (filename) (file-name-nondirectory filename))
    (dired-get-marked-files)) )

我正在寻找的结果是这样的:

(start-process
  "name-of-process"
  "*output-buffer*"
  "/usr/bin/zip"
  "zip-file-name.zip"
  "filename-number-one"
  "filename-number-two"
  "filename-number-three" )

---

编辑:

start-process 函数通常不接受单个串联的参数字符串。相反，每个参数必须单独拼出(每个参数用引号引起来)，或参数可以是一个变量。

这是来自上面第一个示例的调试器消息 -- 错误是因为文件名周围有括号 -- 即它不能是列表。

Debugger entered--Lisp error: (wrong-type-argument stringp ("file-name-number-one" "file-name-number-two" "file-name-number-three"))
  start-process("name-of-process" "*output-buffer*" "/usr/bin/zip" "zip-file-name.zip" ("file-name-number-one" "file-name-number-two" "file-name-number-three"))
  eval((start-process "name-of-process" "*output-buffer*" "/usr/bin/zip" "zip-file-name.zip" (mapcar (lambda (filename) (file-name-nondirectory filename)) (dired-get-marked-files))) nil)
  (cons (eval exp lexical-binding) values)
  (setq values (cons (eval exp lexical-binding) values))
  (let ((debug-on-error old-value)) (setq values (cons (eval exp lexical-binding) values)) (setq new-value debug-on-error))
  (let ((old-value (make-symbol "t")) new-value) (let ((debug-on-error old-value)) (setq values (cons (eval exp lexical-binding) values)) (setq new-value debug-on-error)) (if (eq old-value new-value) nil (setq debug-on-error new-value)))
  (if (null eval-expression-debug-on-error) (setq values (cons (eval exp lexical-binding) values)) (let ((old-value (make-symbol "t")) new-value) (let ((debug-on-error old-value)) (setq values (cons (eval exp lexical-binding) values)) (setq new-value debug-on-error)) (if (eq old-value new-value) nil (setq debug-on-error new-value))))
  (let ((exp (if exp exp (read--expression "Eval: ")))) (if (null eval-expression-debug-on-error) (setq values (cons (eval exp lexical-binding) values)) (let ((old-value (make-symbol "t")) new-value) (let ((debug-on-error old-value)) (setq values (cons (eval exp lexical-binding) values)) (setq new-value debug-on-error)) (if (eq old-value new-value) nil (setq debug-on-error new-value)))) (let ((print-length (and (not (= 0 (prefix-numeric-value insert-value))) eval-expression-print-length)) (print-level (and (not (= 0 (prefix-numeric-value insert-value))) eval-expression-print-level)) (deactivate-mark)) (if insert-value (with-no-warnings (let ((standard-output (current-buffer))) (prog1 (prin1 (car values)) (if (= 0 ...) (progn ...))))) (prog1 (prin1 (car values) t) (let ((str (eval-expression-print-format ...))) (if str (princ str t)))))))
  (if (active-minibuffer-window) nil (let ((exp (if exp exp (read--expression "Eval: ")))) (if (null eval-expression-debug-on-error) (setq values (cons (eval exp lexical-binding) values)) (let ((old-value (make-symbol "t")) new-value) (let ((debug-on-error old-value)) (setq values (cons (eval exp lexical-binding) values)) (setq new-value debug-on-error)) (if (eq old-value new-value) nil (setq debug-on-error new-value)))) (let ((print-length (and (not (= 0 ...)) eval-expression-print-length)) (print-level (and (not (= 0 ...)) eval-expression-print-level)) (deactivate-mark)) (if insert-value (with-no-warnings (let ((standard-output ...)) (prog1 (prin1 ...) (if ... ...)))) (prog1 (prin1 (car values) t) (let ((str ...)) (if str (princ str t))))))))
  lawlist-eval-expression()
  funcall-interactively(lawlist-eval-expression)
  call-interactively(lawlist-eval-expression nil nil)
  command-execute(lawlist-eval-expression)

Answer 1

你想要的是使用 apply 和 (mapcar ...) 作为它的最后一个参数:

(apply 'start-process
       "name-of-process"
       "*output-buffer*"
       "/usr/bin/zip"
       "zip-file-name.zip"
       (mapcar #'file-name-nondirectory (dired-get-marked-files)))

请注意，(mapcar #'function list) 是 (mapcar (lambda (arg) (function arg)) list) 的较短拼写。