emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] org-refile works but dosent work from within a capture window (o


From: Fabrice Popineau
Subject: Re: [O] org-refile works but dosent work from within a capture window (org-capture-refile)
Date: Wed, 15 Jun 2016 21:18:39 +0200

Hi,

I don't know what is the minimal setup to reproduce the problem.
Basically:

- call capture from Chrome (in my case)
- select n for note
- select C-c C-w for org-capture-refile

Here is a backtrace.

The advice around call-interactively is set up by ido-ubiquitous.

Regards,

Fabrice

Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
  replace-regexp-in-string("\\[\\[\\([^][]+\\)\\]\\(\\[\\([^][]+\\)\\]\\)?\\]" "\\3" nil)
  (setq heading-text (replace-regexp-in-string org-bracket-link-regexp "\\3" (nth 4 (org-heading-components))))
  (if (and arg (listp arg)) nil (org-back-to-heading t) (setq heading-text (replace-regexp-in-string org-bracket-link-regexp "\\3" (nth 4 (org-heading-components)))))
  (save-excursion (if (and arg (listp arg)) nil (org-back-to-heading t) (setq heading-text (replace-regexp-in-string org-bracket-link-regexp "\\3" (nth 4 (org-heading-components))))) (org-refile-get-location (cond ((and arg (listp arg)) "Goto") (regionp (concat actionmsg " region to")) (t (concat actionmsg " subtree \"" heading-text "\" to"))) default-buffer (and (not (equal (quote (4)) arg)) org-refile-allow-creating-parent-nodes)))
  (let (heading-text) (save-excursion (if (and arg (listp arg)) nil (org-back-to-heading t) (setq heading-text (replace-regexp-in-string org-bracket-link-regexp "\\3" (nth 4 (org-heading-components))))) (org-refile-get-location (cond ((and arg (listp arg)) "Goto") (regionp (concat actionmsg " region to")) (t (concat actionmsg " subtree \"" heading-text "\" to"))) default-buffer (and (not (equal (quote (4)) arg)) org-refile-allow-creating-parent-nodes))))
  (or rfloc (let (heading-text) (save-excursion (if (and arg (listp arg)) nil (org-back-to-heading t) (setq heading-text (replace-regexp-in-string org-bracket-link-regexp "\\3" (nth 4 (org-heading-components))))) (org-refile-get-location (cond ((and arg (listp arg)) "Goto") (regionp (concat actionmsg " region to")) (t (concat actionmsg " subtree \"" heading-text "\" to"))) default-buffer (and (not (equal (quote ...) arg)) org-refile-allow-creating-parent-nodes)))))
  (setq it (or rfloc (let (heading-text) (save-excursion (if (and arg (listp arg)) nil (org-back-to-heading t) (setq heading-text (replace-regexp-in-string org-bracket-link-regexp "\\3" (nth 4 ...)))) (org-refile-get-location (cond ((and arg ...) "Goto") (regionp (concat actionmsg " region to")) (t (concat actionmsg " subtree \"" heading-text "\" to"))) default-buffer (and (not (equal ... arg)) org-refile-allow-creating-parent-nodes))))))
  (or (and (equal arg 2) org-clock-hd-marker (marker-buffer org-clock-hd-marker) (prog1 (setq it (list (or org-clock-heading "running clock") (buffer-file-name (marker-buffer org-clock-hd-marker)) "" (marker-position org-clock-hd-marker))) (setq arg nil))) (setq it (or rfloc (let (heading-text) (save-excursion (if (and arg (listp arg)) nil (org-back-to-heading t) (setq heading-text (replace-regexp-in-string org-bracket-link-regexp "\\3" ...))) (org-refile-get-location (cond (... "Goto") (regionp ...) (t ...)) default-buffer (and (not ...) org-refile-allow-creating-parent-nodes)))))))
  (if (or (and (equal arg 2) org-clock-hd-marker (marker-buffer org-clock-hd-marker) (prog1 (setq it (list (or org-clock-heading "running clock") (buffer-file-name (marker-buffer org-clock-hd-marker)) "" (marker-position org-clock-hd-marker))) (setq arg nil))) (setq it (or rfloc (let (heading-text) (save-excursion (if (and arg ...) nil (org-back-to-heading t) (setq heading-text ...)) (org-refile-get-location (cond ... ... ...) default-buffer (and ... org-refile-allow-creating-parent-nodes))))))) (progn (setq file (nth 1 it) pos (nth 3 it)) (if (and (not arg) pos (equal (buffer-file-name) file) (if regionp (and (>= pos region-start) (<= pos region-end)) (and (>= pos (point)) (< pos (save-excursion ...))))) (progn (error "Cannot refile to position inside the tree or region"))) (setq nbuf (or (find-buffer-visiting file) (find-file-noselect file))) (if (and arg (not (equal arg 3))) (progn (org-pop-to-buffer-same-window nbuf) (goto-char pos) (org-show-context (quote org-goto))) (if regionp (progn (org-kill-new (buffer-substring region-start region-end)) (org-save-markers-in-region region-start region-end)) (org-copy-subtree 1 nil t)) (save-current-buffer (set-buffer (setq nbuf (or (find-buffer-visiting file) (find-file-noselect file)))) (setq reversed (org-notes-order-reversed-p)) (save-excursion (save-restriction (widen) (if pos (progn ... ... ... ...) (setq level 1) (if ... ... ... ...)) (if (bolp) nil (newline)) (org-paste-subtree level nil nil t) (if org-log-refile (progn ... ...)) (and org-auto-align-tags (let ... ...)) (let (...) (if bookmark-name ...)) (if (and ... org-capture-is-refiling) (progn ... ...)) (if (fboundp ...) (progn ...)) (run-hooks (quote org-after-refile-insert-hook))))) (if org-refile-keep nil (if regionp (delete-region (point) (+ (point) (- region-end region-start))) (delete-region (and (org-back-to-heading t) (point)) (min (1+ ...) (org-end-of-subtree t t) (point))))) (if (featurep (quote org-inlinetask)) (progn (org-inlinetask-remove-END-maybe))) (setq org-markers-to-move nil) (message (concat actionmsg " to \"%s\" in file %s: done") (car it) file))))
  (if (equal arg (quote (16))) (org-refile-goto-last-stored) (if (or (and (equal arg 2) org-clock-hd-marker (marker-buffer org-clock-hd-marker) (prog1 (setq it (list (or org-clock-heading "running clock") (buffer-file-name ...) "" (marker-position org-clock-hd-marker))) (setq arg nil))) (setq it (or rfloc (let (heading-text) (save-excursion (if ... nil ... ...) (org-refile-get-location ... default-buffer ...)))))) (progn (setq file (nth 1 it) pos (nth 3 it)) (if (and (not arg) pos (equal (buffer-file-name) file) (if regionp (and (>= pos region-start) (<= pos region-end)) (and (>= pos ...) (< pos ...)))) (progn (error "Cannot refile to position inside the tree or region"))) (setq nbuf (or (find-buffer-visiting file) (find-file-noselect file))) (if (and arg (not (equal arg 3))) (progn (org-pop-to-buffer-same-window nbuf) (goto-char pos) (org-show-context (quote org-goto))) (if regionp (progn (org-kill-new (buffer-substring region-start region-end)) (org-save-markers-in-region region-start region-end)) (org-copy-subtree 1 nil t)) (save-current-buffer (set-buffer (setq nbuf (or ... ...))) (setq reversed (org-notes-order-reversed-p)) (save-excursion (save-restriction (widen) (if pos ... ... ...) (if ... nil ...) (org-paste-subtree level nil nil t) (if org-log-refile ...) (and org-auto-align-tags ...) (let ... ...) (if ... ...) (if ... ...) (run-hooks ...)))) (if org-refile-keep nil (if regionp (delete-region (point) (+ ... ...)) (delete-region (and ... ...) (min ... ... ...)))) (if (featurep (quote org-inlinetask)) (progn (org-inlinetask-remove-END-maybe))) (setq org-markers-to-move nil) (message (concat actionmsg " to \"%s\" in file %s: done") (car it) file)))))
  (let* ((actionmsg (cond (msg msg) ((equal arg 3) "Refile (and keep)") (t "Refile"))) (regionp (org-region-active-p)) (region-start (and regionp (region-beginning))) (region-end (and regionp (region-end))) (org-refile-keep (if (equal arg 3) t org-refile-keep)) pos it nbuf file level reversed) (setq last-command nil) (if regionp (progn (goto-char region-start) (or (bolp) (goto-char (point-at-bol))) (setq region-start (point)) (if (or (org-kill-is-subtree-p (buffer-substring region-start region-end)) (prog1 org-refile-active-region-within-subtree (let (...) (org-toggle-heading) (setq region-end ...)))) nil (user-error "The region is not a (sequence of) subtree(s)")))) (if (equal arg (quote (16))) (org-refile-goto-last-stored) (if (or (and (equal arg 2) org-clock-hd-marker (marker-buffer org-clock-hd-marker) (prog1 (setq it (list ... ... "" ...)) (setq arg nil))) (setq it (or rfloc (let (heading-text) (save-excursion ... ...))))) (progn (setq file (nth 1 it) pos (nth 3 it)) (if (and (not arg) pos (equal (buffer-file-name) file) (if regionp (and ... ...) (and ... ...))) (progn (error "Cannot refile to position inside the tree or region"))) (setq nbuf (or (find-buffer-visiting file) (find-file-noselect file))) (if (and arg (not (equal arg 3))) (progn (org-pop-to-buffer-same-window nbuf) (goto-char pos) (org-show-context (quote org-goto))) (if regionp (progn (org-kill-new ...) (org-save-markers-in-region region-start region-end)) (org-copy-subtree 1 nil t)) (save-current-buffer (set-buffer (setq nbuf ...)) (setq reversed (org-notes-order-reversed-p)) (save-excursion (save-restriction ... ... ... ... ... ... ... ... ... ...))) (if org-refile-keep nil (if regionp (delete-region ... ...) (delete-region ... ...))) (if (featurep (quote org-inlinetask)) (progn (org-inlinetask-remove-END-maybe))) (setq org-markers-to-move nil) (message (concat actionmsg " to \"%s\" in file %s: done") (car it) file))))))
  (if (member arg (quote (0 (64)))) (org-refile-cache-clear) (let* ((actionmsg (cond (msg msg) ((equal arg 3) "Refile (and keep)") (t "Refile"))) (regionp (org-region-active-p)) (region-start (and regionp (region-beginning))) (region-end (and regionp (region-end))) (org-refile-keep (if (equal arg 3) t org-refile-keep)) pos it nbuf file level reversed) (setq last-command nil) (if regionp (progn (goto-char region-start) (or (bolp) (goto-char (point-at-bol))) (setq region-start (point)) (if (or (org-kill-is-subtree-p (buffer-substring region-start region-end)) (prog1 org-refile-active-region-within-subtree (let ... ... ...))) nil (user-error "The region is not a (sequence of) subtree(s)")))) (if (equal arg (quote (16))) (org-refile-goto-last-stored) (if (or (and (equal arg 2) org-clock-hd-marker (marker-buffer org-clock-hd-marker) (prog1 (setq it ...) (setq arg nil))) (setq it (or rfloc (let ... ...)))) (progn (setq file (nth 1 it) pos (nth 3 it)) (if (and (not arg) pos (equal ... file) (if regionp ... ...)) (progn (error "Cannot refile to position inside the tree or region"))) (setq nbuf (or (find-buffer-visiting file) (find-file-noselect file))) (if (and arg (not ...)) (progn (org-pop-to-buffer-same-window nbuf) (goto-char pos) (org-show-context ...)) (if regionp (progn ... ...) (org-copy-subtree 1 nil t)) (save-current-buffer (set-buffer ...) (setq reversed ...) (save-excursion ...)) (if org-refile-keep nil (if regionp ... ...)) (if (featurep ...) (progn ...)) (setq org-markers-to-move nil) (message (concat actionmsg " to \"%s\" in file %s: done") (car it) file)))))))
  org-refile(nil)
  funcall-interactively(org-refile nil)
  #<subr call-interactively>(org-refile nil nil)
  ad-Advice-call-interactively(#<subr call-interactively> org-refile)
  apply(ad-Advice-call-interactively #<subr call-interactively> org-refile)
  call-interactively(org-refile)
  (save-restriction (widen) (goto-char pos) (call-interactively (quote org-refile)))
  (save-excursion (save-restriction (widen) (goto-char pos) (call-interactively (quote org-refile))))
  (save-current-buffer (set-buffer (or base (current-buffer))) (save-excursion (save-restriction (widen) (goto-char pos) (call-interactively (quote org-refile)))))
  (progn (save-current-buffer (set-buffer (or base (current-buffer))) (save-excursion (save-restriction (widen) (goto-char pos) (call-interactively (quote org-refile))))))
  (unwind-protect (progn (save-current-buffer (set-buffer (or base (current-buffer))) (save-excursion (save-restriction (widen) (goto-char pos) (call-interactively (quote org-refile)))))) (set-window-configuration wconfig))
  (let ((wconfig (current-window-configuration))) (unwind-protect (progn (save-current-buffer (set-buffer (or base (current-buffer))) (save-excursion (save-restriction (widen) (goto-char pos) (call-interactively (quote org-refile)))))) (set-window-configuration wconfig)))
  (let ((pos (point)) (base (buffer-base-buffer (current-buffer))) (org-capture-is-refiling t) (kill-buffer (org-capture-get :kill-buffer (quote local)))) (org-capture-put :kill-buffer nil) (org-capture-finalize) (let ((wconfig (current-window-configuration))) (unwind-protect (progn (save-current-buffer (set-buffer (or base (current-buffer))) (save-excursion (save-restriction (widen) (goto-char pos) (call-interactively ...))))) (set-window-configuration wconfig))) (if kill-buffer (progn (kill-buffer base))))
  org-capture-refile()
  funcall-interactively(org-capture-refile)
  #<subr call-interactively>(org-capture-refile nil nil)
  ad-Advice-call-interactively(#<subr call-interactively> org-capture-refile nil nil)
  apply(ad-Advice-call-interactively #<subr call-interactively> (org-capture-refile nil nil))
  call-interactively(org-capture-refile nil nil)
  command-execute(org-capture-refile)

2016-05-29 23:53 GMT+02:00 Nicolas Goaziou <address@hidden>:
Hello,

Xebar Saram <address@hidden> writes:

> do you mind guiding me on how to produce the backtrace and ECM, im not very
> technical ;-)

The backtrace is easy: M-x toggle-debug-on-error.

Just make sure you're using an un-compiled Org (you can call
`org-reload' with a C-u prefix).

The ECM is a minimal document that enables me to reproduce the error. It
may not be needed if the backtrace is obvious enough, but it doesn't
hurt to provide it either, if it is simple to create.

Regards,

--
Nicolas Goaziou




--
Fabrice Popineau
-----------------------------
SUPELEC
Département Informatique
3, rue Joliot Curie
91192 Gif/Yvette Cedex
Tel direct : +33 (0) 169851950
Standard : +33 (0) 169851212
------------------------------


reply via email to

[Prev in Thread] Current Thread [Next in Thread]