Re: org-refile failing

[Marcelo de Moraes Serpa <celoserpa@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 6531 bytes --]

Here's the backtrace (debug-on-error set to t):

debugger entered--Lisp error: (invalid-regexp "Invalid content of \\{\\}")
  re-search-forward("^\\*\\{1,0\\}[ ]" nil t)
  (while (re-search-forward descre nil t) (goto-char (setq pos0 ...))
(catch (quote next) (when org-refile-target-verify-function ...) (when ...
... ... ...)) (when (= ... pos0) (goto-char ...)))
  (save-restriction (widen) (goto-char (point-min)) (while
(re-search-forward descre nil t) (goto-char ...) (catch ... ... ...) (when
... ...)))
  (save-excursion (save-restriction (widen) (goto-char ...) (while ... ...
... ...)))
  (progn (if (bufferp f) (setq f ...)) (setq f (and f ...)) (if (eq
org-refile-use-outline-path ...) (push ... tgs)) (save-excursion
(save-restriction ... ... ...)))
  (or (setq tgs (org-refile-cache-get ... descre)) (progn (if ... ...)
(setq f ...) (if ... ...) (save-excursion ...)))
  (save-current-buffer (set-buffer (if ... f ...)) (or (setq tgs ...)
(progn ... ... ... ...)) (when org-refile-use-cache (org-refile-cache-put
tgs ... descre)) (setq targets (append tgs targets)))
  (with-current-buffer (if (bufferp f) f (org-get-agenda-file-buffer f))
(or (setq tgs ...) (progn ... ... ... ...)) (when org-refile-use-cache
(org-refile-cache-put tgs ... descre)) (setq targets (append tgs targets)))
  (while (setq f (pop files)) (with-current-buffer (if ... f ...) (or ...
...) (when org-refile-use-cache ...) (setq targets ...)))
  (while (setq entry (pop entries)) (setq files (car entry) desc (cdr
entry)) (setq fast-path-p nil) (cond (... ...) (... ...) (... ...) (...
...)) (if (stringp files) (setq files ...)) (cond (... ...) (... ...) (...
...) (... ...) (... ... ...) (t ...)) (while (setq f ...)
(with-current-buffer ... ... ... ...)))
  (save-current-buffer (set-buffer (or default-buffer ...)) (while (setq
entry ...) (setq files ... desc ...) (setq fast-path-p nil) (cond ... ...
... ...) (if ... ...) (cond ... ... ... ... ... ...) (while ... ...)))
  (with-current-buffer (or default-buffer (current-buffer)) (while (setq
entry ...) (setq files ... desc ...) (setq fast-path-p nil) (cond ... ...
... ...) (if ... ...) (cond ... ... ... ... ... ...) (while ... ...)))
  (let ((case-fold-search nil) (entries ...) targets tgs txt re files f
desc descre fast-path-p level pos0) (message "Getting targets...")
(with-current-buffer (or default-buffer ...) (while ... ... ... ... ... ...
...)) (message "Getting targets...done") (nreverse targets))
  org-refile-get-targets(nil (#("OneLogin MX Office" 0 8 (fontified t
org-category "gtd" face org-level-1 org-no-flyspell t) 8 18 (fontified t
org-category "gtd" face org-level-1)) #("A/C Quote + Room isolation quote"
0 32 (fontified t org-category "gtd" face org-level-2)) #("Write to Thomas
with quote + isolation quote, explaining the situation" 0 70 (fontified t
org-category "gtd" face org-level-3)) #("Headsets" 0 8 (fontified t
org-category "gtd" face org-level-2)) #("Alartm System quote" 0 19
(fontified t org-category "gtd" face org-level-2))))
  (setq org-refile-target-table (org-refile-get-targets default-buffer
excluded-entries))
  (let ((org-refile-targets org-refile-targets)
(org-refile-use-outline-path org-refile-use-outline-path) excluded-entries)
(when (and ... ... ...) (org-map-tree ...)) (setq org-refile-target-table
(org-refile-get-targets default-buffer excluded-entries)))
  org-refile-get-location("Refile subtree \"OneLogin MX Office\" to" nil
nil nil)
  (save-excursion (unless goto (org-back-to-heading t) (setq heading-text
...)) (org-refile-get-location (cond ... ... ...) default-buffer (and ...
org-refile-allow-creating-parent-nodes) goto))
  (let (heading-text) (save-excursion (unless goto ... ...)
(org-refile-get-location ... default-buffer ... goto)))
  (or rfloc (let (heading-text) (save-excursion ... ...)))
  (setq it (or rfloc (let ... ...)))
  (or (and (equal goto 2) org-clock-hd-marker (marker-buffer
org-clock-hd-marker) (prog1 ... ...)) (setq it (or rfloc ...)))
  (if (or (and ... org-clock-hd-marker ... ...) (setq it ...)) (progn (setq
file ... re ... pos ...) (if ... ...) (setq nbuf ...) (if goto ... ... ...
... ... ... ...)))
  (when (or (and ... org-clock-hd-marker ... ...) (setq it ...)) (setq file
(nth 1 it) re (nth 2 it) pos (nth 3 it)) (if (and ... pos ... ...) (error
"Cannot refile to position inside the tree or region")) (setq nbuf (or ...
...)) (if goto (progn ... ... ...) (if regionp ... ...)
(with-current-buffer ... ... ...) (if regionp ... ...) (when ... ...) (setq
org-markers-to-move nil) (message "Refiled to \"%s\" in file %s" ... file)))
  (if (equal goto (quote ...)) (org-refile-goto-last-stored) (when (or ...
...) (setq file ... re ... pos ...) (if ... ...) (setq nbuf ...) (if goto
... ... ... ... ... ... ...)))
  (let* ((cbuf ...) (regionp ...) (region-start ...) (region-end ...)
(region-length ...) (filename ...) pos it nbuf file re level reversed)
(setq last-command nil) (when regionp (goto-char region-start) (or ... ...)
(setq region-start ...) (unless ... ...)) (if (equal goto ...)
(org-refile-goto-last-stored) (when ... ... ... ... ...)))
  (if (member goto (quote ...)) (org-refile-cache-clear) (let* (... ... ...
... ... ... pos it nbuf file re level reversed) (setq last-command nil)
(when regionp ... ... ... ...) (if ... ... ...)))
  org-refile(nil)
  call-interactively(org-refile t nil)
  execute-extended-command(nil)
  call-interactively(execute-extended-command nil nil)


On Wed, Sep 5, 2012 at 6:59 PM, Marcelo de Moraes Serpa <celoserpa@gmail.com
> wrote:

> Sorry Bastien, should have included it before.
>
> Emacs:
> GNU Emacs 23.4.1 (x86_64-apple-darwin, NS apple-appkit-1038.36) of
> 2012-01-29 on bob.porkrind.org
>
> Org:
> Org-mode version 7.9.1 (release_7.9.1-145-g0a6165-git @ mixed
> installation! /Applications/Emacs.app/Contents/Resources/lisp/org/ and
> /Users/fullofcaffeine/.emacs.d/vendor/org/lisp/)
>
> To reproduce it, I just move the cursor to the beginning of  a headline
> like this:
>
> * TODO Do something
>
> And then M-x org-refile
>
> Cheers,
>
> - Marcelo.
>
>
>
> On Wed, Sep 5, 2012 at 6:43 PM, Bastien <bzg@altern.org> wrote:
>
>> Hi Marcelo,
>>
>> Marcelo de Moraes Serpa <celoserpa@gmail.com> writes:
>>
>> > When trying to run org-refile on an org entry, I'm getting the
>> > following error:
>> >
>> > while: Invalid regexp: "Invalid content of \\{\\}"
>>
>> Can you give us your Org version, your Emacs version and a recipe
>> to reproduce this problem?  Refiling works fine here.
>>
>> Thanks,
>>
>> --
>>  Bastien
>>
>
>

[-- Attachment #2: Type: text/html, Size: 8130 bytes --]