[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-orgmode] Lockup in org-get-tags-at (4.32)
From: |
Todd Neal |
Subject: |
[Emacs-orgmode] Lockup in org-get-tags-at (4.32) |
Date: |
Wed, 24 May 2006 00:29:40 -0400 |
User-agent: |
Gnus/5.110006 (No Gnus v0.6) Emacs/22.0.50 (gnu/linux) |
I was trying to archive a TODO item and org-mode locked up. I've
traced it down to org-get-tags-at which never returns. Below is a
stack trace with the "looping" portion marked.
--- End Loop
org-outline-level()
outline-up-heading(1 t)
org-up-heading-all(1)
--- Loop
org-get-tags-at()
org-set-tags(nil t)
org-promote()
org-map-region(org-promote 1426 1480)
org-paste-subtree(1)
org-archive-subtree()
Hopefully, these lines won't get wrapped:
1 (defun org-get-tags-at (&optional pos)
2 "Get a list of all headline tags applicable at POS.
3 POS defaults to point. If tags are inherited, the list contains
4 the targets in the same sequence as the headlines appear, i.e.
5 the tags of the current headline come last."
6 (interactive)
7 (let (tags)
8 (save-excursion
9 (goto-char (or pos (point)))
10 (save-match-data
11 (org-back-to-heading t)
12 (condition-case nil
13 (while t
14 (if (looking-at "[^\r\n]+?:\\(address@hidden:]+\\):[
\t]*\\([\n\r]\\|\\'\\)")
15 (setq tags (append (org-split-string
16 (org-match-string-no-properties
1) ":")
17 tags)))
18 (or org-use-tag-inheritance (error ""))
19 (org-up-heading-all 1))
20 (error nil))))
21 (message "%s" tags)
22 tags))
It is clearly stuck in the while loop between lines 13-19 but I'm not
sure why. Does anyone else experience this behavior?
Todd
- [Emacs-orgmode] Lockup in org-get-tags-at (4.32),
Todd Neal <=