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