From: Marcelo de Moraes Serpa <celoserpa@gmail.com>
To: Bastien <bzg@altern.org>
Cc: Org Mode <emacs-orgmode@gnu.org>
Subject: Re: org-refile failing
Date: Wed, 5 Sep 2012 19:14:25 -0500 [thread overview]
Message-ID: <CACHMzOGUnFZW3usJ4m47x=Oj0uESv53hbKE7Pm_y6HandTXacA@mail.gmail.com> (raw)
In-Reply-To: <CACHMzOHyzU-TTr2f4nYTFmubiQHGyu+kghHrkxu4e=_kVm4ivw@mail.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 --]
next prev parent reply other threads:[~2012-09-06 0:14 UTC|newest]
Thread overview: 12+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-09-05 23:25 org-refile failing Marcelo de Moraes Serpa
2012-09-05 23:43 ` Bastien
2012-09-05 23:59 ` Marcelo de Moraes Serpa
2012-09-06 0:14 ` Marcelo de Moraes Serpa [this message]
2012-09-06 0:57 ` Nick Dokos
2012-09-06 1:32 ` Marcelo de Moraes Serpa
2012-09-06 1:48 ` Nick Dokos
2012-09-06 6:53 ` Brian van den Broek
2012-09-06 13:43 ` Marcelo de Moraes Serpa
2012-09-12 14:12 ` Bastien
2012-09-06 0:35 ` Nick Dokos
2012-09-12 14:13 ` Bastien
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='CACHMzOGUnFZW3usJ4m47x=Oj0uESv53hbKE7Pm_y6HandTXacA@mail.gmail.com' \
--to=celoserpa@gmail.com \
--cc=bzg@altern.org \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).