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

[Nick Dokos <nicholas.dokos@hp.com>]

Mike Fitzgerald <mikef656@gmail.com> wrote:

> 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)

[I hope Achim Gratz takes a look at this: he would have a much better
handle on what exactly is going wrong here - in particular, emacs on
windows is a black box to me]

org-called-interactively-p is in org-macs.el - it's probably the case
that your autoloads are not up to date (or perhaps non-existent). Can
you tell us exactly what zip file you got and how you installed it?

In any case, try

(load-library "org-macs")

and then try the capture again: it probably will work this time (or
you'll get a different error). This is not meant either as a solution or
as a workaround: it is just meant to provide a data point about what is
wrong and what exactly you need to do to restore sanity, so there is
some ways to go yet.

Nick

PS For reference, here is what Mike posted earlier about his org
initialization:

,----
|     This is my org setup near the top of my .emacs
|    
|     (add-to-list 'load-path "~/.emacs.d/org/org-7.8.11/contrib/lisp/")
|     (add-to-list 'load-path "~/.emacs.d/org/org-7.8.11/lisp/")
|     (require 'org-install)
|     (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
|     (define-key global-map "\C-cl" 'org-store-link)
|     (define-key global-map "\C-ca" 'org-agenda)
|     (setq org-log-done t)
|    
|     (setq org-capture-templates
|    
|           '(("t" "Todo" entry (file+headline "~/org/gtd.org" "Tasks")
|                  "* TODO %?\n  %i\n  %a")
|             ("j" "Journal" entry (file+datetree "~/org/journal.org")
|                  "* %?\nEntered on %U\n  %i\n  %a")))
|    
|     ;org-capture binding
|     ;(global-set-key "\C-c-c" 'org-capture)
|     (global-set-key [(control c) (c)] 'org-capture)
`----