From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp0 ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms11 with LMTPS id cM4TF9KuOF/8YgAA0tVLHw (envelope-from ) for ; Sun, 16 Aug 2020 03:58:10 +0000 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp0 with LMTPS id QDLzEtKuOF+zIAAA1q6Kng (envelope-from ) for ; Sun, 16 Aug 2020 03:58:10 +0000 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id B376F94028F for ; Sun, 16 Aug 2020 03:58:09 +0000 (UTC) Received: from localhost ([::1]:54258 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1k79o8-00051a-Nr for larch@yhetil.org; Sat, 15 Aug 2020 23:58:08 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:51182) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1k79nk-00051T-3R for emacs-orgmode@gnu.org; Sat, 15 Aug 2020 23:57:44 -0400 Received: from mail-vs1-xe29.google.com ([2607:f8b0:4864:20::e29]:38588) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1k79nf-00027H-Jj for emacs-orgmode@gnu.org; Sat, 15 Aug 2020 23:57:43 -0400 Received: by mail-vs1-xe29.google.com with SMTP id r7so6622132vsq.5 for ; Sat, 15 Aug 2020 20:57:38 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:references:in-reply-to:from:date:message-id:subject:to :cc; bh=O05J+UrljVB8roajpNHjMr80shktZQDK3gkl7vp6j40=; b=t55WMLIn9Y/pK5zojs5GLVb6rGm79UzWjw31c1Y0o2gf1hK39bl4aVIoVOjbFHzIvW 7szt49fJmVIre0Y82c+wgMzdVbsUCj77pgOkhN5OA4qffqVG8cgEiqXaJ352fbaCwDYU 5bacvcKWqJoe/MeY8yV5O01uF0ZB+gLsDJslc7nvBHp0G7yzb5j/YRAma5GuxEnMmvgx 2TSXchD6ItMzRMWlOsZKZQkcFHANK11VY8i9UxKE549XOcRsjNO/e7AhCscBAg1syjnG gkaMBw/QlDr1gXnHsVZ9WIrAz5ykNRlKOnuxdmo4R8gUF1ajkcQVaTrXr+BdyVewAqCZ rb/Q== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:references:in-reply-to:from:date :message-id:subject:to:cc; bh=O05J+UrljVB8roajpNHjMr80shktZQDK3gkl7vp6j40=; b=FjiFjpo+xhTCezNH47lTUEuubMRjIqsxSKksxnwM48O+h71dmuZ3/f+HjAVumIVz5V o8Ql5fReaAZzkjWxKjAbPui97eL9//2WGdtjOMlV/IWIxNhyXCK84vclccLw4Yj3l4KA ZqcBVvGq2T71TJJ5Kn67BUYkH6pmvwEIlwOBncbgDjAqe205Xso1rkGz6FxIAE7R3tfX VLslPgzRUTO2etdJZLisKfW2FVzs8ENXjHQsrhAui/Ddcns6folcBL840Nd+NpYX9pZT fjbn1fjvDv48gYu3vWYHbn2HF18Qg2eEY/foag9kjMvPF+wewJZKNUXSymznpUa/PA0j r7eg== X-Gm-Message-State: AOAM530aTA4EwfEOVu9hqlrL08kxjAFEMNwHsW8Hhm2ev19IPhyeCRzQ n24x0dCuhSamrgrI+FrzGz+lwpPvTN5CFwZ/sA== X-Google-Smtp-Source: ABdhPJyGl6+uOKWyhb3PghL3IutKwN3M81nPT2TYruunbzf9gSf4XyNPSmP+2iRPI0lIhN57BYqXALuQqfvVMtx6xKo= X-Received: by 2002:a67:f941:: with SMTP id u1mr5413551vsq.128.1597550258152; Sat, 15 Aug 2020 20:57:38 -0700 (PDT) MIME-Version: 1.0 References: <877du1olkf.fsf@localhost> <87v9hktpko.fsf@localhost> In-Reply-To: <87v9hktpko.fsf@localhost> From: "numbchild@gmail.com" Date: Sun, 16 Aug 2020 11:57:31 +0800 Message-ID: Subject: Re: How to detect current in logbook drawer? To: Ihor Radchenko Content-Type: multipart/alternative; boundary="000000000000a5e86c05acf6a742" Received-SPF: pass client-ip=2607:f8b0:4864:20::e29; envelope-from=numbchild@gmail.com; helo=mail-vs1-xe29.google.com X-detected-operating-system: by eggs.gnu.org: No matching host in p0f cache. That's all we know. X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, HTML_MESSAGE=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-orgmode@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Cc: Org-mode Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: "Emacs-orgmode" X-Scanner: scn0 Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=gmail.com header.s=20161025 header.b=t55WMLIn; dmarc=pass (policy=none) header.from=gmail.com; spf=pass (aspmx1.migadu.com: domain of emacs-orgmode-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=emacs-orgmode-bounces@gnu.org X-Spam-Score: 0.29 X-TUID: 1AYgZfXzQp2g --000000000000a5e86c05acf6a742 Content-Type: text/plain; charset="UTF-8" Also I noticed one thing: The problem happens on when link (org-link-beautify enabled) is behind "-" directly: #+begin_src org ,* headline :LOGBOOK: CLOCK: [2020-07-23 Thu 22:05]--[2020-07-23 Thu 22:14] => 0:09 - [[file:~/Code/Emacs/org-mode/lisp/org-agenda.el::(defcustom org-agenda-start-with-clockreport-mode nil][org-agenda-start-with-clockreport-mode]] :END: #+end_src But no problem when preceding content is not link. For example: #+begin_src org ,* headline :LOGBOOK: CLOCK: [2020-07-23 Thu 22:05]--[2020-07-23 Thu 22:14] => 0:09 - kk [[file:~/Code/Emacs/org-mode/lisp/org-agenda.el::(defcustom org-agenda-start-with-clockreport-mode nil][org-agenda-start-with-clockreport-mode]] :END: #+end_src [stardiviner] GPG key ID: 47C32433 IRC(freeenode): stardiviner Twitter: @numbchild Key fingerprint = 9BAA 92BC CDDD B9EF 3B36 CB99 B8C4 B8E5 47C3 2433 Blog: http://stardiviner.github.io/ On Sat, Aug 15, 2020 at 2:02 PM Ihor Radchenko wrote: > >Here is the backtrace of "toggle-debug-on-quit" when I refresh org-agenda > >but has long time suspend. > > That looks unreadable for me. Also, debug on quit may not show the > problematic part depending on your luck. > > It would be easier to understand your problem if you provided the > profiler report (M-x profiler-start ... M-x profiler-report). > Then, you could debug-on-entry using the problematic part according to > the profiler report. > > A blind guess - maybe you are modifying match data somewhere in your > code. This might cause infinite loop in > > > (while (org-activate-links (point-max)) (goto-char (match-end 0))) > > Best, > Ihor > > "numbchild@gmail.com" writes: > > > Thanks for replying, Ihor. I will look into this regexp. > > > > Here is the backtrace of "toggle-debug-on-quit" when I refresh org-agenda > > but has long time suspend. > > > > ``` > > Debugger entered--Lisp error: (quit) > > > > > re-search-forward("\\(\\[\\[\\(\\(?:[^][\\]\\|\\\\\\(?:\\\\\\\\\\)*[][]\\|\\\\+[^][]\\)+..." > > 17651 t) > > (while (re-search-forward org-link-any-re limit t) (let* ((start > > (match-beginning 0)) (end (match-end 0)) (visible-start (or > > (match-beginning 3) (match-beginning 2))) (visible-end (or (match-end 3) > > (match-end 2))) (style (cond ((eq 60 (char-after start)) 'angle) ((eq 91 > > (char-after ...)) 'bracket) (t 'plain)))) (if (and (memq style > > org-highlight-links) (not (string-match-p org-element-paragraph-separate > > (match-string 0))) (not (and (eq style 'plain) (let (...) (if ... ... > > ...))))) (progn (let* ((link-object (save-excursion ... ...)) (link > > (org-element-property :raw-link link-object)) (type (org-element-property > > :type link-object)) (path (org-element-property :path link-object)) > > (properties (list ... ... ... ... ... ... ... ... ... ... ... t))) > > (org-remove-flyspell-overlays-in start end) (org-rear-nonsticky-at end) > (if > > (not (eq ... style)) (add-text-properties start end properties) > > (remove-text-properties start end '...) (let (...) (add-text-properties > > start visible-start hidden) (add-text-properties visible-start > visible-end > > properties) (add-text-properties visible-end end hidden) > > (org-rear-nonsticky-at visible-start) (org-rear-nonsticky-at > visible-end))) > > (let ((f ...)) (if (functionp f) (progn ...))) (throw :exit t)))))) > > (catch :exit (while (re-search-forward org-link-any-re limit t) (let* > > ((start (match-beginning 0)) (end (match-end 0)) (visible-start (or > > (match-beginning 3) (match-beginning 2))) (visible-end (or (match-end 3) > > (match-end 2))) (style (cond ((eq 60 ...) 'angle) ((eq 91 ...) 'bracket) > (t > > 'plain)))) (if (and (memq style org-highlight-links) (not (string-match-p > > org-element-paragraph-separate (match-string 0))) (not (and (eq style > ...) > > (let ... ...)))) (progn (let* ((link-object ...) (link ...) (type ...) > > (path ...) (properties ...)) (org-remove-flyspell-overlays-in start end) > > (org-rear-nonsticky-at end) (if (not ...) (add-text-properties start end > > properties) (remove-text-properties start end ...) (let ... ... ... ... > ... > > ...)) (let (...) (if ... ...)) (throw :exit t)))))) nil) > > org-activate-links(17651) > > (while (org-activate-links (point-max)) (goto-char (match-end 0))) > > (save-excursion (while (org-activate-links (point-max)) (goto-char > > (match-end 0)))) > > (save-excursion (goto-char (point-min)) (save-excursion (while > > (org-activate-links (point-max)) (goto-char (match-end 0)))) (if (eq > > org-agenda-remove-tags t) nil (org-agenda-align-tags)) (if > > org-agenda-with-colors nil (remove-text-properties (point-min) > (point-max) > > '(face nil))) (if (and (boundp 'org-overriding-columns-format) > > org-overriding-columns-format) (progn (set (make-local-variable > > 'org-local-columns-format) org-overriding-columns-format))) (if > > org-agenda-view-columns-initially (progn (org-agenda-columns))) (if > > org-agenda-fontify-priorities (progn (org-agenda-fontify-priorities))) > (if > > (and org-agenda-dim-blocked-tasks org-blocker-hook) (progn > > (org-agenda-dim-blocked-tasks))) (org-agenda-mark-clocking-task) (if > > org-agenda-entry-text-mode (progn (org-agenda-entry-text-hide) > > (org-agenda-entry-text-show))) (if (and (featurep 'org-habit) > > (save-excursion (next-single-property-change (point-min) 'org-habit-p))) > > (progn (org-habit-insert-consistency-graphs))) (setq org-agenda-type > > (org-get-at-bol 'org-agenda-type)) (if (or (eq > > org-agenda-show-inherited-tags 'always) (and (listp > > org-agenda-show-inherited-tags) (memq org-agenda-type > > org-agenda-show-inherited-tags)) (and (eq org-agenda-show-inherited-tags > t) > > (or (eq org-agenda-use-tag-inheritance t) (and (listp > > org-agenda-use-tag-inheritance) (not (memq org-agenda-type > > org-agenda-use-tag-inheritance)))))) nil (let (mrk) (save-excursion > > (goto-char (point-min)) (while (equal (forward-line) 0) (if (setq mrk > > (get-text-property ... ...)) (progn (put-text-property ... ... ... > > ...))))))) (setq org-agenda-represented-tags nil > > org-agenda-represented-categories nil) (if org-agenda-top-headline-filter > > (progn (org-agenda-filter-top-headline-apply > > org-agenda-top-headline-filter))) (if org-agenda-tag-filter (progn > > (org-agenda-filter-apply org-agenda-tag-filter 'tag t))) (if (get > > 'org-agenda-tag-filter :preset-filter) (progn (org-agenda-filter-apply > (get > > 'org-agenda-tag-filter :preset-filter) 'tag t))) (if > > org-agenda-category-filter (progn (org-agenda-filter-apply > > org-agenda-category-filter 'category))) (if (get > > 'org-agenda-category-filter :preset-filter) (progn > (org-agenda-filter-apply > > (get 'org-agenda-category-filter :preset-filter) 'category))) (if > > org-agenda-regexp-filter (progn (org-agenda-filter-apply > > org-agenda-regexp-filter 'regexp))) (if (get 'org-agenda-regexp-filter > > :preset-filter) (progn (org-agenda-filter-apply (get > > 'org-agenda-regexp-filter :preset-filter) 'regexp))) (if > > org-agenda-effort-filter (progn (org-agenda-filter-apply > > org-agenda-effort-filter 'effort))) (if (get 'org-agenda-effort-filter > > :preset-filter) (progn (org-agenda-filter-apply (get > > 'org-agenda-effort-filter :preset-filter) 'effort))) (add-hook > > 'kill-buffer-hook 'org-agenda-reset-markers 'append 'local)) > > (let ((inhibit-read-only t)) (save-excursion (goto-char (point-min)) > > (save-excursion (while (org-activate-links (point-max)) (goto-char > > (match-end 0)))) (if (eq org-agenda-remove-tags t) nil > > (org-agenda-align-tags)) (if org-agenda-with-colors nil > > (remove-text-properties (point-min) (point-max) '(face nil))) (if (and > > (boundp 'org-overriding-columns-format) org-overriding-columns-format) > > (progn (set (make-local-variable 'org-local-columns-format) > > org-overriding-columns-format))) (if org-agenda-view-columns-initially > > (progn (org-agenda-columns))) (if org-agenda-fontify-priorities (progn > > (org-agenda-fontify-priorities))) (if (and org-agenda-dim-blocked-tasks > > org-blocker-hook) (progn (org-agenda-dim-blocked-tasks))) > > (org-agenda-mark-clocking-task) (if org-agenda-entry-text-mode (progn > > (org-agenda-entry-text-hide) (org-agenda-entry-text-show))) (if (and > > (featurep 'org-habit) (save-excursion (next-single-property-change > > (point-min) 'org-habit-p))) (progn > (org-habit-insert-consistency-graphs))) > > (setq org-agenda-type (org-get-at-bol 'org-agenda-type)) (if (or (eq > > org-agenda-show-inherited-tags 'always) (and (listp > > org-agenda-show-inherited-tags) (memq org-agenda-type > > org-agenda-show-inherited-tags)) (and (eq org-agenda-show-inherited-tags > t) > > (or (eq org-agenda-use-tag-inheritance t) (and (listp > > org-agenda-use-tag-inheritance) (not ...))))) nil (let (mrk) > > (save-excursion (goto-char (point-min)) (while (equal (forward-line) 0) > (if > > (setq mrk ...) (progn ...)))))) (setq org-agenda-represented-tags nil > > org-agenda-represented-categories nil) (if org-agenda-top-headline-filter > > (progn (org-agenda-filter-top-headline-apply > > org-agenda-top-headline-filter))) (if org-agenda-tag-filter (progn > > (org-agenda-filter-apply org-agenda-tag-filter 'tag t))) (if (get > > 'org-agenda-tag-filter :preset-filter) (progn (org-agenda-filter-apply > (get > > 'org-agenda-tag-filter :preset-filter) 'tag t))) (if > > org-agenda-category-filter (progn (org-agenda-filter-apply > > org-agenda-category-filter 'category))) (if (get > > 'org-agenda-category-filter :preset-filter) (progn > (org-agenda-filter-apply > > (get 'org-agenda-category-filter :preset-filter) 'category))) (if > > org-agenda-regexp-filter (progn (org-agenda-filter-apply > > org-agenda-regexp-filter 'regexp))) (if (get 'org-agenda-regexp-filter > > :preset-filter) (progn (org-agenda-filter-apply (get > > 'org-agenda-regexp-filter :preset-filter) 'regexp))) (if > > org-agenda-effort-filter (progn (org-agenda-filter-apply > > org-agenda-effort-filter 'effort))) (if (get 'org-agenda-effort-filter > > :preset-filter) (progn (org-agenda-filter-apply (get > > 'org-agenda-effort-filter :preset-filter) 'effort))) (add-hook > > 'kill-buffer-hook 'org-agenda-reset-markers 'append 'local)) (run-hooks > > 'org-agenda-finalize-hook)) > > (if org-agenda-multi nil (let ((inhibit-read-only t)) (save-excursion > > (goto-char (point-min)) (save-excursion (while (org-activate-links > > (point-max)) (goto-char (match-end 0)))) (if (eq org-agenda-remove-tags > t) > > nil (org-agenda-align-tags)) (if org-agenda-with-colors nil > > (remove-text-properties (point-min) (point-max) '(face nil))) (if (and > > (boundp 'org-overriding-columns-format) org-overriding-columns-format) > > (progn (set (make-local-variable 'org-local-columns-format) > > org-overriding-columns-format))) (if org-agenda-view-columns-initially > > (progn (org-agenda-columns))) (if org-agenda-fontify-priorities (progn > > (org-agenda-fontify-priorities))) (if (and org-agenda-dim-blocked-tasks > > org-blocker-hook) (progn (org-agenda-dim-blocked-tasks))) > > (org-agenda-mark-clocking-task) (if org-agenda-entry-text-mode (progn > > (org-agenda-entry-text-hide) (org-agenda-entry-text-show))) (if (and > > (featurep 'org-habit) (save-excursion (next-single-property-change > > (point-min) 'org-habit-p))) (progn > (org-habit-insert-consistency-graphs))) > > (setq org-agenda-type (org-get-at-bol 'org-agenda-type)) (if (or (eq > > org-agenda-show-inherited-tags 'always) (and (listp > > org-agenda-show-inherited-tags) (memq org-agenda-type > > org-agenda-show-inherited-tags)) (and (eq org-agenda-show-inherited-tags > t) > > (or (eq org-agenda-use-tag-inheritance t) (and ... ...)))) nil (let (mrk) > > (save-excursion (goto-char (point-min)) (while (equal ... 0) (if ... > > ...))))) (setq org-agenda-represented-tags nil > > org-agenda-represented-categories nil) (if org-agenda-top-headline-filter > > (progn (org-agenda-filter-top-headline-apply > > org-agenda-top-headline-filter))) (if org-agenda-tag-filter (progn > > (org-agenda-filter-apply org-agenda-tag-filter 'tag t))) (if (get > > 'org-agenda-tag-filter :preset-filter) (progn (org-agenda-filter-apply > (get > > 'org-agenda-tag-filter :preset-filter) 'tag t))) (if > > org-agenda-category-filter (progn (org-agenda-filter-apply > > org-agenda-category-filter 'category))) (if (get > > 'org-agenda-category-filter :preset-filter) (progn > (org-agenda-filter-apply > > (get 'org-agenda-category-filter :preset-filter) 'category))) (if > > org-agenda-regexp-filter (progn (org-agenda-filter-apply > > org-agenda-regexp-filter 'regexp))) (if (get 'org-agenda-regexp-filter > > :preset-filter) (progn (org-agenda-filter-apply (get > > 'org-agenda-regexp-filter :preset-filter) 'regexp))) (if > > org-agenda-effort-filter (progn (org-agenda-filter-apply > > org-agenda-effort-filter 'effort))) (if (get 'org-agenda-effort-filter > > :preset-filter) (progn (org-agenda-filter-apply (get > > 'org-agenda-effort-filter :preset-filter) 'effort))) (add-hook > > 'kill-buffer-hook 'org-agenda-reset-markers 'append 'local)) (run-hooks > > 'org-agenda-finalize-hook))) > > org-agenda-finalize() > > (let* ((span (org-agenda-ndays-to-span (or span org-agenda-span))) > (today > > (org-today)) (sd (or start-day today)) (ndays (org-agenda-span-to-ndays > > span sd)) (org-agenda-start-on-weekday (and (or (eq ndays 7) (eq ndays > 14)) > > org-agenda-start-on-weekday)) (thefiles (org-agenda-files nil 'ifmode)) > > (files thefiles) (start (if (or (null org-agenda-start-on-weekday) (< > ndays > > 7)) sd (let* ((nt ...) (n1 org-agenda-start-on-weekday) (d ...)) (- sd (+ > > ... d))))) (day-numbers (list start)) (day-cnt 0) (inhibit-redisplay (not > > debug-on-error)) (org-agenda-show-log-scoped org-agenda-show-log) s e rtn > > rtnall file date d start-pos end-pos todayp clocktable-start > clocktable-end > > filter) (setq org-agenda-redo-command (list 'org-agenda-list (list 'quote > > arg) start-day (list 'quote span) with-hour)) (let ((--dotimes-limit-- > (1- > > ndays)) (n 0)) (while (< n --dotimes-limit--) (setq day-numbers (cons (1+ > > (car day-numbers)) day-numbers)) (setq n (1+ n)))) (setq day-numbers > > (nreverse day-numbers)) (setq clocktable-start (car day-numbers) > > clocktable-end (1+ (or (org-last day-numbers) 0))) (set > > (make-local-variable 'org-starting-day) (car day-numbers)) (set > > (make-local-variable 'org-arg-loc) arg) (set (make-local-variable > > 'org-agenda-current-span) (org-agenda-ndays-to-span span)) (if > > org-agenda-compact-blocks nil (let* ((d1 (car day-numbers)) (d2 (org-last > > day-numbers)) (w1 (org-days-to-iso-week d1)) (w2 (org-days-to-iso-week > > d2))) (setq s (point)) (cond ((not org-agenda-overriding-header) (insert > > (concat ... "-agenda" ... ":\n"))) ((equal org-agenda-overriding-header > "") > > nil) ((stringp org-agenda-overriding-header) (insert (propertize > > org-agenda-overriding-header ... ...) "\n")) (t (user-error "Invalid > value > > for `org-agenda-overriding-hea..." org-agenda-overriding-header)))) (if > (> > > (point) s) (progn (add-text-properties s (1- (point)) (list 'face > > 'org-agenda-structure 'org-date-line t)) (org-agenda-mark-header-line > s)))) > > (while (setq d (car-safe (prog1 day-numbers (setq day-numbers (cdr > > day-numbers))))) (setq date (calendar-gregorian-from-absolute d) s > (point)) > > (if (or (setq todayp (= d today)) (and (not start-pos) (= d sd))) (setq > > start-pos (point)) (if (and start-pos (not end-pos)) (progn (setq end-pos > > (point))))) (setq files thefiles rtnall nil) (while (setq file (car-safe > > (prog1 files (setq files ...)))) (catch 'nextfile (org-check-agenda-file > > file) (let ((org-agenda-entry-types org-agenda-entry-types)) (if (member > > :deadline* org-agenda-entry-types) (progn ...)) (if (member :scheduled* > > org-agenda-entry-types) (progn ...)) (if with-hour (progn ... ...)) (if > > org-agenda-include-deadlines nil (setq org-agenda-entry-types ...)) (cond > > (... ...) (org-agenda-show-log-scoped ...) (t ...))) (setq rtnall (append > > rtnall rtn)))) (if org-agenda-include-diary (progn (let > > ((org-agenda-search-headline-for-time t)) (require 'diary-lib) (setq rtn > > (org-get-entries-from-diary date)) (setq rtnall (append rtnall rtn))))) > (if > > (or rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1+ day-cnt)) > > (insert (if (stringp org-agenda-format-date) (format-time-string > > org-agenda-format-date ...) (funcall org-agenda-format-date date)) "\n") > > (put-text-property s (1- (point)) 'face (org-agenda-get-day-face date)) > > (put-text-property s (1- (point)) 'org-date-line t) (put-text-property s > > (1- (point)) 'org-agenda-date-header t) (put-text-property s (1- (point)) > > 'org-day-cnt day-cnt) (if todayp (progn (put-text-property s ... ... t))) > > (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp)) (if > > rtnall (progn (insert ... "\n"))) (put-text-property s (1- (point)) 'day > d) > > (put-text-property s (1- (point)) 'org-day-cnt day-cnt)))) (if (and > > org-agenda-clockreport-mode clocktable-start) (progn (let > > ((org-agenda-files (org-agenda-files nil ...)) (p (copy-sequence > > org-agenda-clockreport-parameter-plist)) tbl) (setq p (org-plist-delete p > > :block)) (setq p (plist-put p :tstart clocktable-start)) (setq p > (plist-put > > p :tend clocktable-end)) (setq p (plist-put p :scope 'agenda)) (setq tbl > > (apply 'org-clock-get-clocktable p)) (insert tbl)))) (goto-char > > (point-min)) (or org-agenda-multi (org-agenda-fit-window-to-buffer)) (if > > (or (not (get-buffer-window org-agenda-buffer-name)) (and > > (pos-visible-in-window-p (point-min)) (pos-visible-in-window-p > > (point-max)))) nil (goto-char (1- (point-max))) (recenter -1) (if (not > > (pos-visible-in-window-p (or start-pos 1))) (progn (goto-char (or > start-pos > > 1)) (recenter 1)))) (goto-char (or start-pos 1)) (add-text-properties > > (point-min) (point-max) (list 'org-agenda-type 'agenda 'org-last-args > (list > > arg start-day span) 'org-redo-cmd org-agenda-redo-command 'org-series-cmd > > org-cmd)) (if (eq org-agenda-show-log-scoped 'clockcheck) (progn > > (org-agenda-show-clocking-issues))) (org-agenda-finalize) (setq > > buffer-read-only t) (message "")) > > (catch 'exit (setq org-agenda-buffer-name (or > org-agenda-buffer-tmp-name > > (and org-agenda-doing-sticky-redo org-agenda-buffer-name) (if > > org-agenda-sticky (progn (cond (... ...) (org-keys ...) (t "*Org > > Agenda(a)*")))) "*Org Agenda*")) (org-agenda-prepare "Day/Week") (setq > > start-day (or start-day org-agenda-start-day)) (if (stringp start-day) > > (progn (setq start-day (time-to-days (org-read-date nil t start-day))))) > > (org-compile-prefix-format 'agenda) (org-set-sorting-strategy 'agenda) > > (let* ((span (org-agenda-ndays-to-span (or span org-agenda-span))) (today > > (org-today)) (sd (or start-day today)) (ndays (org-agenda-span-to-ndays > > span sd)) (org-agenda-start-on-weekday (and (or (eq ndays 7) (eq ndays > 14)) > > org-agenda-start-on-weekday)) (thefiles (org-agenda-files nil 'ifmode)) > > (files thefiles) (start (if (or (null org-agenda-start-on-weekday) (< > ndays > > 7)) sd (let* (... ... ...) (- sd ...)))) (day-numbers (list start)) > > (day-cnt 0) (inhibit-redisplay (not debug-on-error)) > > (org-agenda-show-log-scoped org-agenda-show-log) s e rtn rtnall file > date d > > start-pos end-pos todayp clocktable-start clocktable-end filter) (setq > > org-agenda-redo-command (list 'org-agenda-list (list 'quote arg) > start-day > > (list 'quote span) with-hour)) (let ((--dotimes-limit-- (1- ndays)) (n > 0)) > > (while (< n --dotimes-limit--) (setq day-numbers (cons (1+ ...) > > day-numbers)) (setq n (1+ n)))) (setq day-numbers (nreverse day-numbers)) > > (setq clocktable-start (car day-numbers) clocktable-end (1+ (or (org-last > > day-numbers) 0))) (set (make-local-variable 'org-starting-day) (car > > day-numbers)) (set (make-local-variable 'org-arg-loc) arg) (set > > (make-local-variable 'org-agenda-current-span) (org-agenda-ndays-to-span > > span)) (if org-agenda-compact-blocks nil (let* ((d1 (car day-numbers)) > (d2 > > (org-last day-numbers)) (w1 (org-days-to-iso-week d1)) (w2 > > (org-days-to-iso-week d2))) (setq s (point)) (cond ((not > > org-agenda-overriding-header) (insert ...)) ((equal > > org-agenda-overriding-header "") nil) ((stringp > > org-agenda-overriding-header) (insert ... "\n")) (t (user-error "Invalid > > value for `org-agenda-overriding-hea..." org-agenda-overriding-header)))) > > (if (> (point) s) (progn (add-text-properties s (1- ...) (list ... ... > ... > > t)) (org-agenda-mark-header-line s)))) (while (setq d (car-safe (prog1 > > day-numbers (setq day-numbers ...)))) (setq date > > (calendar-gregorian-from-absolute d) s (point)) (if (or (setq todayp (= d > > today)) (and (not start-pos) (= d sd))) (setq start-pos (point)) (if (and > > start-pos (not end-pos)) (progn (setq end-pos ...)))) (setq files > thefiles > > rtnall nil) (while (setq file (car-safe (prog1 files ...))) (catch > > 'nextfile (org-check-agenda-file file) (let (...) (if ... ...) (if ... > ...) > > (if with-hour ...) (if org-agenda-include-deadlines nil ...) (cond ... > ... > > ...)) (setq rtnall (append rtnall rtn)))) (if org-agenda-include-diary > > (progn (let (...) (require ...) (setq rtn ...) (setq rtnall ...)))) (if > (or > > rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1+ day-cnt)) > > (insert (if ... ... ...) "\n") (put-text-property s (1- ...) 'face > > (org-agenda-get-day-face date)) (put-text-property s (1- ...) > > 'org-date-line t) (put-text-property s (1- ...) 'org-agenda-date-header > t) > > (put-text-property s (1- ...) 'org-day-cnt day-cnt) (if todayp (progn > ...)) > > (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp)) (if > > rtnall (progn ...)) (put-text-property s (1- ...) 'day d) > > (put-text-property s (1- ...) 'org-day-cnt day-cnt)))) (if (and > > org-agenda-clockreport-mode clocktable-start) (progn (let > > ((org-agenda-files ...) (p ...) tbl) (setq p (org-plist-delete p :block)) > > (setq p (plist-put p :tstart clocktable-start)) (setq p (plist-put p > :tend > > clocktable-end)) (setq p (plist-put p :scope ...)) (setq tbl (apply ... > p)) > > (insert tbl)))) (goto-char (point-min)) (or org-agenda-multi > > (org-agenda-fit-window-to-buffer)) (if (or (not (get-buffer-window > > org-agenda-buffer-name)) (and (pos-visible-in-window-p (point-min)) > > (pos-visible-in-window-p (point-max)))) nil (goto-char (1- (point-max))) > > (recenter -1) (if (not (pos-visible-in-window-p (or start-pos 1))) (progn > > (goto-char (or start-pos 1)) (recenter 1)))) (goto-char (or start-pos 1)) > > (add-text-properties (point-min) (point-max) (list 'org-agenda-type > 'agenda > > 'org-last-args (list arg start-day span) 'org-redo-cmd > > org-agenda-redo-command 'org-series-cmd org-cmd)) (if (eq > > org-agenda-show-log-scoped 'clockcheck) (progn > > (org-agenda-show-clocking-issues))) (org-agenda-finalize) (setq > > buffer-read-only t) (message ""))) > > org-agenda-list(nil nil day nil) > > (let nil (org-agenda-list 'nil nil 'day nil)) > > eval((let nil (org-agenda-list 'nil nil 'day nil))) > > org-let(nil (org-agenda-list 'nil nil 'day nil)) > > (if series-redo-cmd (eval series-redo-cmd) (org-let lprops redo-cmd)) > > (let* ((p (or (and (looking-at "\\'") (1- (point))) (point))) (cpa (if > > (eq all t) nil current-prefix-arg)) (org-agenda-doing-sticky-redo > > org-agenda-sticky) (org-agenda-sticky nil) (org-agenda-buffer-name (or > > org-agenda-this-buffer-name org-agenda-buffer-name)) > (org-agenda-keep-modes > > t) (tag-filter org-agenda-tag-filter) (tag-preset (get > > 'org-agenda-tag-filter :preset-filter)) (top-hl-filter > > org-agenda-top-headline-filter) (cat-filter org-agenda-category-filter) > > (cat-preset (get 'org-agenda-category-filter :preset-filter)) (re-filter > > org-agenda-regexp-filter) (re-preset (get 'org-agenda-regexp-filter > > :preset-filter)) (effort-filter org-agenda-effort-filter) (effort-preset > > (get 'org-agenda-effort-filter :preset-filter)) > > (org-agenda-tag-filter-while-redo (or tag-filter tag-preset)) (cols > > org-agenda-columns-active) (line (org-current-line)) (window-line (- line > > (org-current-line (window-start)))) (lprops (get 'org-agenda-redo-command > > 'org-lprops)) (redo-cmd (get-text-property p 'org-redo-cmd)) (last-args > > (get-text-property p 'org-last-args)) (org-agenda-overriding-cmd > > (get-text-property p 'org-series-cmd)) > (org-agenda-overriding-cmd-arguments > > (if (eq all t) nil (cond ((listp last-args) (cons (or cpa ...) (cdr > > last-args))) ((stringp last-args) last-args)))) (series-redo-cmd > > (get-text-property p 'org-series-redo-cmd))) (put 'org-agenda-tag-filter > > :preset-filter nil) (put 'org-agenda-category-filter :preset-filter nil) > > (put 'org-agenda-regexp-filter :preset-filter nil) (put > > 'org-agenda-effort-filter :preset-filter nil) (and cols > (org-columns-quit)) > > (message "Rebuilding agenda buffer...") (if series-redo-cmd (eval > > series-redo-cmd) (org-let lprops redo-cmd)) (setq org-agenda-undo-list > nil > > org-agenda-pending-undo-list nil org-agenda-tag-filter tag-filter > > org-agenda-category-filter cat-filter org-agenda-regexp-filter re-filter > > org-agenda-effort-filter effort-filter org-agenda-top-headline-filter > > top-hl-filter) (message "Rebuilding agenda buffer...done") (put > > 'org-agenda-tag-filter :preset-filter tag-preset) (put > > 'org-agenda-category-filter :preset-filter cat-preset) (put > > 'org-agenda-regexp-filter :preset-filter re-preset) (put > > 'org-agenda-effort-filter :preset-filter effort-preset) (let ((tag (or > > tag-filter tag-preset)) (cat (or cat-filter cat-preset)) (effort (or > > effort-filter effort-preset)) (re (or re-filter re-preset))) (if tag > (progn > > (org-agenda-filter-apply tag 'tag t))) (if cat (progn > > (org-agenda-filter-apply cat 'category))) (if effort (progn > > (org-agenda-filter-apply effort 'effort))) (if re (progn > > (org-agenda-filter-apply re 'regexp)))) (and top-hl-filter > > (org-agenda-filter-top-headline-apply top-hl-filter)) (and cols > > (called-interactively-p 'any) (org-agenda-columns)) (org-goto-line line) > > (recenter window-line)) > > org-agenda-redo(t) > > (if exhaustive (let ((--dolist-tail-- (buffer-list)) buffer) (while > > --dolist-tail-- (setq buffer (car --dolist-tail--)) (save-current-buffer > > (set-buffer buffer) (if (derived-mode-p 'org-agenda-mode) (progn > > (org-agenda-redo t)))) (setq --dolist-tail-- (cdr --dolist-tail--)))) > > (org-agenda-redo t)) > > org-agenda-redo-all(nil) > > funcall-interactively(org-agenda-redo-all nil) > > call-interactively(org-agenda-redo-all nil nil) > > command-execute(org-agenda-redo-all) > > ``` > > > > [stardiviner] GPG key ID: 47C32433 > > IRC(freeenode): stardiviner Twitter: @numbchild > > Key fingerprint = 9BAA 92BC CDDD B9EF 3B36 CB99 B8C4 B8E5 47C3 2433 > > Blog: http://stardiviner.github.io/ > > > > > > On Fri, Aug 14, 2020 at 1:15 PM Ihor Radchenko > wrote: > > > >> > I want to get around this problem. So need to know how to detect > >> currently > >> > in logbook drawer or something else which used to record clocking > note, > >> > `org-add-note`, etc. > >> > >> You may try to use `org-logbook-drawer-re'. > >> > >> > When I toggle org-log-mode and related options in org-agenda buffer. I > >> > found my org-link-beautify will caused long time suspend and no stop. > >> After > >> > debug, I found org-link-beautify text-property caused this problem. > >> > >> Could you provide more details how your text property is causing the > >> problem in org-agenda? Which function in agenda is slow? > >> > >> Best, > >> Ihor > >> > >> > >> "numbchild@gmail.com" writes: > >> > >> > I have a org-mode extension: > >> > > >> > https://github.com/stardiviner/org-link-beautify/blob/master/org-link-beautify.el#L71 > >> > > >> > It will beautify links with text-properties. > >> > > >> > When I toggle org-log-mode and related options in org-agenda buffer. I > >> > found my org-link-beautify will caused long time suspend and no stop. > >> After > >> > debug, I found org-link-beautify text-property caused this problem. > >> > > >> > I want to get around this problem. So need to know how to detect > >> currently > >> > in logbook drawer or something else which used to record clocking > note, > >> > `org-add-note`, etc. > >> > > >> > Or maybe org-agenda upstream can do something to work around this > >> > text-properties issue? > >> > > >> > [stardiviner] GPG key ID: 47C32433 > >> > IRC(freeenode): stardiviner Twitter: @numbchild > >> > Key fingerprint = 9BAA 92BC CDDD B9EF 3B36 CB99 B8C4 B8E5 47C3 2433 > >> > Blog: http://stardiviner.github.io/ > >> > --000000000000a5e86c05acf6a742 Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
Also I noticed one thing:

=C2=A0The problem= happens on when link (org-link-beautify enabled) is behind "-" d= irectly:

=C2=A0#+begin_src org
=C2=A0,* headline
=C2=A0 =C2=A0= :LOGBOOK:
=C2=A0 =C2=A0CLOCK: [2020-07-23 Thu 22:05]--[2020-07-23 Thu 22= :14] =3D> =C2=A00:09
=C2=A0 =C2=A0- [[file:~/Code/Emacs/org-mode/lisp= /org-agenda.el::(defcustom org-agenda-start-with-clockreport-mode nil][org-= agenda-start-with-clockreport-mode]]
=C2=A0 =C2=A0:END:
=C2=A0#+end_s= rc

=C2=A0But no problem when preceding content is not link. For exam= ple:

=C2=A0#+begin_src org
=C2=A0,* headline
=C2=A0 =C2=A0:LOG= BOOK:
=C2=A0 =C2=A0CLOCK: [2020-07-23 Thu 22:05]--[2020-07-23 Thu 22:14]= =3D> =C2=A00:09
=C2=A0 =C2=A0- kk
=C2=A0 =C2=A0 =C2=A0[[file:~/Co= de/Emacs/org-mode/lisp/org-agenda.el::(defcustom org-agenda-start-with-cloc= kreport-mode nil][org-agenda-start-with-clockreport-mode]]
=C2=A0 =C2=A0= :END:
=C2=A0#+end_src

[stardiviner]=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 <Hack this world!>=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0 GPG key ID: 47C32433
IRC(freeenode): stardiviner =C2=A0=C2= =A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0=C2=A0= =C2=A0=C2=A0=C2=A0=C2=A0=C2=A0 Twitter:=C2=A0 @numbchild
Key fingerprint= =3D 9BAA 92BC CDDD B9EF 3B36=C2=A0 CB99 B8C4 B8E5 47C3 2433
Blog: http://stardiviner.g= ithub.io/


On Sat, Aug 15, 2020 at = 2:02 PM Ihor Radchenko <yantar92@g= mail.com> wrote:
>Here is the backtrace of "toggle-debug-on-quit" when = I refresh org-agenda
>but has long time suspend.

That looks unreadable for me. Also, debug on quit may not show the
problematic part depending on your luck.

It would be easier to understand your problem if you provided the
profiler report (M-x profiler-start ... M-x profiler-report).
Then, you could debug-on-entry using the problematic part according to
the profiler report.

A blind guess - maybe you are modifying match data somewhere in your
code. This might cause infinite loop in

> (while (org-activate-links (point-max)) (goto-char (match-end 0)))

Best,
Ihor

"numbchild@gm= ail.com" <numbchild@gmail.com> writes:

> Thanks for replying, Ihor. I will look into this regexp.
>
> Here is the backtrace of "toggle-debug-on-quit" when I refre= sh org-agenda
> but has long time suspend.
>
> ```
> Debugger entered--Lisp error: (quit)
>
> re-search-forward("\\(\\[\\[\\(\\(?:[^][\\]\\|\\\\\\(?:\\\\\\\\\\= )*[][]\\|\\\\+[^][]\\)+..."
> 17651 t)
>=C2=A0 =C2=A0(while (re-search-forward org-link-any-re limit t) (let* (= (start
> (match-beginning 0)) (end (match-end 0)) (visible-start (or
> (match-beginning 3) (match-beginning 2))) (visible-end (or (match-end = 3)
> (match-end 2))) (style (cond ((eq 60 (char-after start)) 'angle) (= (eq 91
> (char-after ...)) 'bracket) (t 'plain)))) (if (and (memq style=
> org-highlight-links) (not (string-match-p org-element-paragraph-separa= te
> (match-string 0))) (not (and (eq style 'plain) (let (...) (if ... = ...
> ...))))) (progn (let* ((link-object (save-excursion ... ...)) (link > (org-element-property :raw-link link-object)) (type (org-element-prope= rty
> :type link-object)) (path (org-element-property :path link-object)) > (properties (list ... ... ... ... ... ... ... ... ... ... ... t)))
> (org-remove-flyspell-overlays-in start end) (org-rear-nonsticky-at end= ) (if
> (not (eq ... style)) (add-text-properties start end properties)
> (remove-text-properties start end '...) (let (...) (add-text-prope= rties
> start visible-start hidden) (add-text-properties visible-start visible= -end
> properties) (add-text-properties visible-end end hidden)
> (org-rear-nonsticky-at visible-start) (org-rear-nonsticky-at visible-e= nd)))
> (let ((f ...)) (if (functionp f) (progn ...))) (throw :exit t)))))) >=C2=A0 =C2=A0(catch :exit (while (re-search-forward org-link-any-re lim= it t) (let*
> ((start (match-beginning 0)) (end (match-end 0)) (visible-start (or > (match-beginning 3) (match-beginning 2))) (visible-end (or (match-end = 3)
> (match-end 2))) (style (cond ((eq 60 ...) 'angle) ((eq 91 ...) = 9;bracket) (t
> 'plain)))) (if (and (memq style org-highlight-links) (not (string-= match-p
> org-element-paragraph-separate (match-string 0))) (not (and (eq style = ...)
> (let ... ...)))) (progn (let* ((link-object ...) (link ...) (type ...)=
> (path ...) (properties ...)) (org-remove-flyspell-overlays-in start en= d)
> (org-rear-nonsticky-at end) (if (not ...) (add-text-properties start e= nd
> properties) (remove-text-properties start end ...) (let ... ... ... ..= . ...
> ...)) (let (...) (if ... ...)) (throw :exit t)))))) nil)
>=C2=A0 =C2=A0org-activate-links(17651)
>=C2=A0 =C2=A0(while (org-activate-links (point-max)) (goto-char (match-= end 0)))
>=C2=A0 =C2=A0(save-excursion (while (org-activate-links (point-max)) (g= oto-char
> (match-end 0))))
>=C2=A0 =C2=A0(save-excursion (goto-char (point-min)) (save-excursion (w= hile
> (org-activate-links (point-max)) (goto-char (match-end 0)))) (if (eq > org-agenda-remove-tags t) nil (org-agenda-align-tags)) (if
> org-agenda-with-colors nil (remove-text-properties (point-min) (point-= max)
> '(face nil))) (if (and (boundp 'org-overriding-columns-format)=
> org-overriding-columns-format) (progn (set (make-local-variable
> 'org-local-columns-format) org-overriding-columns-format))) (if > org-agenda-view-columns-initially (progn (org-agenda-columns))) (if > org-agenda-fontify-priorities (progn (org-agenda-fontify-priorities)))= (if
> (and org-agenda-dim-blocked-tasks org-blocker-hook) (progn
> (org-agenda-dim-blocked-tasks))) (org-agenda-mark-clocking-task) (if > org-agenda-entry-text-mode (progn (org-agenda-entry-text-hide)
> (org-agenda-entry-text-show))) (if (and (featurep 'org-habit)
> (save-excursion (next-single-property-change (point-min) 'org-habi= t-p)))
> (progn (org-habit-insert-consistency-graphs))) (setq org-agenda-type > (org-get-at-bol 'org-agenda-type)) (if (or (eq
> org-agenda-show-inherited-tags 'always) (and (listp
> org-agenda-show-inherited-tags) (memq org-agenda-type
> org-agenda-show-inherited-tags)) (and (eq org-agenda-show-inherited-ta= gs t)
> (or (eq org-agenda-use-tag-inheritance t) (and (listp
> org-agenda-use-tag-inheritance) (not (memq org-agenda-type
> org-agenda-use-tag-inheritance)))))) nil (let (mrk) (save-excursion > (goto-char (point-min)) (while (equal (forward-line) 0) (if (setq mrk<= br> > (get-text-property ... ...)) (progn (put-text-property ... ... ...
> ...))))))) (setq org-agenda-represented-tags nil
> org-agenda-represented-categories nil) (if org-agenda-top-headline-fil= ter
> (progn (org-agenda-filter-top-headline-apply
> org-agenda-top-headline-filter))) (if org-agenda-tag-filter (progn
> (org-agenda-filter-apply org-agenda-tag-filter 'tag t))) (if (get<= br> > 'org-agenda-tag-filter :preset-filter) (progn (org-agenda-filter-a= pply (get
> 'org-agenda-tag-filter :preset-filter) 'tag t))) (if
> org-agenda-category-filter (progn (org-agenda-filter-apply
> org-agenda-category-filter 'category))) (if (get
> 'org-agenda-category-filter :preset-filter) (progn (org-agenda-fil= ter-apply
> (get 'org-agenda-category-filter :preset-filter) 'category))) = (if
> org-agenda-regexp-filter (progn (org-agenda-filter-apply
> org-agenda-regexp-filter 'regexp))) (if (get 'org-agenda-regex= p-filter
> :preset-filter) (progn (org-agenda-filter-apply (get
> 'org-agenda-regexp-filter :preset-filter) 'regexp))) (if
> org-agenda-effort-filter (progn (org-agenda-filter-apply
> org-agenda-effort-filter 'effort))) (if (get 'org-agenda-effor= t-filter
> :preset-filter) (progn (org-agenda-filter-apply (get
> 'org-agenda-effort-filter :preset-filter) 'effort))) (add-hook=
> 'kill-buffer-hook 'org-agenda-reset-markers 'append 'l= ocal))
>=C2=A0 =C2=A0(let ((inhibit-read-only t)) (save-excursion (goto-char (p= oint-min))
> (save-excursion (while (org-activate-links (point-max)) (goto-char
> (match-end 0)))) (if (eq org-agenda-remove-tags t) nil
> (org-agenda-align-tags)) (if org-agenda-with-colors nil
> (remove-text-properties (point-min) (point-max) '(face nil))) (if = (and
> (boundp 'org-overriding-columns-format) org-overriding-columns-for= mat)
> (progn (set (make-local-variable 'org-local-columns-format)
> org-overriding-columns-format))) (if org-agenda-view-columns-initially=
> (progn (org-agenda-columns))) (if org-agenda-fontify-priorities (progn=
> (org-agenda-fontify-priorities))) (if (and org-agenda-dim-blocked-task= s
> org-blocker-hook) (progn (org-agenda-dim-blocked-tasks)))
> (org-agenda-mark-clocking-task) (if org-agenda-entry-text-mode (progn<= br> > (org-agenda-entry-text-hide) (org-agenda-entry-text-show))) (if (and > (featurep 'org-habit) (save-excursion (next-single-property-change=
> (point-min) 'org-habit-p))) (progn (org-habit-insert-consistency-g= raphs)))
> (setq org-agenda-type (org-get-at-bol 'org-agenda-type)) (if (or (= eq
> org-agenda-show-inherited-tags 'always) (and (listp
> org-agenda-show-inherited-tags) (memq org-agenda-type
> org-agenda-show-inherited-tags)) (and (eq org-agenda-show-inherited-ta= gs t)
> (or (eq org-agenda-use-tag-inheritance t) (and (listp
> org-agenda-use-tag-inheritance) (not ...))))) nil (let (mrk)
> (save-excursion (goto-char (point-min)) (while (equal (forward-line) 0= ) (if
> (setq mrk ...) (progn ...)))))) (setq org-agenda-represented-tags nil<= br> > org-agenda-represented-categories nil) (if org-agenda-top-headline-fil= ter
> (progn (org-agenda-filter-top-headline-apply
> org-agenda-top-headline-filter))) (if org-agenda-tag-filter (progn
> (org-agenda-filter-apply org-agenda-tag-filter 'tag t))) (if (get<= br> > 'org-agenda-tag-filter :preset-filter) (progn (org-agenda-filter-a= pply (get
> 'org-agenda-tag-filter :preset-filter) 'tag t))) (if
> org-agenda-category-filter (progn (org-agenda-filter-apply
> org-agenda-category-filter 'category))) (if (get
> 'org-agenda-category-filter :preset-filter) (progn (org-agenda-fil= ter-apply
> (get 'org-agenda-category-filter :preset-filter) 'category))) = (if
> org-agenda-regexp-filter (progn (org-agenda-filter-apply
> org-agenda-regexp-filter 'regexp))) (if (get 'org-agenda-regex= p-filter
> :preset-filter) (progn (org-agenda-filter-apply (get
> 'org-agenda-regexp-filter :preset-filter) 'regexp))) (if
> org-agenda-effort-filter (progn (org-agenda-filter-apply
> org-agenda-effort-filter 'effort))) (if (get 'org-agenda-effor= t-filter
> :preset-filter) (progn (org-agenda-filter-apply (get
> 'org-agenda-effort-filter :preset-filter) 'effort))) (add-hook=
> 'kill-buffer-hook 'org-agenda-reset-markers 'append 'l= ocal)) (run-hooks
> 'org-agenda-finalize-hook))
>=C2=A0 =C2=A0(if org-agenda-multi nil (let ((inhibit-read-only t)) (sav= e-excursion
> (goto-char (point-min)) (save-excursion (while (org-activate-links
> (point-max)) (goto-char (match-end 0)))) (if (eq org-agenda-remove-tag= s t)
> nil (org-agenda-align-tags)) (if org-agenda-with-colors nil
> (remove-text-properties (point-min) (point-max) '(face nil))) (if = (and
> (boundp 'org-overriding-columns-format) org-overriding-columns-for= mat)
> (progn (set (make-local-variable 'org-local-columns-format)
> org-overriding-columns-format))) (if org-agenda-view-columns-initially=
> (progn (org-agenda-columns))) (if org-agenda-fontify-priorities (progn=
> (org-agenda-fontify-priorities))) (if (and org-agenda-dim-blocked-task= s
> org-blocker-hook) (progn (org-agenda-dim-blocked-tasks)))
> (org-agenda-mark-clocking-task) (if org-agenda-entry-text-mode (progn<= br> > (org-agenda-entry-text-hide) (org-agenda-entry-text-show))) (if (and > (featurep 'org-habit) (save-excursion (next-single-property-change=
> (point-min) 'org-habit-p))) (progn (org-habit-insert-consistency-g= raphs)))
> (setq org-agenda-type (org-get-at-bol 'org-agenda-type)) (if (or (= eq
> org-agenda-show-inherited-tags 'always) (and (listp
> org-agenda-show-inherited-tags) (memq org-agenda-type
> org-agenda-show-inherited-tags)) (and (eq org-agenda-show-inherited-ta= gs t)
> (or (eq org-agenda-use-tag-inheritance t) (and ... ...)))) nil (let (m= rk)
> (save-excursion (goto-char (point-min)) (while (equal ... 0) (if ... > ...))))) (setq org-agenda-represented-tags nil
> org-agenda-represented-categories nil) (if org-agenda-top-headline-fil= ter
> (progn (org-agenda-filter-top-headline-apply
> org-agenda-top-headline-filter))) (if org-agenda-tag-filter (progn
> (org-agenda-filter-apply org-agenda-tag-filter 'tag t))) (if (get<= br> > 'org-agenda-tag-filter :preset-filter) (progn (org-agenda-filter-a= pply (get
> 'org-agenda-tag-filter :preset-filter) 'tag t))) (if
> org-agenda-category-filter (progn (org-agenda-filter-apply
> org-agenda-category-filter 'category))) (if (get
> 'org-agenda-category-filter :preset-filter) (progn (org-agenda-fil= ter-apply
> (get 'org-agenda-category-filter :preset-filter) 'category))) = (if
> org-agenda-regexp-filter (progn (org-agenda-filter-apply
> org-agenda-regexp-filter 'regexp))) (if (get 'org-agenda-regex= p-filter
> :preset-filter) (progn (org-agenda-filter-apply (get
> 'org-agenda-regexp-filter :preset-filter) 'regexp))) (if
> org-agenda-effort-filter (progn (org-agenda-filter-apply
> org-agenda-effort-filter 'effort))) (if (get 'org-agenda-effor= t-filter
> :preset-filter) (progn (org-agenda-filter-apply (get
> 'org-agenda-effort-filter :preset-filter) 'effort))) (add-hook=
> 'kill-buffer-hook 'org-agenda-reset-markers 'append 'l= ocal)) (run-hooks
> 'org-agenda-finalize-hook)))
>=C2=A0 =C2=A0org-agenda-finalize()
>=C2=A0 =C2=A0(let* ((span (org-agenda-ndays-to-span (or span org-agenda= -span))) (today
> (org-today)) (sd (or start-day today)) (ndays (org-agenda-span-to-nday= s
> span sd)) (org-agenda-start-on-weekday (and (or (eq ndays 7) (eq ndays= 14))
> org-agenda-start-on-weekday)) (thefiles (org-agenda-files nil 'ifm= ode))
> (files thefiles) (start (if (or (null org-agenda-start-on-weekday) (&l= t; ndays
> 7)) sd (let* ((nt ...) (n1 org-agenda-start-on-weekday) (d ...)) (- sd= (+
> ... d))))) (day-numbers (list start)) (day-cnt 0) (inhibit-redisplay (= not
> debug-on-error)) (org-agenda-show-log-scoped org-agenda-show-log) s e = rtn
> rtnall file date d start-pos end-pos todayp clocktable-start clocktabl= e-end
> filter) (setq org-agenda-redo-command (list 'org-agenda-list (list= 'quote
> arg) start-day (list 'quote span) with-hour)) (let ((--dotimes-lim= it-- (1-
> ndays)) (n 0)) (while (< n --dotimes-limit--) (setq day-numbers (co= ns (1+
> (car day-numbers)) day-numbers)) (setq n (1+ n)))) (setq day-numbers > (nreverse day-numbers)) (setq clocktable-start (car day-numbers)
> clocktable-end (1+ (or (org-last day-numbers) 0))) (set
> (make-local-variable 'org-starting-day) (car day-numbers)) (set > (make-local-variable 'org-arg-loc) arg) (set (make-local-variable<= br> > 'org-agenda-current-span) (org-agenda-ndays-to-span span)) (if
> org-agenda-compact-blocks nil (let* ((d1 (car day-numbers)) (d2 (org-l= ast
> day-numbers)) (w1 (org-days-to-iso-week d1)) (w2 (org-days-to-iso-week=
> d2))) (setq s (point)) (cond ((not org-agenda-overriding-header) (inse= rt
> (concat ... "-agenda" ... ":\n"))) ((equal org-age= nda-overriding-header "")
> nil) ((stringp org-agenda-overriding-header) (insert (propertize
> org-agenda-overriding-header ... ...) "\n")) (t (user-error = "Invalid value
> for `org-agenda-overriding-hea..." org-agenda-overriding-header))= )) (if (>
> (point) s) (progn (add-text-properties s (1- (point)) (list 'face<= br> > 'org-agenda-structure 'org-date-line t)) (org-agenda-mark-head= er-line s))))
> (while (setq d (car-safe (prog1 day-numbers (setq day-numbers (cdr
> day-numbers))))) (setq date (calendar-gregorian-from-absolute d) s (po= int))
> (if (or (setq todayp (=3D d today)) (and (not start-pos) (=3D d sd))) = (setq
> start-pos (point)) (if (and start-pos (not end-pos)) (progn (setq end-= pos
> (point))))) (setq files thefiles rtnall nil) (while (setq file (car-sa= fe
> (prog1 files (setq files ...)))) (catch 'nextfile (org-check-agend= a-file
> file) (let ((org-agenda-entry-types org-agenda-entry-types)) (if (memb= er
> :deadline* org-agenda-entry-types) (progn ...)) (if (member :scheduled= *
> org-agenda-entry-types) (progn ...)) (if with-hour (progn ... ...)) (i= f
> org-agenda-include-deadlines nil (setq org-agenda-entry-types ...)) (c= ond
> (... ...) (org-agenda-show-log-scoped ...) (t ...))) (setq rtnall (app= end
> rtnall rtn)))) (if org-agenda-include-diary (progn (let
> ((org-agenda-search-headline-for-time t)) (require 'diary-lib) (se= tq rtn
> (org-get-entries-from-diary date)) (setq rtnall (append rtnall rtn))))= ) (if
> (or rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1+ day-cnt= ))
> (insert (if (stringp org-agenda-format-date) (format-time-string
> org-agenda-format-date ...) (funcall org-agenda-format-date date)) &qu= ot;\n")
> (put-text-property s (1- (point)) 'face (org-agenda-get-day-face d= ate))
> (put-text-property s (1- (point)) 'org-date-line t) (put-text-prop= erty s
> (1- (point)) 'org-agenda-date-header t) (put-text-property s (1- (= point))
> 'org-day-cnt day-cnt) (if todayp (progn (put-text-property s ... .= .. t)))
> (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp)) (if=
> rtnall (progn (insert ... "\n"))) (put-text-property s (1- (= point)) 'day d)
> (put-text-property s (1- (point)) 'org-day-cnt day-cnt)))) (if (an= d
> org-agenda-clockreport-mode clocktable-start) (progn (let
> ((org-agenda-files (org-agenda-files nil ...)) (p (copy-sequence
> org-agenda-clockreport-parameter-plist)) tbl) (setq p (org-plist-delet= e p
> :block)) (setq p (plist-put p :tstart clocktable-start)) (setq p (plis= t-put
> p :tend clocktable-end)) (setq p (plist-put p :scope 'agenda)) (se= tq tbl
> (apply 'org-clock-get-clocktable p)) (insert tbl)))) (goto-char > (point-min)) (or org-agenda-multi (org-agenda-fit-window-to-buffer)) (= if
> (or (not (get-buffer-window org-agenda-buffer-name)) (and
> (pos-visible-in-window-p (point-min)) (pos-visible-in-window-p
> (point-max)))) nil (goto-char (1- (point-max))) (recenter -1) (if (not=
> (pos-visible-in-window-p (or start-pos 1))) (progn (goto-char (or star= t-pos
> 1)) (recenter 1)))) (goto-char (or start-pos 1)) (add-text-properties<= br> > (point-min) (point-max) (list 'org-agenda-type 'agenda 'or= g-last-args (list
> arg start-day span) 'org-redo-cmd org-agenda-redo-command 'org= -series-cmd
> org-cmd)) (if (eq org-agenda-show-log-scoped 'clockcheck) (progn > (org-agenda-show-clocking-issues))) (org-agenda-finalize) (setq
> buffer-read-only t) (message ""))
>=C2=A0 =C2=A0(catch 'exit (setq org-agenda-buffer-name (or org-agen= da-buffer-tmp-name
> (and org-agenda-doing-sticky-redo org-agenda-buffer-name) (if
> org-agenda-sticky (progn (cond (... ...) (org-keys ...) (t "*Org<= br> > Agenda(a)*")))) "*Org Agenda*")) (org-agenda-prepare &q= uot;Day/Week") (setq
> start-day (or start-day org-agenda-start-day)) (if (stringp start-day)=
> (progn (setq start-day (time-to-days (org-read-date nil t start-day)))= ))
> (org-compile-prefix-format 'agenda) (org-set-sorting-strategy '= ;agenda)
> (let* ((span (org-agenda-ndays-to-span (or span org-agenda-span))) (to= day
> (org-today)) (sd (or start-day today)) (ndays (org-agenda-span-to-nday= s
> span sd)) (org-agenda-start-on-weekday (and (or (eq ndays 7) (eq ndays= 14))
> org-agenda-start-on-weekday)) (thefiles (org-agenda-files nil 'ifm= ode))
> (files thefiles) (start (if (or (null org-agenda-start-on-weekday) (&l= t; ndays
> 7)) sd (let* (... ... ...) (- sd ...)))) (day-numbers (list start)) > (day-cnt 0) (inhibit-redisplay (not debug-on-error))
> (org-agenda-show-log-scoped org-agenda-show-log) s e rtn rtnall file d= ate d
> start-pos end-pos todayp clocktable-start clocktable-end filter) (setq=
> org-agenda-redo-command (list 'org-agenda-list (list 'quote ar= g) start-day
> (list 'quote span) with-hour)) (let ((--dotimes-limit-- (1- ndays)= ) (n 0))
> (while (< n --dotimes-limit--) (setq day-numbers (cons (1+ ...)
> day-numbers)) (setq n (1+ n)))) (setq day-numbers (nreverse day-number= s))
> (setq clocktable-start (car day-numbers) clocktable-end (1+ (or (org-l= ast
> day-numbers) 0))) (set (make-local-variable 'org-starting-day) (ca= r
> day-numbers)) (set (make-local-variable 'org-arg-loc) arg) (set > (make-local-variable 'org-agenda-current-span) (org-agenda-ndays-t= o-span
> span)) (if org-agenda-compact-blocks nil (let* ((d1 (car day-numbers))= (d2
> (org-last day-numbers)) (w1 (org-days-to-iso-week d1)) (w2
> (org-days-to-iso-week d2))) (setq s (point)) (cond ((not
> org-agenda-overriding-header) (insert ...)) ((equal
> org-agenda-overriding-header "") nil) ((stringp
> org-agenda-overriding-header) (insert ... "\n")) (t (user-er= ror "Invalid
> value for `org-agenda-overriding-hea..." org-agenda-overriding-he= ader))))
> (if (> (point) s) (progn (add-text-properties s (1- ...) (list ... = ... ...
> t)) (org-agenda-mark-header-line s)))) (while (setq d (car-safe (prog1=
> day-numbers (setq day-numbers ...)))) (setq date
> (calendar-gregorian-from-absolute d) s (point)) (if (or (setq todayp (= =3D d
> today)) (and (not start-pos) (=3D d sd))) (setq start-pos (point)) (if= (and
> start-pos (not end-pos)) (progn (setq end-pos ...)))) (setq files thef= iles
> rtnall nil) (while (setq file (car-safe (prog1 files ...))) (catch
> 'nextfile (org-check-agenda-file file) (let (...) (if ... ...) (if= ... ...)
> (if with-hour ...) (if org-agenda-include-deadlines nil ...) (cond ...= ...
> ...)) (setq rtnall (append rtnall rtn)))) (if org-agenda-include-diary=
> (progn (let (...) (require ...) (setq rtn ...) (setq rtnall ...)))) (i= f (or
> rtnall org-agenda-show-all-dates) (progn (setq day-cnt (1+ day-cnt)) > (insert (if ... ... ...) "\n") (put-text-property s (1- ...)= 'face
> (org-agenda-get-day-face date)) (put-text-property s (1- ...)
> 'org-date-line t) (put-text-property s (1- ...) 'org-agenda-da= te-header t)
> (put-text-property s (1- ...) 'org-day-cnt day-cnt) (if todayp (pr= ogn ...))
> (setq rtnall (org-agenda-add-time-grid-maybe rtnall ndays todayp)) (if=
> rtnall (progn ...)) (put-text-property s (1- ...) 'day d)
> (put-text-property s (1- ...) 'org-day-cnt day-cnt)))) (if (and > org-agenda-clockreport-mode clocktable-start) (progn (let
> ((org-agenda-files ...) (p ...) tbl) (setq p (org-plist-delete p :bloc= k))
> (setq p (plist-put p :tstart clocktable-start)) (setq p (plist-put p := tend
> clocktable-end)) (setq p (plist-put p :scope ...)) (setq tbl (apply ..= . p))
> (insert tbl)))) (goto-char (point-min)) (or org-agenda-multi
> (org-agenda-fit-window-to-buffer)) (if (or (not (get-buffer-window
> org-agenda-buffer-name)) (and (pos-visible-in-window-p (point-min)) > (pos-visible-in-window-p (point-max)))) nil (goto-char (1- (point-max)= ))
> (recenter -1) (if (not (pos-visible-in-window-p (or start-pos 1))) (pr= ogn
> (goto-char (or start-pos 1)) (recenter 1)))) (goto-char (or start-pos = 1))
> (add-text-properties (point-min) (point-max) (list 'org-agenda-typ= e 'agenda
> 'org-last-args (list arg start-day span) 'org-redo-cmd
> org-agenda-redo-command 'org-series-cmd org-cmd)) (if (eq
> org-agenda-show-log-scoped 'clockcheck) (progn
> (org-agenda-show-clocking-issues))) (org-agenda-finalize) (setq
> buffer-read-only t) (message "")))
>=C2=A0 =C2=A0org-agenda-list(nil nil day nil)
>=C2=A0 =C2=A0(let nil (org-agenda-list 'nil nil 'day nil))
>=C2=A0 =C2=A0eval((let nil (org-agenda-list 'nil nil 'day nil))= )
>=C2=A0 =C2=A0org-let(nil (org-agenda-list 'nil nil 'day nil)) >=C2=A0 =C2=A0(if series-redo-cmd (eval series-redo-cmd) (org-let lprops= redo-cmd))
>=C2=A0 =C2=A0(let* ((p (or (and (looking-at "\\'") (1- (p= oint))) (point))) (cpa (if
> (eq all t) nil current-prefix-arg)) (org-agenda-doing-sticky-redo
> org-agenda-sticky) (org-agenda-sticky nil) (org-agenda-buffer-name (or=
> org-agenda-this-buffer-name org-agenda-buffer-name)) (org-agenda-keep-= modes
> t) (tag-filter org-agenda-tag-filter) (tag-preset (get
> 'org-agenda-tag-filter :preset-filter)) (top-hl-filter
> org-agenda-top-headline-filter) (cat-filter org-agenda-category-filter= )
> (cat-preset (get 'org-agenda-category-filter :preset-filter)) (re-= filter
> org-agenda-regexp-filter) (re-preset (get 'org-agenda-regexp-filte= r
> :preset-filter)) (effort-filter org-agenda-effort-filter) (effort-pres= et
> (get 'org-agenda-effort-filter :preset-filter))
> (org-agenda-tag-filter-while-redo (or tag-filter tag-preset)) (cols > org-agenda-columns-active) (line (org-current-line)) (window-line (- l= ine
> (org-current-line (window-start)))) (lprops (get 'org-agenda-redo-= command
> 'org-lprops)) (redo-cmd (get-text-property p 'org-redo-cmd)) (= last-args
> (get-text-property p 'org-last-args)) (org-agenda-overriding-cmd > (get-text-property p 'org-series-cmd)) (org-agenda-overriding-cmd-= arguments
> (if (eq all t) nil (cond ((listp last-args) (cons (or cpa ...) (cdr > last-args))) ((stringp last-args) last-args)))) (series-redo-cmd
> (get-text-property p 'org-series-redo-cmd))) (put 'org-agenda-= tag-filter
> :preset-filter nil) (put 'org-agenda-category-filter :preset-filte= r nil)
> (put 'org-agenda-regexp-filter :preset-filter nil) (put
> 'org-agenda-effort-filter :preset-filter nil) (and cols (org-colum= ns-quit))
> (message "Rebuilding agenda buffer...") (if series-redo-cmd = (eval
> series-redo-cmd) (org-let lprops redo-cmd)) (setq org-agenda-undo-list= nil
> org-agenda-pending-undo-list nil org-agenda-tag-filter tag-filter
> org-agenda-category-filter cat-filter org-agenda-regexp-filter re-filt= er
> org-agenda-effort-filter effort-filter org-agenda-top-headline-filter<= br> > top-hl-filter) (message "Rebuilding agenda buffer...done") (= put
> 'org-agenda-tag-filter :preset-filter tag-preset) (put
> 'org-agenda-category-filter :preset-filter cat-preset) (put
> 'org-agenda-regexp-filter :preset-filter re-preset) (put
> 'org-agenda-effort-filter :preset-filter effort-preset) (let ((tag= (or
> tag-filter tag-preset)) (cat (or cat-filter cat-preset)) (effort (or > effort-filter effort-preset)) (re (or re-filter re-preset))) (if tag (= progn
> (org-agenda-filter-apply tag 'tag t))) (if cat (progn
> (org-agenda-filter-apply cat 'category))) (if effort (progn
> (org-agenda-filter-apply effort 'effort))) (if re (progn
> (org-agenda-filter-apply re 'regexp)))) (and top-hl-filter
> (org-agenda-filter-top-headline-apply top-hl-filter)) (and cols
> (called-interactively-p 'any) (org-agenda-columns)) (org-goto-line= line)
> (recenter window-line))
>=C2=A0 =C2=A0org-agenda-redo(t)
>=C2=A0 =C2=A0(if exhaustive (let ((--dolist-tail-- (buffer-list)) buffe= r) (while
> --dolist-tail-- (setq buffer (car --dolist-tail--)) (save-current-buff= er
> (set-buffer buffer) (if (derived-mode-p 'org-agenda-mode) (progn > (org-agenda-redo t)))) (setq --dolist-tail-- (cdr --dolist-tail--))))<= br> > (org-agenda-redo t))
>=C2=A0 =C2=A0org-agenda-redo-all(nil)
>=C2=A0 =C2=A0funcall-interactively(org-agenda-redo-all nil)
>=C2=A0 =C2=A0call-interactively(org-agenda-redo-all nil nil)
>=C2=A0 =C2=A0command-execute(org-agenda-redo-all)
> ```
>
> [stardiviner]=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0<Hack this wo= rld!>=C2=A0 =C2=A0 =C2=A0 GPG key ID: 47C32433
> IRC(freeenode): stardiviner=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0Twitter:=C2=A0 @numbchild
> Key fingerprint =3D 9BAA 92BC CDDD B9EF 3B36=C2=A0 CB99 B8C4 B8E5 47C3= 2433
> Blog: http://stardiviner.github.io/
>
>
> On Fri, Aug 14, 2020 at 1:15 PM Ihor Radchenko <yantar92@gmail.com> wrote:
>
>> > I want to get around this problem. So need to know how to det= ect
>> currently
>> > in logbook drawer or something else which used to record cloc= king note,
>> > `org-add-note`, etc.
>>
>> You may try to use `org-logbook-drawer-re'.
>>
>> > When I toggle org-log-mode and related options in org-agenda = buffer. I
>> > found my org-link-beautify will caused long time suspend and = no stop.
>> After
>> > debug, I found org-link-beautify text-property caused this pr= oblem.
>>
>> Could you provide more details how your text property is causing t= he
>> problem in org-agenda? Which function in agenda is slow?
>>
>> Best,
>> Ihor
>>
>>
>> "num= bchild@gmail.com" <numbchild@gmail.com> writes:
>>
>> > I have a org-mode extension:
>> >
>> https:= //github.com/stardiviner/org-link-beautify/blob/master/org-link-beautify.el= #L71
>> >
>> > It will beautify links with text-properties.
>> >
>> > When I toggle org-log-mode and related options in org-agenda = buffer. I
>> > found my org-link-beautify will caused long time suspend and = no stop.
>> After
>> > debug, I found org-link-beautify text-property caused this pr= oblem.
>> >
>> > I want to get around this problem. So need to know how to det= ect
>> currently
>> > in logbook drawer or something else which used to record cloc= king note,
>> > `org-add-note`, etc.
>> >
>> > Or maybe org-agenda upstream can do something to work around = this
>> > text-properties issue?
>> >
>> > [stardiviner]=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0<Hac= k this world!>=C2=A0 =C2=A0 =C2=A0 GPG key ID: 47C32433
>> > IRC(freeenode): stardiviner=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0= =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0Twitter:=C2=A0 @numbchild
>> > Key fingerprint =3D 9BAA 92BC CDDD B9EF 3B36=C2=A0 CB99 B8C4 = B8E5 47C3 2433
>> > Blog: http://stardiviner.github.io/
>>
--000000000000a5e86c05acf6a742--