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 <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.  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
>