'string-match'在'org-map-entries'中不起作用

Question

我试图映射文件中的所有组织条目,并收集标题的一部分,如果它与一些正则表达式匹配.

问题是字符串匹配总是返回nil.当我逐步使用edebug时,我可以看到其他一切都正常工作.

在这里,我尽可能地减少了问题:

(defun test ()
  (let ((found nil))
    (org-map-entries (lambda ()
               (let ((heading (org-get-heading t t)))
             (when (string-match "[ \t]*>>>[ \t]*\\([A-Z0-9_-]+\\)"
                         heading)
               (push (match-string 1 heading) found))))

             nil '("test.org"))
    found))

test.org中的3行:

* >>> one
* two
* >>> three

字符串匹配工作正常,否则:

(string-match "[ \t]*>>>[ \t]*\\([A-Z0-9_-]+\\)" ">>> one")
=> 0

我尝试过的一些事情:
- 在匹配之前删除字符串属性.
- 实现围绕重新搜索 - 转发.
- 将正则表达式匹配移动到单独的函数.
- 用'mapcar'替换'org-map-entries'并在列表上进行测试,工作正常.

我正在使用GNU Emacs 24.3.1(x86_64-unknown-linux-gnu,GTK +版本3.4.2)

任何提示将非常感激.

Answer 1

难道只是在代码运行时case-fold-search以某种方式设置为nil（因此“AZ”不再匹配小写字符）？如果是这样，替换A-Z0-9为[:alnum:]应该可以修复它。