Re: Capture error

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

Thomas S. Dye <tsd@tsdye.com> wrote:

> Aloha all,
> 
> With a recent make update from Git I'm getting this error when I try to
> Finish (with C-c C-c) some tried and true capture templates:
> 
> org-capture-bookmark-last-stored-position: Invalid function: with-demoted-errors
> 
> Here is a backtrace:
> 
> Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p nil)
>   org-capture-bookmark-last-stored-position()
>   org-capture-finalize(nil)
>   call-interactively(org-capture-finalize nil nil)
> 
> Org-mode version 7.9.2 (release_7.9.2-535-g8fb598 @
> /Users/dk/.emacs.d/src/org-mode/lisp/)
> 
> The information is captured to the file, but the capture buffer doesn't
> go away.
>  

Can't see anything wrong and I cannot reproduce it. with-demoted-errors
exists in both emacs 23 and 24. It (along with other
with-... constructs) is a macro, so there may be some problem with
compilation (although I tried compiling org as well). Can you try with
uncompiled org-capture.el? The first error message seems to indicate
that o-c-b-l-s-p was compiled without knowledge of the macro, so it
assumes that it is a function that will exist at runtime.

Or perhaps starting with a fresh emacs might make the problem go away.

Nick

PS. BTW, nothing to do with this problem but make update/make test got
an unexpected failure:

Test test-org/end-of-line backtrace:
  signal(ert-test-failed (((should (org-test-with-temp-text "* Headlin
  ert-fail(((should (org-test-with-temp-text "* Headline :tag:" (let (
  (if (unwind-protect (setq value-3861 (let ((temp-buffer (generate-ne
  (let (form-description-3862) (if (unwind-protect (setq value-3861 (l
  (let ((value-3861 (ert--gensym "ert-form-evaluation-aborted-"))) (le
  (lambda nil (let ((value-3857 (ert--gensym "ert-form-evaluation-abor
  byte-code("\306\307!\x18q\210\310\216\311 \x19\312\216\313\314\315\316\3
  ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
  byte-code("\306\307!\211\x18\211\x19r\310\311!q\210\312 d\313\223)L\210)\3
  ert-run-test([cl-struct-ert-test test-org/end-of-line "Test `org-end
  ert-run-or-rerun-test([cl-struct-ert--stats "\\(org\\|ob\\)" [[cl-st
  ert-run-tests("\\(org\\|ob\\)" #[(event-type &rest event-args) "\306
  ert-run-tests-batch("\\(org\\|ob\\)")
  ert-run-tests-batch-and-exit("\\(org\\|ob\\)")
  (let ((org-id-track-globally t) (org-id-locations-file (convert-stan
  org-test-run-batch-tests()
  call-interactively(org-test-run-batch-tests nil nil)
  command-execute(org-test-run-batch-tests)
  command-line-1(("--eval" "(add-to-list 'load-path \"./lisp\")" "--ev
  command-line()
  normal-top-level()
Test test-org/end-of-line condition:
    (ert-test-failed
     ((should
       (org-test-with-temp-text "* Headline :tag:"
	 (let ... ...)))
      :form
      (let
	  ((temp-buffer ...))
	(with-current-buffer temp-buffer
	  (unwind-protect ... ...)))
      :value nil))
   FAILED  309/326  test-org/end-of-line