在 emacs 中调用 (buffer-file-name) 时转义空格

Question

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

所以目前我有两个 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)))))

当包含的文件夹名称中没有空格时，此方法有效。 （好吧，缩进有点奇怪，但无论如何）

我的问题：有没有办法让相同的功能在两种情况下都起作用？ 这个答案表明问题出在 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 的文件时调用它时，它会起作用。

Answer 2

您始终可以选择让 emacs 确定文件名是否有空格：

(defun latex-word-count ()
  (interactive)
  (let* ((has-space (string-match " " buffer-file-name))
         (quoted-name (shell-quote-argument
                       (if has-space
                           (concat "'" buffer-file-name "'")
                         buffer-file-name))))
    (shell-command (concat "/usr/local/bin/texcount.pl "
                           "-inc "
                           quoted-name))))

Answer 3

我是 TeXcount 的开发人员，不久前看到了这篇文章。

正如所指出的，问题出在 TeXcount 上，因此最好的解决方案是修复 TeXcount 而不是破解其他解决方案。我在 TeXcount 网页上提供了一个更新，希望问题能够得到解决：
http://folk.uio.no/einarro/TeXcount/download.html

注意：这是新网页的临时版本，如果我决定 TeXcount 的新地址，可能会稍后移动。

出现这个问题的原因是，为了在 Windows 下允许文件名中使用通配符，我使用了 <@files> 。获取所有文件，这不喜欢空格。在 Linux 中，您可以只使用 @files 而不使用 glob (<...>)，但我希望 TeXcount 也能在 Windows 中工作，因此更好的解决方案是在将空格传递给 glob 之前转义空格。

希望这有帮助，如果没有帮助，请与我联系，我会看看是否可以提供帮助......我不是这里的常客，所以如果作为回复发布，我可能不会注意到问题。

埃纳尔