From: Carsten Dominik <dominik@science.uva.nl>
To: Bernt Hansen <bernt@norang.ca>
Cc: emacs-orgmode@gnu.org
Subject: Re: BUG: Infinite loop finding stuck projects
Date: Fri, 3 Apr 2009 19:21:59 +0200 [thread overview]
Message-ID: <48F70A47-AC73-4612-B322-DA726EF54D57@uva.nl> (raw)
In-Reply-To: <87vdpln8rh.fsf@gollum.intra.norang.ca>
I have reverted this commit, thanks.
In particular thanks for finding the commit. Just saying "stuck
projects"
would have sent me off in the wrong direction.
- Carsten
On Apr 3, 2009, at 3:53 PM, Bernt Hansen wrote:
> Hi Carsten,
>
> The following commit breaks finding stuck projects for me. It looks
> like an infinite loop.
>
> ------------------------------------------------------------------------
> commit 1fbe1f7f503e473e6a3a14f44451c4e6e5f043a4
> Author: Carsten Dominik <carsten.dominik@gmail.com>
> Date: Thu Apr 2 18:16:35 2009 +0200
>
> Tags scan: Also find the first line in a buffer
>
> ------------------------------------------------------------------------
>
> My org-stuck-projects setup is:
>
> org-stuck-projects is a variable defined in `org-agenda.el'.
> Its value is
> ("/PROJECT" nil
> ("NEXT")
> "")
>
> Let me know if you need additional information.
>
> Backtrace from C-g from commit 3d8e835 follows. I interrupted C-C a #
> and generated the following backtrace (in case that's useful)
>
> -Bernt
>
> ------------------------------------------------------------------------
> Debugger entered--Lisp error: (quit)
> (if tags (progn (setq tags ... tags-alist ...)))
> (when tags (setq tags (org-split-string tags ":") tags-alist
> (cons ... tags-alist)))
> (catch :skip (setq todo (if ... ...) tags (if ... ...)) (goto-char
> (setq lspos ...)) (setq level (org-reduced-level ...) category (org-
> get-category)) (setq i llast llast level) (while (>= i level)
> (when ... ...) (setq i ...)) (when tags (setq tags ... tags-
> alist ...)) (setq tags-list (if org-use-tag-inheritance ... tags)
> org-scanner-tags tags-list) (when org-use-tag-inheritance
> (setcdr ... ...)) (when (and tags org-use-tag-inheritance ...)
> (setcdr ... ...)) (when (and ... ... ...) (unless ... ...)
> (cond ... ... ... ...) (or org-tags-match-list-sublevels ...)))
> (while (re-search-forward re nil t) (catch :skip (setq todo ...
> tags ...) (goto-char ...) (setq level ... category ...) (setq i
> llast llast level) (while ... ... ...) (when tags ...) (setq tags-
> list ... org-scanner-tags tags-list) (when org-use-tag-
> inheritance ...) (when ... ...) (when ... ... ... ...)))
> (save-excursion (goto-char (point-min)) (when (eq action ...) (org-
> overview) (org-remove-occur-highlights)) (while (re-search-forward
> re nil t) (catch :skip ... ... ... ... ... ... ... ... ... ...)))
> (let* ((re ...) (props ...) (case-fold-search nil) lspos tags tags-
> list (tags-alist ...) (llast 0) rtn rtn1 level category i txt todo
> marker entry priority) (when (not ...) (setq action ...)) (save-
> excursion (goto-char ...) (when ... ... ...) (while ... ...)) (when
> (and ... ...) (org-hide-archived-subtrees ... ...)) (nreverse rtn))
> org-scan-tags(agenda (and t (equal todo "PROJECT")) nil)
> (setq rtn (org-scan-tags (quote agenda) matcher todo-only))
> (save-restriction (if org-agenda-restrict (narrow-to-region org-
> agenda-restrict-begin org-agenda-restrict-end) (widen)) (setq rtn
> (org-scan-tags ... matcher todo-only)) (setq rtnall (append rtnall
> rtn)))
> (save-excursion (save-restriction (if org-agenda-restrict ... ...)
> (setq rtn ...) (setq rtnall ...)))
> (save-current-buffer (set-buffer buffer) (unless (org-mode-p)
> (error "Agenda file %s is not in `org-mode'" file)) (save-excursion
> (save-restriction ... ... ...)))
> (with-current-buffer buffer (unless (org-mode-p) (error "Agenda
> file %s is not in `org-mode'" file)) (save-excursion (save-
> restriction ... ... ...)))
> (if (not buffer) (setq rtn (list ...) rtnall (append rtnall rtn))
> (with-current-buffer buffer (unless ... ...) (save-excursion ...)))
> (catch (quote nextfile) (org-check-agenda-file file) (setq buffer
> (if ... ... ...)) (if (not buffer) (setq rtn ... rtnall ...) (with-
> current-buffer buffer ... ...)))
> (while (setq file (pop files)) (catch (quote nextfile) (org-check-
> agenda-file file) (setq buffer ...) (if ... ... ...)))
> (let* ((org-tags-match-list-sublevels ...) (completion-ignore-case
> t) rtn rtnall files file pos matcher buffer) (setq matcher (org-make-
> tags-matcher match) match (car matcher) matcher (cdr matcher)) (org-
> prepare-agenda (concat "TAGS " match)) (setq org-agenda-query-string
> match) (setq org-agenda-redo-command (list ... ... ...)) (setq files
> (org-agenda-files nil ...) rtnall nil) (while (setq file ...)
> (catch ... ... ... ...)) (if org-agenda-overriding-header
> (insert ... "\n") (insert "Headlines with TAGS match: ") (add-text-
> properties ... ... ...) (setq pos ...) (insert match "\n") (add-text-
> properties pos ... ...) (setq pos ...) (unless org-agenda-multi ...)
> (add-text-properties pos ... ...)) (when rtnall (insert ... "\n"))
> (goto-char (point-min)) (or org-agenda-multi (org-fit-agenda-
> window)) (add-text-properties (point-min) (point-max) (quote ...))
> (org-finalize-agenda) (setq buffer-read-only t))
> org-tags-view(nil "/PROJECT")
> (let* ((org-agenda-skip-function ...) (org-agenda-overriding-header
> "List of stuck projects: ") (matcher ...) (todo ...) (todo-wds ...)
> (todo-re ...) (tags ...) (tags-re ...) (gen-re ...) (re-list ...))
> (setq org-agenda-skip-regexp (if re-list ... ...)) (org-tags-view
> nil matcher) (with-current-buffer org-agenda-buffer-name (setq org-
> agenda-redo-command ...)))
> org-agenda-list-stuck-projects()
> call-interactively(org-agenda-list-stuck-projects)
> (cond ((setq entry ...) (if ... ... ...)) ((equal keys "C") (setq
> org-agenda-custom-commands org-agenda-custom-commands-orig)
> (customize-variable ...)) ((equal keys "a") (call-
> interactively ...)) ((equal keys "s") (call-interactively ...))
> ((equal keys "t") (call-interactively ...)) ((equal keys "T") (org-
> call-with-arg ... ...)) ((equal keys "m") (call-interactively ...))
> ((equal keys "M") (org-call-with-arg ... ...)) ((equal keys "e")
> (call-interactively ...)) ((equal keys "L") (unless ... ...) (unless
> restriction ... ...)) ((equal keys "#") (call-interactively ...))
> ((equal keys "/") (call-interactively ...)) ((equal keys "!")
> (customize-variable ...)) (t (error "Invalid agenda key")))
> (let* ((prefix-descriptions nil) (org-agenda-custom-commands-orig
> org-agenda-custom-commands) (org-agenda-custom-commands ...)
> (buf ...) (bfn ...) entry key type match lprops ans) (unless org-
> agenda-overriding-restriction (put ... ... nil) (setq org-agenda-
> restrict nil) (move-marker org-agenda-restrict-begin nil) (move-
> marker org-agenda-restrict-end nil)) (put (quote org-agenda-redo-
> command) (quote org-lprops) nil) (setq org-agenda-last-dispatch-
> buffer (current-buffer)) (unless keys (setq ans ... keys ...
> restriction ...)) (when (and ... restriction) (put ... ... ...)
> (cond ... ...)) (require (quote calendar)) (cond (... ...)
> (... ... ...) (... ...) (... ...) (... ...) (... ...) (... ...)
> (... ...) (... ...) (... ... ...) (... ...) (... ...) (... ...)
> (t ...)))
> (catch (quote exit) (let* (... ... ... ... ... entry key type match
> lprops ans) (unless org-agenda-overriding-
> restriction ... ... ... ...) (put ... ... nil) (setq org-agenda-last-
> dispatch-buffer ...) (unless keys ...) (when ... ... ...)
> (require ...)
> (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ...)))
> org-agenda(nil)
> call-interactively(org-agenda)
> ------------------------------------------------------------------------
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
next prev parent reply other threads:[~2009-04-03 17:22 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-04-03 13:53 BUG: Infinite loop finding stuck projects Bernt Hansen
2009-04-03 14:16 ` Peter Jones
2009-04-03 15:43 ` Bernt Hansen
2009-04-03 16:56 ` Matthew Lundin
2009-04-03 17:21 ` Carsten Dominik [this message]
2009-04-03 17:51 ` Bernt Hansen
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=48F70A47-AC73-4612-B322-DA726EF54D57@uva.nl \
--to=dominik@science.uva.nl \
--cc=bernt@norang.ca \
--cc=emacs-orgmode@gnu.org \
/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).