perl - 在 emacs 中调用(缓冲区文件名)时转义空格

Question

所以，我有一个关于在 emacs LaTeX 模式(实际上是 auctex，但没关系。)中使字数统计正常工作的问题。That was answered fine .然后我发现当 (buffer-file-name) 包含空格时我遇到了麻烦。这让事情变得一团糟。 This problem was got around too .现在的问题是，当没有任何空格时，解决方案就会中断。

所以目前我有两个 emacs 命令:

(defun latex-word-count ()
  (interactive)
  (shell-command (concat "/usr/local/bin/texcount.pl "
                         "-inc "
                     (shell-quote-argument (concat "'" (buffer-file-name) "'")))))

当包含文件夹中有空格时，此方法有效。

(defun latex-word-c-nospace ()
  (interactive)
  (shell-command (concat "/usr/local/bin/texcount.pl "
             "-inc "
             (shell-quote-argument (buffer-file-name)))))

当包含的文件夹名称中没有空格时，此方法有效。(好的，所以缩进有点乱，但无论如何)

我的问题:有没有办法让相同的功能在两种情况下都起作用？ This answer建议问题出在 texcount 而不是 emacs。有没有一种方法可以在不弄乱 texcount.pl 的情况下做到这一点？或者我最好的选择是按照 Chris Johnsen 在 SU 上建议的方式戳 texcount.pl？

Answer 1

无论文件名中是否有空格，您的第二个例程都应该有效。例如，我创建了这个小命令:

(defun ls-l ()
  (interactive)
  (shell-command (concat "ls -l "
                         (shell-quote-argument
                          (buffer-file-name)))))

当我在编辑名为 foo.txt 的文件和编辑名为 foo bar.txt 的文件时调用它时，它会起作用。