From mboxrd@z Thu Jan 1 00:00:00 1970 From: Marcelo de Moraes Serpa Subject: Re: org-refile failing Date: Wed, 5 Sep 2012 19:14:25 -0500 Message-ID: References: <87mx145937.fsf@altern.org> Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=14dae934106bbb638b04c8fd5feb Return-path: Received: from eggs.gnu.org ([208.118.235.92]:57880) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1T9Pjo-0000iN-7P for emacs-orgmode@gnu.org; Wed, 05 Sep 2012 20:14:30 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1T9Pjm-0002n8-5O for emacs-orgmode@gnu.org; Wed, 05 Sep 2012 20:14:28 -0400 Received: from mail-iy0-f169.google.com ([209.85.210.169]:40033) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1T9Pjl-0002n4-UU for emacs-orgmode@gnu.org; Wed, 05 Sep 2012 20:14:26 -0400 Received: by iagk10 with SMTP id k10so1670114iag.0 for ; Wed, 05 Sep 2012 17:14:25 -0700 (PDT) In-Reply-To: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Bastien Cc: Org Mode --14dae934106bbb638b04c8fd5feb Content-Type: text/plain; charset=ISO-8859-1 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 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 wrote: > >> Hi Marcelo, >> >> Marcelo de Moraes Serpa 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 >> > > --14dae934106bbb638b04c8fd5feb Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable Here's the backtrace (debug-on-error set to t):

debugger entered--Lisp error: (invalid-regexp "Invalid content of \\{= \\}")
=A0 re-search-forward("^\\*\\{1,0\\}[ ]" nil t)
=A0 (while (re-search-forward descre nil t) (goto-char (setq pos0 ...)= ) (catch (quote next) (when org-refile-target-verify-function ...) (when ..= . ... ... ...)) (when (=3D ... pos0) (goto-char ...)))
=A0 (save-= restriction (widen) (goto-char (point-min)) (while (re-search-forward descr= e nil t) (goto-char ...) (catch ... ... ...) (when ... ...)))
=A0 (save-excursion (save-restriction (widen) (goto-char ...) (while .= .. ... ... ...)))
=A0 (progn (if (bufferp f) (setq f ...)) (setq = f (and f ...)) (if (eq org-refile-use-outline-path ...) (push ... tgs)) (sa= ve-excursion (save-restriction ... ... ...)))
=A0 (or (setq tgs (org-refile-cache-get ... descre)) (progn (if ... ..= .) (setq f ...) (if ... ...) (save-excursion ...)))
=A0 (save-cur= rent-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)))
=A0 (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))= )
=A0 (while (setq f (pop files)) (with-current-buffer (if ... f ...) (o= r ... ...) (when org-refile-use-cache ...) (setq targets ...)))
= =A0 (while (setq entry (pop entries)) (setq files (car entry) desc (cdr ent= ry)) (setq fast-path-p nil) (cond (... ...) (... ...) (... ...) (... ...)) = (if (stringp files) (setq files ...)) (cond (... ...) (... ...) (... ...) (= ... ...) (... ... ...) (t ...)) (while (setq f ...) (with-current-buffer ..= . ... ... ...)))
=A0 (save-current-buffer (set-buffer (or default-buffer ...)) (while (= setq entry ...) (setq files ... desc ...) (setq fast-path-p nil) (cond ... = ... ... ...) (if ... ...) (cond ... ... ... ... ... ...) (while ... ...)))<= /div>
=A0 (with-current-buffer (or default-buffer (current-buffer)) (while (= setq entry ...) (setq files ... desc ...) (setq fast-path-p nil) (cond ... = ... ... ...) (if ... ...) (cond ... ... ... ... ... ...) (while ... ...)))<= /div>
=A0 (let ((case-fold-search nil) (entries ...) targets tgs txt re file= s f desc descre fast-path-p level pos0) (message "Getting targets...&q= uot;) (with-current-buffer (or default-buffer ...) (while ... ... ... ... .= .. ... ...)) (message "Getting targets...done") (nreverse targets= ))
=A0 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 &quo= t;gtd" face org-level-2)) #("Write to Thomas with quote + isolati= on quote, explaining the situation" 0 70 (fontified t org-category &qu= ot;gtd" face org-level-3)) #("Headsets" 0 8 (fontified t org= -category "gtd" face org-level-2)) #("Alartm System quote&qu= ot; 0 19 (fontified t org-category "gtd" face org-level-2))))
=A0 (setq org-refile-target-table (org-refile-get-targets default-buff= er excluded-entries))
=A0 (let ((org-refile-targets org-refile-ta= rgets) (org-refile-use-outline-path org-refile-use-outline-path) excluded-e= ntries) (when (and ... ... ...) (org-map-tree ...)) (setq org-refile-target= -table (org-refile-get-targets default-buffer excluded-entries)))
=A0 org-refile-get-location("Refile subtree \"OneLogin MX Of= fice\" to" nil nil nil)
=A0 (save-excursion (unless got= o (org-back-to-heading t) (setq heading-text ...)) (org-refile-get-location= (cond ... ... ...) default-buffer (and ... org-refile-allow-creating-paren= t-nodes) goto))
=A0 (let (heading-text) (save-excursion (unless goto ... ...) (org-ref= ile-get-location ... default-buffer ... goto)))
=A0 (or rfloc (le= t (heading-text) (save-excursion ... ...)))
=A0 (setq it (or rflo= c (let ... ...)))
=A0 (or (and (equal goto 2) org-clock-hd-marker (marker-buffer org-clo= ck-hd-marker) (prog1 ... ...)) (setq it (or rfloc ...)))
=A0 (if = (or (and ... org-clock-hd-marker ... ...) (setq it ...)) (progn (setq file = ... re ... pos ...) (if ... ...) (setq nbuf ...) (if goto ... ... ... ... .= .. ... ...)))
=A0 (when (or (and ... org-clock-hd-marker ... ...) (setq it ...)) (se= tq 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")) (s= etq nbuf (or ... ...)) (if goto (progn ... ... ...) (if regionp ... ...) (w= ith-current-buffer ... ... ...) (if regionp ... ...) (when ... ...) (setq o= rg-markers-to-move nil) (message "Refiled to \"%s\" in file = %s" ... file)))
=A0 (if (equal goto (quote ...)) (org-refile-goto-last-stored) (when (= or ... ...) (setq file ... re ... pos ...) (if ... ...) (setq nbuf ...) (if= goto ... ... ... ... ... ... ...)))
=A0 (let* ((cbuf ...) (regio= np ...) (region-start ...) (region-end ...) (region-length ...) (filename .= ..) pos it nbuf file re level reversed) (setq last-command nil) (when regio= np (goto-char region-start) (or ... ...) (setq region-start ...) (unless ..= . ...)) (if (equal goto ...) (org-refile-goto-last-stored) (when ... ... ..= . ... ...)))
=A0 (if (member goto (quote ...)) (org-refile-cache-clear) (let* (... = ... ... ... ... ... pos it nbuf file re level reversed) (setq last-command = nil) (when regionp ... ... ... ...) (if ... ... ...)))
=A0 org-re= file(nil)
=A0 call-interactively(org-refile t nil)
=A0 execute-extende= d-command(nil)
=A0 call-interactively(execute-extended-command ni= l nil)


On Wed, Sep 5, 20= 12 at 6:59 PM, Marcelo de Moraes Serpa <celoserpa@gmail.com> wrote:
Sorry Bastien, should have included it befor= e.

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-14= 5-g0a6165-git @ mixed installation! /Applications/Emacs.app/Contents/Resour= ces/lisp/org/ and /Users/fullofcaffeine/.emacs.d/vendor/org/lisp/)

To reproduce it, I just move the cursor to the beginnin= g of =A0a headline like this:

* TODO Do something<= /div>

And then M-x org-refile

Cheers,

- Marcelo.



On Wed, Sep 5, 20= 12 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? =A0Refiling works fine here.

Thanks,

--
=A0Bastien


--14dae934106bbb638b04c8fd5feb--