瀏覽代碼

org-element--cache-before-change: Make sure that rx expr is always valid

* lisp/org-element.el (org-element--cache-before-change): Make sure
that we never construct (repeat 1 0 "*") rx expr.

Hopefully fixes https://list.orgmode.org/d8749145-29b9-39d6-5bbe-4b7e765792e5@ctpowe.net/T/#u
Ihor Radchenko 4 年之前
父節點
當前提交
17d4b31a84
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      lisp/org-element.el

+ 2 - 1
lisp/org-element.el

@@ -6534,7 +6534,8 @@ The function returns the new value of `org-element--cache-change-warning'."
                            (let (min-level)
                              (cl-loop while (re-search-forward
                                              (rx-to-string
-                                              (if min-level
+                                              (if (and min-level
+                                                       (> min-level 1))
                                                   `(and bol (repeat 1 ,(1- min-level) "*") " ")
                                                 `(and bol (+ "*") " ")))
                                              bottom t)