mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

org-element: Fix wrong cache behaviour 

* lisp/org-element.el (org-element--cache-before-change): Correctly
  preserve match data.
This commit is contained in:
Nicolas Goaziou 2014-03-05 16:39:29 +01:00
parent 080f1dd5af
commit a8568372ad
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
lisp/org-element.el
View File

@ -5461,23 +5461,23 @@ BEG and END are the beginning and end of the range of changed
text. See `before-change-functions' for more information."
(let ((inhibit-quit t))
;; Make sure buffer positions in cache are correct until END.
(org-element--cache-sync (current-buffer) end)
(org-with-wide-buffer
(goto-char beg)
(beginning-of-line)
(let ((top (point))
(bottom (save-excursion (goto-char end) (line-end-position)))
(sensitive-re
;; A sensitive line is a headline or a block (or drawer,
;; or latex-environment) boundary. Inserting one can
;; modify buffer drastically both above and below that
;; line, possibly making cache invalid. Therefore, we
;; need to pay attention to changes happening to them.
(concat
"\\(" (org-with-limited-levels org-outline-regexp-bol) "\\)" "\\|"
org-element--cache-closing-line "\\|"
org-element--cache-opening-line)))
(save-match-data
(save-match-data
(org-element--cache-sync (current-buffer) end)
(org-with-wide-buffer
(goto-char beg)
(beginning-of-line)
(let ((top (point))
(bottom (save-excursion (goto-char end) (line-end-position)))
(sensitive-re
;; A sensitive line is a headline or a block (or drawer,
;; or latex-environment) boundary. Inserting one can
;; modify buffer drastically both above and below that
;; line, possibly making cache invalid. Therefore, we
;; need to pay attention to changes happening to them.
(concat
"\\(" (org-with-limited-levels org-outline-regexp-bol) "\\)" "\\|"
org-element--cache-closing-line "\\|"
org-element--cache-opening-line)))
(setq org-element--cache-change-warning
(cond ((not (re-search-forward sensitive-re bottom t)) nil)
((and (match-beginning 1)