forked from mirrors/org-mode
fixup! org-agenda-get-sexps: Improve performance
This commit is contained in:
parent
d4fde298b9
commit
6a5f67567e
|
@ -5919,7 +5919,7 @@ displayed in agenda view."
|
||||||
(setq b (point))
|
(setq b (point))
|
||||||
(forward-sexp 1)
|
(forward-sexp 1)
|
||||||
(setq sexp (buffer-substring b (point)))
|
(setq sexp (buffer-substring b (point)))
|
||||||
(setq sexp-entry (if (org-looking-at "[ \t]*\\(\\S-.*\\)")
|
(setq sexp-entry (if (looking-at "[ \t]*\\(\\S-.*\\)")
|
||||||
(buffer-substring
|
(buffer-substring
|
||||||
(match-beginning 1)
|
(match-beginning 1)
|
||||||
(save-excursion
|
(save-excursion
|
||||||
|
|
Loading…
Reference in New Issue