From: Ihor Radchenko <yantar92@gmail.com>
To: "andrés ramírez" <rrandresf@hotmail.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: [BUG] org-agenda-list takes 4m compared to 27 that took 15 seconds [9.5.2 (release_9.5.2-25-gaf6f12 @ /usr/share/emacs/28.1/lisp/org/)]
Date: Tue, 13 Sep 2022 12:45:36 +0800 [thread overview]
Message-ID: <87h71bdgr3.fsf@localhost> (raw)
In-Reply-To: <SJ1PR12MB6363685ACD4B273EF1582C3EA6479@SJ1PR12MB6363.namprd12.prod.outlook.com>
andrés ramírez <rrandresf@hotmail.com> writes:
> Hi. Ihor.
>
>>>>>> "Ihor" == Ihor Radchenko <yantar92@gmail.com> writes:
>
> [...]
>
> Ihor> Can you then execute (setq org-element--cache-self-verify nil)
> Ihor> and repeat the steps?
>
> Done.
>
> The produced file.
Thanks!
Now, can you execute the following and let me know if the performance is
back to satisfactory?
(setq org-element--cache-self-verify nil)
(defun org-back-to-heading (&optional invisible-ok)
"Go back to beginning of heading."
(beginning-of-line)
(or (org-at-heading-p (not invisible-ok))
(if (org-element--cache-active-p)
(let ((heading (org-element-lineage (org-element-at-point)
'(headline inlinetask)
'include-self)))
(when heading
(goto-char (org-element-property :begin heading)))
(while (and (not invisible-ok)
heading
(org-fold-folded-p))
(goto-char (org-fold-core-previous-visibility-change))
(setq heading (org-element-lineage (org-element-at-point)
'(headline inlinetask)
'include-self))
(when heading
(goto-char (org-element-property :begin heading))))
(unless heading
(user-error "Before first headline at position %d in buffer %s"
(point) (current-buffer)))
(point))
(let (found)
(save-excursion
;; At inlinetask end. Move to bol, so that the following
;; search goes to the beginning of the inlinetask.
(when (and (featurep 'org-inlinetask)
(fboundp 'org-inlinetask-end-p)
(org-inlinetask-end-p))
(goto-char (line-beginning-position)))
(while (not found)
(or (re-search-backward (concat "^\\(?:" outline-regexp "\\)")
nil t)
(user-error "Before first headline at position %d in buffer %s"
(point) (current-buffer)))
;; Skip inlinetask end.
(if (and (featurep 'org-inlinetask)
(fboundp 'org-inlinetask-end-p)
(org-inlinetask-end-p))
(org-inlinetask-goto-beginning)
(setq found (and (or invisible-ok (not (org-fold-folded-p)))
(point))))))
(goto-char found)
found))))
--
Ihor Radchenko,
Org mode contributor,
Learn more about Org mode at https://orgmode.org/.
Support Org development at https://liberapay.com/org-mode,
or support my work at https://liberapay.com/yantar92
next prev parent reply other threads:[~2022-09-13 4:45 UTC|newest]
Thread overview: 44+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-09-07 17:02 [BUG] org-agenda-list takes 4m compared to 27 that took 15 seconds [9.5.2 (release_9.5.2-25-gaf6f12 @ /usr/share/emacs/28.1/lisp/org/)] Andrés Ramírez
2022-09-08 5:59 ` Ihor Radchenko
2022-09-12 17:55 ` andrés ramírez
2022-09-13 1:56 ` Ihor Radchenko
2022-09-13 2:53 ` andrés ramírez
2022-09-13 3:03 ` Ihor Radchenko
2022-09-13 4:00 ` andrés ramírez
2022-09-13 4:45 ` Ihor Radchenko [this message]
2022-09-13 23:29 ` andrés ramírez
2022-09-14 2:15 ` Ihor Radchenko
2022-09-14 16:30 ` andrés ramírez
2022-09-16 4:35 ` Ihor Radchenko
2022-09-16 11:31 ` andrés ramírez
2022-09-20 11:30 ` Ihor Radchenko
2022-09-20 13:28 ` andrés ramírez
2022-09-20 13:51 ` Ihor Radchenko
2022-09-20 14:51 ` andrés ramírez
2022-09-21 4:47 ` Ihor Radchenko
2022-09-22 1:59 ` andrés ramírez
2022-09-22 3:32 ` Ihor Radchenko
2022-09-22 4:27 ` andrés ramírez
2022-09-22 4:44 ` Ihor Radchenko
2022-09-22 5:00 ` andrés ramírez
2022-09-22 5:04 ` Ihor Radchenko
2022-09-22 13:23 ` andrés ramírez
2022-09-23 3:05 ` Ihor Radchenko
2022-09-23 3:19 ` andrés ramírez
2022-09-23 3:35 ` Ihor Radchenko
2022-09-23 3:57 ` andrés ramírez
2022-09-23 5:11 ` Ihor Radchenko
2022-09-23 14:55 ` andrés ramírez
2022-09-23 15:36 ` Ihor Radchenko
2022-09-23 16:14 ` andrés ramírez
2022-09-23 17:08 ` Fraga, Eric
2022-09-23 17:23 ` andrés ramírez
2022-09-24 3:20 ` Ihor Radchenko
2022-09-24 4:10 ` on picking diary-style timestamps or normal timestamps when adding agenda entries (was: [BUG] org-agenda-list takes 4m compared to 27 that took 15 seconds [9.5.2 (release_9.5.2-25-gaf6f12 @ /usr/share/emacs/28.1/lisp/org/)]) andrés ramírez
2022-09-24 4:34 ` Ihor Radchenko
2022-09-26 16:37 ` andrés ramírez
2022-09-27 2:38 ` Ihor Radchenko
2022-09-27 2:59 ` on picking diary-style timestamps or normal timestamps when adding agenda entries andrés ramírez
2022-09-27 3:21 ` Ihor Radchenko
2022-09-23 16:33 ` [BUG] org-agenda-list takes 4m compared to 27 that took 15 seconds [9.5.2 (release_9.5.2-25-gaf6f12 @ /usr/share/emacs/28.1/lisp/org/)] Max Nikulin
2022-09-24 3:28 ` Ihor Radchenko
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87h71bdgr3.fsf@localhost \
--to=yantar92@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=rrandresf@hotmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).