From 51efd7f1db1ca651a267920bd92fbeec4c12eb75 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 16 Dec 2016 22:41:08 +0100 Subject: [PATCH] org-list: Fix "Stack overflow in regexp matcher" * lisp/org-list.el (org-list-item-body-column): Do not backtrack as much in regexp. Reported-by: Vasilij Schneidermann --- lisp/org-list.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-list.el b/lisp/org-list.el index bb39b6edd..78a8aea8f 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -2097,11 +2097,13 @@ Possible values are: `folded', `children' or `subtree'. See "Return column at which body of ITEM should start." (save-excursion (goto-char item) - (looking-at "[ \t]*\\(\\S-+\\)\\(.*[ \t]+::\\)?\\([ \t]+\\|$\\)") + (looking-at "[ \t]*\\(\\S-+\\)\\(.*[ \t]::\\)?\\([ \t]\\|$\\)") (if (match-beginning 2) (let ((start (1+ (match-end 2))) (ind (org-get-indentation))) - (if (> start (+ ind org-list-description-max-indent)) (+ ind 5) start)) + (if (> start (+ ind org-list-description-max-indent)) + (+ ind 5) + start)) (+ (progn (goto-char (match-end 1)) (current-column)) (if (and org-list-two-spaces-after-bullet-regexp (string-match-p org-list-two-spaces-after-bullet-regexp