From: Mike Fitzgerald <mikef656@gmail.com>
To: nicholas.dokos@hp.com
Cc: emacs-orgmode@gnu.org
Subject: Re: Bug: org-capture Does not take user to any new buffer
Date: Tue, 5 Jun 2012 12:22:22 -0500 [thread overview]
Message-ID: <CACy+NBLYKi2VHcw26WrHH5gw=9NFW1J4M2X97bKikDPeBxf+7A@mail.gmail.com> (raw)
In-Reply-To: <3893.1338915692@alphaville>
[-- Attachment #1.1: Type: text/plain, Size: 5344 bytes --]
*Setup*
-I performed my org-mode update by downloading org-7.8.11.zip
Then extracting using something like
rt click, "extract here"
I also ran a defun that I found on wiki pages with the subject
"Compiling without make"
(defun my/compile-org(&optional directory)
"Compile all *.el files that come with org-mode."
(interactive)
....
*RUN Result*
Without restarting Emacs I run
m-: (load-library "org-macs")
followed by org-capture
Result:
-Behavior was exactly the same bug we have been discussing (did not change).
Here is the backtrace.
Thanks
Mike
On Tue, Jun 5, 2012 at 12:01 PM, Nick Dokos <nicholas.dokos@hp.com> wrote:
> 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)
> `----
>
[-- Attachment #1.2: Type: text/html, Size: 6386 bytes --]
[-- Attachment #2: backtrace.txt --]
[-- Type: text/plain, Size: 4996 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 12:16]\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)
recursive-edit()
byte-code("\306\x10 @\307=\203!\0\310\311\312\"\210\313\311!\211\x1aA@)\242\314=\203!\0\310\315\312\"\210\316\v!\210\317 \210\320 !\210\f\203d\0\321ed\"\rV\203W\0eb\210\322\r\245y\210`\x1e^[db\210\322\r\245\rZy\210\x0e^[`|\210)\323c\210eb\210\324\325\326 \"\210\327\306!\210\324\330!\210\331\312\x1e\x1c\x1e\x1d\324\330!\210\212\332 \210+\331\207" [unread-command-char debugger-args x debugger-buffer noninteractive debugger-batch-max-lines -1 debug backtrace-debug 4 t backtrace-frame lambda 5 pop-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer-string kill-emacs "" nil recursive-edit middlestart buffer-read-only standard-output] 4)
debug(error (error "Cannot return from the debugger in an error"))
signal(error ("Capture template `j': org-called-interactively-p"))
error("Capture template `%s': %s" "j" org-called-interactively-p)
(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)
next prev parent reply other threads:[~2012-06-05 17:22 UTC|newest]
Thread overview: 21+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-06-04 17:10 Bug: org-capture Does not take user to any new buffer Mike Fitzgerald
2012-06-05 3:56 ` Nick Dokos
[not found] ` <CACy+NBKaJS_byMGFursD=fOegVR=Dn+wZeFBs71gZM4s5gwn_g@mail.gmail.com>
[not found] ` <CACy+NB+ij+=bnnZx_Kx9X=Gjntok-7hg9ufHkb2+_rSTyxcOVg@mail.gmail.com>
2012-06-05 14:22 ` Mike Fitzgerald
2012-06-05 15:35 ` Nick Dokos
2012-06-05 15:46 ` Mike Fitzgerald
2012-06-05 15:55 ` Nick Dokos
2012-06-05 16:06 ` Mike Fitzgerald
2012-06-05 17:01 ` Nick Dokos
2012-06-05 17:22 ` Mike Fitzgerald [this message]
2012-06-05 17:45 ` Nick Dokos
2012-06-05 18:04 ` Nick Dokos
2012-06-05 18:54 ` Achim Gratz
2012-06-05 18:18 ` Achim Gratz
2012-06-05 18:40 ` Nick Dokos
2012-06-05 20:22 ` Achim Gratz
2012-06-05 20:35 ` Nick Dokos
2012-06-05 20:42 ` Achim Gratz
2012-06-05 17:37 ` Achim Gratz
2012-06-05 15:50 ` Nick Dokos
2012-06-15 14:57 ` N. Jackson
2012-06-19 1:42 ` N. Jackson
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='CACy+NBLYKi2VHcw26WrHH5gw=9NFW1J4M2X97bKikDPeBxf+7A@mail.gmail.com' \
--to=mikef656@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=nicholas.dokos@hp.com \
/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).