From mboxrd@z Thu Jan 1 00:00:00 1970 From: Ido Magal Subject: Re: archive-done-tasks Date: Mon, 24 Jan 2011 20:32:02 -0800 Message-ID: References: <87y66bhhxo.wl%dmaus@ictsoc.de> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="===============0935897804==" Return-path: Received: from [140.186.70.92] (port=58839 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PhaZv-0003N0-Cj for emacs-orgmode@gnu.org; Mon, 24 Jan 2011 23:32:30 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PhaZr-00051E-Gy for emacs-orgmode@gnu.org; Mon, 24 Jan 2011 23:32:27 -0500 Received: from mail-wy0-f169.google.com ([74.125.82.169]:32779) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PhaZr-000515-6x for emacs-orgmode@gnu.org; Mon, 24 Jan 2011 23:32:23 -0500 Received: by wyj26 with SMTP id 26so5347846wyj.0 for ; Mon, 24 Jan 2011 20:32:22 -0800 (PST) In-Reply-To: <87y66bhhxo.wl%dmaus@ictsoc.de> 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: David Maus Cc: emacs-orgmode@gnu.org --===============0935897804== Content-Type: multipart/alternative; boundary=0016364d24f3de6798049aa4330c --0016364d24f3de6798049aa4330c Content-Type: text/plain; charset=UTF-8 This is the result: Debugger entered--Lisp error: (quit) re-search-forward("- State \"\\(\\(?:done\\)\\)\"\\s-*\\[\\([^]\n]+\\)\\]" 605 t) (if (re-search-forward state-regexp end t) (progn (let* ... ...))) (when (re-search-forward state-regexp end t) (let* (... ...) (if ... ...))) (let ((end ...) begin) (goto-char (line-beginning-position)) (setq begin (point)) (when (re-search-forward state-regexp end t) (let* ... ...))) (while (re-search-forward done-regexp nil t) (let (... begin) (goto-char ...) (setq begin ...) (when ... ...))) (let ((done-regexp ...) (state-regexp ...)) (while (re-search-forward done-regexp nil t) (let ... ... ... ...))) (save-excursion (goto-char (point-min)) (let (... ...) (while ... ...))) archive-done-tasks() call-interactively(archive-done-tasks t nil) execute-extended-command(nil) call-interactively(execute-extended-command nil nil) On Sun, Jan 23, 2011 at 05:24, David Maus wrote: > At Sun, 9 Jan 2011 20:11:18 -0800, > Ido Magal wrote: > > > > Hi everyone, > > > > I'm new to org-mode and I'm trying to incorporate this bit of code > > into my setup: > > > > archive-done-tasks > > > > However when I run it it seems to hang emacs (osx) > > terminally. Since emacs, org-mode, and lisp are all alien to me, > > there's no shortage of places where I could be failing so I'll spare > > details of my setup until it's confirmed that that code should still > > work ( it's from 2007 and I don't see that it's been integrated into > > org-mode proper ). > > Can you stop Emacs hanging by pressing C-g ? > > If so, you might turn on debugging for C-g (M-x toggle-debug-on-quit > RET), hit the loop and press C-g. The backtrace might give a clue why > and where Emacs is hanging. > > HTH, > -- David > > -- > OpenPGP... 0x99ADB83B5A4478E6 > Jabber.... dmjena@jabber.org > Email..... dmaus@ictsoc.de > --0016364d24f3de6798049aa4330c Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable
This is the result:

Debugger entered--Lisp error: (quit)
=C2=A0= =C2=A0re-search-forward("- State \"\\(\\(?:done\\)\\)\"\\s-*= \\[\\([^]\n]+\\)\\]" 605 t)
=C2=A0=C2=A0(if (re-search-forward state-regexp end t) (progn (let* ..= . ...)))
=C2=A0=C2=A0(when (re-search-forward state-regexp end t)= (let* (... ...) (if ... ...)))
=C2=A0=C2=A0(let ((end ...) begin= ) (goto-char (line-beginning-position)) (setq begin (point)) (when (re-sear= ch-forward state-regexp end t) (let* ... ...)))
=C2=A0=C2=A0(while (re-search-forward done-regexp nil t) (let (... beg= in) (goto-char ...) (setq begin ...) (when ... ...)))
=C2=A0=C2= =A0(let ((done-regexp ...) (state-regexp ...)) (while (re-search-forward do= ne-regexp nil t) (let ... ... ... ...)))
=C2=A0=C2=A0(save-excursion (goto-char (point-min)) (let (... ...) (wh= ile ... ...)))
=C2=A0=C2=A0archive-done-tasks()
=C2=A0= =C2=A0call-interactively(archive-done-tasks t nil)
=C2=A0=C2=A0ex= ecute-extended-command(nil)
=C2=A0=C2=A0call-interactively(execute-extended-command nil nil)

On Sun, Jan 23, 2011 at 05:24, David Maus <= span dir=3D"ltr"><dmaus@ictsoc.de= > wrote:
At Sun, 9 Jan 2011 20:11:18 -0800,
Ido Magal wrote:
>
> Hi everyone,
>
> I'm new to org-mode and I'm trying to incorporate this bit of = code
> into my setup:
>
> archive-done-tasks
>
> However when I run it it seems to hang emacs (osx)
> terminally. =C2=A0Since emacs, org-mode, and lisp are all alien to me,=
> there's no shortage of places where I could be failing so I'll= spare
> details of my setup until it's confirmed that that code should sti= ll
> work ( it's from 2007 and I don't see that it's been integ= rated into
> org-mode proper ).

Can you stop Emacs hanging by pressing C-g ?

If so, you might turn on debugging for C-g (M-x toggle-debug-on-quit
RET), hit the loop and press C-g. =C2=A0The backtrace might give a clue why=
and where Emacs is hanging.

HTH,
=C2=A0-- David

--
OpenPGP... 0x99ADB83B5A4478E6
Jabber.... dmjena@jabber.org
Email..... dmaus@ictsoc.de

--0016364d24f3de6798049aa4330c-- --===============0935897804== Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --===============0935897804==--