From mboxrd@z Thu Jan 1 00:00:00 1970 From: Todd Neal Subject: Lockup in org-get-tags-at (4.32) Date: Wed, 24 May 2006 00:29:40 -0400 Message-ID: <87wtccjb9n.fsf@tolchz.net> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1FikzC-0006ub-RO for emacs-orgmode@gnu.org; Wed, 24 May 2006 00:28:42 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Fikz8-0006uP-HX for emacs-orgmode@gnu.org; Wed, 24 May 2006 00:28:41 -0400 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Fikz8-0006uM-8P for emacs-orgmode@gnu.org; Wed, 24 May 2006 00:28:38 -0400 Received: from [80.91.229.2] (helo=ciao.gmane.org) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA:32) (Exim 4.52) id 1Fil3U-0006x3-N1 for emacs-orgmode@gnu.org; Wed, 24 May 2006 00:33:08 -0400 Received: from list by ciao.gmane.org with local (Exim 4.43) id 1Fikyz-00071d-VL for emacs-orgmode@gnu.org; Wed, 24 May 2006 06:28:30 +0200 Received: from c-68-53-20-25.hsd1.ky.comcast.net ([68.53.20.25]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 24 May 2006 06:28:29 +0200 Received: from tolchz by c-68-53-20-25.hsd1.ky.comcast.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Wed, 24 May 2006 06:28:29 +0200 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org 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]+?:\\([a-zA-Z_@0-9:]+\\):[ \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