[elpa] externals/org d4fde298b9 3/3: org-agenda-get-sexps: Improve performance

[ELPA Syncer]

branch: externals/org
commit d4fde298b9a3b4a460e0fc232263662d9ebb1660
Author: Ihor Radchenko <yantar92@gmail.com>
Commit: Ihor Radchenko <yantar92@gmail.com>

    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 c45fd45465..696bb190d7 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