Debugging Emacs中出错：无效的搜索边界（点的错误一侧）

我在尝试匹配org-agenda-emacs中的标记“PRIORITY=\\“A\”时遇到此错误

(setq org-agenda-custom-commands
          '(("c" "Simple agenda view"
             ((tags "PRIORITY=\"A\""
                    ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done))
                     (org-agenda-overriding-header "High-priority unfinished tasks:")))

              (agenda "")
              (alltodo "")))))

调试器返回以下信息：

**Debugger entered--Lisp error: (error "Invalid search bound (wrong side of point)")

  re-search-forward("[[<]\\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} ?[^]\15\n>]*?\\..." 37 t)
  #f(compiled-function (specific end ts) #<bytecode 0x1591cc61959d>)(nil 37 nil)
  org-entry-properties(nil)
  org-cached-entry-get(nil "PRIORITY")
  (or (org-cached-entry-get nil "PRIORITY") "")
  (string= (or (org-cached-entry-get nil "PRIORITY") "") "A")
  (and (string= (or (org-cached-entry-get nil "PRIORITY") "") "A"))
  (or (and (string= (or (org-cached-entry-get nil "PRIORITY") "") "A")))
  (progn (setq org-cached-props nil) (or (and (string= (or (org-cached-entry-get nil "PRIORITY") "") "A"))))
  (lambda (todo tags-list level) (progn (setq org-cached-props nil) (or (and (string= (or (org-cached-entry-get nil "PRIORITY") "") "A")))))("TODO" nil 1)
  org-scan-tags(agenda (lambda (todo tags-list level) (progn (setq org-cached-props nil) (or (and (string= (or (org-cached-entry-get nil "PRIORITY") "") "A"))))) nil)
  org-tags-view(nil "PRIORITY=\"A\"")
  (let ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done)) (org-agenda-overriding-header "High-priority unfinished tasks:")) (org-tags-view current-prefix-arg match))
  (let nil (let ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done)) (org-agenda-overriding-header "High-priority unfinished tasks:")) (org-tags-view current-prefix-arg match)))
  eval((let nil (let ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done)) (org-agenda-overriding-header "High-priority unfinished tasks:")) (org-tags-view current-prefix-arg match))))
  org-let2(nil ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done)) (org-agenda-overriding-header "High-priority unfinished tasks:")) (org-tags-view current-prefix-arg match))
  org-agenda-run-series("Simple agenda view" (((tags "PRIORITY=\"A\"" ((org-agenda-skip-function '(org-agenda-skip-entry-if ... ...)) (org-agenda-overriding-header "High-priority unfinished tasks:"))) (agenda "") (alltodo ""))))
  org-agenda(nil)
  funcall-interactively(org-agenda nil)
  call-interactively(org-agenda nil nil)
  command-execute(org-agenda)**

**调试器已输入--Lisp错误：（错误“无效搜索边界（点的错误一侧）”）
向前再搜索（“[[]*？\\…”37 t）
#f（编译函数（特定端ts）#）（nil 37 nil）
组织条目属性（无）
组织缓存条目获取（无“优先级”）
（或（组织缓存项获取零“优先级”）“”）
（字符串=（或（组织缓存项获取零“优先级”）“”）A）
（和（字符串=（或（组织缓存条目获取零“优先级”））“A”））
（或（和（字符串=（或（组织缓存条目获取零“优先级”））“A”））
（progn（setq org cached props nil）（or（and（string=（or（org cached entry get nil“PRIORITY”））））））
（lambda（todo标记列表级别）（progn（setq org cached props nil）（或（and）（string=（或（org cached entry get nil“PRIORITY”））“A”；“todo”nil 1）
组织扫描标记（议程（lambda（todo标记列表级别）（progn（setq-org-cached-props-nil）（或（和）（字符串=（或（组织缓存项get-nil“PRIORITY”））“”）“A”；“”）nil）
组织标记视图（无“优先级=\“A\”）
（let（（组织议程跳过功能）（如果“todo”完成，则组织议程跳过条目））（组织议程覆盖标题“高优先级未完成任务：”）（组织标记查看当前前缀arg匹配））
（let nil（let（（组织议程跳过功能）（如果“todo”完成，则组织议程跳过条目））（组织议程覆盖标题“高优先级未完成任务：”）（组织标记查看当前前缀arg匹配）））
eval（（let nil（let（（组织议程跳过功能）（如果“todo”完成，则组织议程跳过条目））（组织议程覆盖标题“高优先级未完成任务”）（组织标记查看当前前缀arg匹配）））
org-let2（无（（组织议程跳过功能）（如果“todo”完成，则组织议程跳过条目））（组织议程覆盖标题“高优先级未完成任务：”）（组织标记查看当前前缀arg匹配））
组织议程运行系列（“简单议程视图”（（标记“优先级=\“A\”（（组织议程跳过功能（组织议程跳过条目，如果…）））（组织议程覆盖标题“高优先级未完成任务”））（议程“”）（所有待办事项“”））
组织议程（无）
funcall交互（组织议程为零）
交互式呼叫（组织议程为零）
命令执行（组织议程）**

任何帮助都将不胜感激

EMACS版本：28.0.50

---

ORG version:9.3

从我的实验中，我发现（（标记“PRIORITY=\“A\”）会导致此错误。我以一种不必使用此条件的方式重写代码。我的版本实现了相同的目标：

(setq org-agenda-custom-commands
      '(("c" "Simple agenda view" ((alltodo ""
         ((org-agenda-skip-function '(org-agenda-skip-entry-if  'notregexp "\\[#A\\]" 'todo 'done))
              (org-agenda-overriding-header "High-priority unfinished tasks:")))


         ;((tags-todo "+PRIORITY=\"A\""
          (agenda "")
          (alltodo ""
                   ((org-agenda-skip-function
                     '(or (air-org-skip-subtree-if-priority ?A)
                          (org-agenda-skip-if nil '(scheduled deadline))))))))))

---

请不要在StackOverflow和emacs.SE中提出相同的问题。请选择其中一个，然后删除不选择的。Thx。