Re: Bug: org-capture Does not take user to any new buffer

[Mike Fitzgerald <mikef656@gmail.com>]

[-- Attachment #1.1: Type: text/plain, Size: 505 bytes --]

As requested.

Thanks

Mike

On Tue, Jun 5, 2012 at 10:55 AM, Nick Dokos <nicholas.dokos@hp.com> wrote:

> Mike Fitzgerald <mikef656@gmail.com> wrote:
>
> > Org-mode version 7.8.11
> >
> > Downloaded a zip file, not a GIT user.
>
> Where did you get the zip file?
>
> >
> > Backtrace from a non-edebug run attached.
> >
>
> Yup - not useful: the condition-case has stripped all useful information.
> You will need to modify org-capture.el as described in my previous message
> and try again.
>
> Nick
>
>

[-- Attachment #1.2: Type: text/html, Size: 970 bytes --]

[-- Attachment #2: backtrace.txt --]
[-- Type: text/plain, Size: 2798 bytes --]

Debugger entered--Lisp error: (invalid-function org-called-interactively-p)
  org-called-interactively-p(interactive)
  org-paste-subtree(4 #("* %?\nEntered on [2012-06-05 Tue 11:04]\n" 0 5 (fontified nil) 5 16 (fontified nil) 16 17 (fontified nil) 17 37 (fontified nil) 37 38 (fontified nil) 38 39 (fontified nil)) for-yank)
  (let* ((txt ...) (reversed ...) (target-entry-p ...) level beg end file) (cond (... ...) (... ... ...) (t ... ... ...)) (org-capture-empty-lines-before) (setq beg (point)) (org-capture-verify-tree txt) (org-paste-subtree level txt (quote for-yank)) (org-capture-empty-lines-after 1) (org-capture-position-for-last-stored beg) (outline-next-heading) (setq end (point)) (org-capture-mark-kill-region beg (1- end)) (org-capture-narrow beg (1- end)) (goto-char beg) (if (re-search-forward "%\\?" end t) (replace-match "")))
  org-capture-place-entry()
  (cond ((member* type ...) (org-capture-place-entry)) ((eql type ...) (org-capture-place-table-line)) ((eql type ...) (org-capture-place-plain-text)) ((eql type ...) (org-capture-place-item)) ((eql type ...) (org-capture-place-item)))
  (case type ((nil entry) (org-capture-place-entry)) (table-line (org-capture-place-table-line)) (plain (org-capture-place-plain-text)) (item (org-capture-place-item)) (checkitem (org-capture-place-item)))
  (let* ((template ...) (type ...)) (case type (... ...) (table-line ...) (plain ...) (item ...) (checkitem ...)))
  org-capture-place-template()
  (condition-case error (org-capture-place-template) ((error quit debug) (if ... ...) (set-window-configuration ...) (error "Capture template `%s': %s" ... ...)))
  (if (equal goto 0) (org-capture-insert-template-here) (condition-case error (org-capture-place-template) (... ... ... ...)) (if (and ... ...) (condition-case nil ... ...)) (if (org-capture-get :immediate-finish) (org-capture-finalize nil)))
  (cond ((equal entry "C") (customize-variable ...)) ((equal entry "q") (error "Abort")) (t (org-capture-set-plist entry) (org-capture-get-template) (org-capture-put :original-buffer orig-buf :original-file ... :original-file-nondirectory ... :annotation annotation :initial initial) (org-capture-put :default-time ...) (org-capture-set-target-location) (condition-case error ... ...) (setq org-capture-clock-keep ...) (if ... ... ... ... ...)))
  (let* ((orig-buf ...) (annotation ...) (initial ...) (entry ...)) (when (stringp initial) (remove-text-properties 0 ... ... initial)) (when (stringp annotation) (remove-text-properties 0 ... ... annotation)) (cond (... ...) (... ...) (t ... ... ... ... ... ... ... ...)))
  (cond ((equal goto ...) (org-capture-goto-target)) ((equal goto ...) (org-capture-goto-last-stored)) (t (let* ... ... ... ...)))
  org-capture(nil)
  call-interactively(org-capture nil nil)