From d4fde298b9a3b4a460e0fc232263662d9ebb1660 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Thu, 22 Sep 2022 10:57:20 +0800 Subject: [PATCH] org-agenda-get-sexps: Improve performance * lisp/org-agenda.el (org-agenda-get-sexps): Remove trailing whitespaces in SEXP-ENTRY via buffer movements. It is faster than re-creating string objects in `org-trim'. --- lisp/org-agenda.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index c45fd4546..696bb190d 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -5919,8 +5919,13 @@ displayed in agenda view." (setq b (point)) (forward-sexp 1) (setq sexp (buffer-substring b (point))) - (setq sexp-entry (if (looking-at "[ \t]*\\(\\S-.*\\)") - (org-trim (match-string 1)) + (setq sexp-entry (if (org-looking-at "[ \t]*\\(\\S-.*\\)") + (buffer-substring + (match-beginning 1) + (save-excursion + (goto-char (match-end 1)) + (skip-chars-backward "[:blank:]") + (point))) "")) (setq result (org-diary-sexp-entry sexp sexp-entry date)) (when result