在emacs中生成标签完成表时堆栈溢出

Question

我在 Windows 上使用 GNU Emacs 23.3。我在一个非常大的代码库中工作，为此我生成一个 TAGS 文件（使用 Emacs 提供的 etags 二进制文件）。 TAGS 文件非常大（通常徘徊在 100MB 左右）。我很少需要使用find-tag 之外的任何功能，但有时我希望我可以在 TAGS 表之外完成。

调用complete-tag 会导致 Emacs 自动生成一个完成表。这个过程需要相当长的时间，但我的问题不在于它所花费的时间，而是在最后（大约 100% 完成），我得到一个堆栈溢出（抱歉无法打印的字符):

Debugger entered--Lisp error: (error "Stack overflow in regexp matcher")
  re-search-forward("^\\(\\([^]+[^-a-zA-Z0-9_+*$:]+\\)?\\([-a-zA-Z0-9_+*$?:]+\\)[^-a-zA-Z0-9_+*$?:]*\\)\\(\\([^\n]+\\)\\)?\\([0-9]+\\)?,\\([0-9]+\\)?\n" nil t)
  etags-tags-completion-table()
  byte-code(...)
  tags-completion-table()

还有其他人遇到过这种情况吗？知道解决方法吗？

编辑：开启debug-on-error后的堆栈输出

编辑：删除堆栈，因为我现在知道失败的条目是什么样的：

^L
c:\path\to\some\header.h,0
^L
c:\path\to\some\otherheader.h,0

我的标签文件包含很多这种格式的条目。查看所涉及的标头，很明显它们无法被 etags 正确解析。这很好，但我很惊讶tags-completion-table 没有在其正则表达式中考虑这种格式。作为参考，下面是真实条目的样子：

^L
c:\path\to\some\validheader.h,115
class CSomeClass ^?12,345
bool SomeMethod(^?CSomeClass::SomeMethod^A67,890

Answer 1

有问题的正则表达式用于匹配TAGS 文件中的标记条目。我猜如果文件格式不正确（例如使用非本地行尾），或者如果一个条目真的非常非常大，则可能会发生错误。 （一个条目通常是一两行，这对于正则表达式匹配器来说应该不是问题。）

跟踪问题的一种方法是转到 TAGS 缓冲区并查看发生错误后的点（光标）在哪里。一旦你知道它是哪个函数，并且你可以不用为它添加标签，你就可以简单地避免为它生成 TAGS 条目。

如果问题是由于输入太复杂，我建议你应该向 Emacs 团队发送错误报告。

Answer 2

如果你加载标签表（用 Emacs 打开 TAGS 表，然后bury-buffer），试试M-x dabbrev-expand（绑定到M-/）。如果现在的前缀很常见，那么您最终可能会在达到所需的完成之前运行许多可能的完成。

我不使用 Windows，但在我使用的 Mac 和 Linux 机器上，我没有遇到过这个问题。

Answer 3

这看起来像是 Emacs 中的一个错误，请参阅：

• https://groups.google.com/d/msg/gnu.emacs.help/Ew0sTxk0C-g/YsTPVEKTBAAJ
• https://debbugs.gnu.org/db/20/20703.html

我已将建议的补丁应用到etags-tags-completion-table（为了您的方便，完整地复制在下面）并捕获了一个错误案例。

我在极长的代码行（46,000 个字符！）中触发了错误。我认为有人以编程方式生成了该行并将其粘贴到源代码中。一种解决方法可能是在 ctag 构建或加载阶段简单地过滤这些行，只是删除“长”行，无论这可能意味着什么。大概500个字符就够长了！

我还可以考虑在 ctags 中为我的正则表达式添加最大大小，但这确实不是一个通用的解决方案，因为许多 ctags 模式没有这样的限制。

(defun etags-tags-completion-table () ; Doc string? 
  (let ((table (make-vector 511 0)) 
        (progress-reporter 
         (make-progress-reporter 
          (format "Making tags completion table for %s..." buffer-file-name) 
          (point-min) (point-max)))) 
    (save-excursion 
      (goto-char (point-min)) 
      ;; This monster regexp matches an etags tag line. 
      ;;   \1 is the string to match; 
      ;;   \2 is not interesting; 
      ;;   \3 is the guessed tag name; XXX guess should be better eg DEFUN 
      ;;   \4 is not interesting; 
      ;;   \5 is the explicitly-specified tag name. 
      ;;   \6 is the line to start searching at; 
      ;;   \7 is the char to start searching at. 
      (condition-case err 
          (while (re-search-forward 
                  "^\\(\\([^\177]+[^-a-zA-Z0-9_+*$:\177]+\\)?\ 
\\([-a-zA-Z0-9_+*$?:]+\\)[^-a-zA-Z0-9_+*$?:\177]*\\)\177\ 
\\(\\([^\n\001]+\\)\001\\)?\\([0-9]+\\)?,\\([0-9]+\\)?\n" 
                  nil t) 
            (intern        (prog1 (if (match-beginning 5) 
                               ;; There is an explicit tag name. 
                               (buffer-substring (match-beginning 5) (match-end 5)) 
                             ;; No explicit tag name.  Best guess. 
                             (buffer-substring (match-beginning 3) (match-end 3))) 
                      (progress-reporter-update progress-reporter (point))) 
                    table)) 
          (error 
           (message "error happened near %d" (point)) 
           (error (error-message-string err))))) 
      table))