Re: [O] Cannot use C-c c to capture from within some files

[Stefan Strohmeier]

Dear Bernt and everyone else,

> Please provide a backtrace
> 
> (setq debug-on-error t)
> 
> and regenerate the error.  Loading org without compiled elisp (C-u M-x
> org-reload) will give better backtrace details.

This is the backtrace I get when I do a org-reload withtout the compiled elisp:

--------------------Debug On Error Start--------------------
Debugger entered--Lisp error: (file-error "Searching for program" "No such file 
or directory" "git")
  call-process("git" nil t nil "--no-pager" 
"--git-dir=/Users/ianus/MyElisp/Organisation/.git" "symbolic-ref" "-q" "HEAD")
  (zerop (call-process org-git-program nil t nil "--no-pager" (concat 
"--git-dir=" gitdir) "symbolic-ref" "-q" "HEAD"))
  (not (zerop (call-process org-git-program nil t nil "--no-pager" (concat 
"--git-dir=" gitdir) "symbolic-ref" "-q" "HEAD")))
  (if (not (zerop (call-process org-git-program nil t nil "--no-pager" (concat 
"--git-dir=" gitdir) "symbolic-ref" "-q" "HEAD"))) (error "git error: %s " 
(buffer-string)) (goto-char (point-min)) (if (looking-at "^refs/heads/") 
(buffer-substring 12 (1- (point-max)))))
  (progn (if (not (zerop (call-process org-git-program nil t nil "--no-pager" 
(concat "--git-dir=" gitdir) "symbolic-ref" "-q" "HEAD"))) (error "git error: 
%s " (buffer-string)) (goto-char (point-min)) (if (looking-at "^refs/heads/") 
(buffer-substring 12 (1- (point-max))))))
  (unwind-protect (progn (if (not (zerop (call-process org-git-program nil t 
nil "--no-pager" (concat "--git-dir=" gitdir) "symbolic-ref" "-q" "HEAD"))) 
(error "git error: %s " (buffer-string)) (goto-char (point-min)) (if 
(looking-at "^refs/heads/") (buffer-substring 12 (1- (point-max)))))) (and 
(buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (not 
(zerop (call-process org-git-program nil t nil "--no-pager" (concat 
"--git-dir=" gitdir) "symbolic-ref" "-q" "HEAD"))) (error "git error: %s " 
(buffer-string)) (goto-char (point-min)) (if (looking-at "^refs/heads/") 
(buffer-substring 12 (1- (point-max)))))) (and (buffer-name temp-buffer) 
(kill-buffer temp-buffer))))
  (with-current-buffer temp-buffer (unwind-protect (progn (if (not (zerop 
(call-process org-git-program nil t nil "--no-pager" (concat "--git-dir=" 
gitdir) "symbolic-ref" "-q" "HEAD"))) (error "git error: %s " (buffer-string)) 
(goto-char (point-min)) (if (looking-at "^refs/heads/") (buffer-substring 12 
(1- (point-max)))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
  (let ((temp-buffer (generate-new-buffer " *temp*"))) (with-current-buffer 
temp-buffer (unwind-protect (progn (if (not (zerop (call-process 
org-git-program nil t nil "--no-pager" ... "symbolic-ref" "-q" "HEAD"))) (error 
"git error: %s " (buffer-string)) (goto-char (point-min)) (if (looking-at 
"^refs/heads/") (buffer-substring 12 (1- ...))))) (and (buffer-name 
temp-buffer) (kill-buffer temp-buffer)))))
  (with-temp-buffer (if (not (zerop (call-process org-git-program nil t nil 
"--no-pager" (concat "--git-dir=" gitdir) "symbolic-ref" "-q" "HEAD"))) (error 
"git error: %s " (buffer-string)) (goto-char (point-min)) (if (looking-at 
"^refs/heads/") (buffer-substring 12 (1- (point-max))))))
  org-git-get-current-branch("/Users/ianus/MyElisp/Organisation/.git")
  (let* ((gitdir (first (org-git-find-gitdir (file-truename file)))) 
(branchname (org-git-get-current-branch gitdir)) (timestring 
(format-time-string "%Y-%m-%d" (current-time)))) (org-make-link "git:" file 
"::" (org-git-create-searchstring branchname timestring)))
  org-git-create-git-link("~/MyElisp/Organisation/English.org")
  (org-store-link-props :type "git" :link (org-git-create-git-link file))
  (progn (org-store-link-props :type "git" :link (org-git-create-git-link 
file)))
  (if (org-git-gitrepos-p file) (progn (org-store-link-props :type "git" :link 
(org-git-create-git-link file))))
  (when (org-git-gitrepos-p file) (org-store-link-props :type "git" :link 
(org-git-create-git-link file)))
  (let ((file (abbreviate-file-name (buffer-file-name)))) (when 
(org-git-gitrepos-p file) (org-store-link-props :type "git" :link 
(org-git-create-git-link file))))
  (progn (let ((file (abbreviate-file-name (buffer-file-name)))) (when 
(org-git-gitrepos-p file) (org-store-link-props :type "git" :link 
(org-git-create-git-link file)))))
  (if (buffer-file-name) (progn (let ((file (abbreviate-file-name 
(buffer-file-name)))) (when (org-git-gitrepos-p file) (org-store-link-props 
:type "git" :link (org-git-create-git-link file))))))
  (when (buffer-file-name) (let ((file (abbreviate-file-name 
(buffer-file-name)))) (when (org-git-gitrepos-p file) (org-store-link-props 
:type "git" :link (org-git-create-git-link file)))))
  org-git-store-link()
  run-hook-with-args-until-success(org-git-store-link)
  (cond ((run-hook-with-args-until-success (quote org-store-link-functions)) 
(setq link (plist-get org-store-link-plist :link) desc (or (plist-get 
org-store-link-plist :description) link))) ((equal (buffer-name) "*Org Edit Src 
Example*") (let (label gc) (while (or (not label) (save-excursion 
(save-restriction (widen) (goto-char ...) (re-search-forward ... nil t)))) 
(when label (message "Label exists already") (sit-for 2)) (setq label 
(read-string "Code line label: " label))) (end-of-line 1) (setq link (format 
org-coderef-label-format label)) (setq gc (- 79 (length link))) (if (< 
(current-column) gc) (org-move-to-column gc t) (insert " ")) (insert link) 
(setq link (concat "(" label ")") desc nil))) ((equal (org-bound-and-true-p 
org-agenda-buffer-name) (buffer-name)) (let ((m (or (get-text-property (point) 
(quote org-hd-marker)) (get-text-property (point) (quote org-marker))))) (when 
m (org-with-point-at m (setq agenda-link (if (interactive-p) 
(call-interactively ...) (org-store-link nil))))))) ((eq major-mode (quote 
calendar-mode)) (let ((cd (calendar-cursor-to-date))) (setq link 
(format-time-string (car org-time-stamp-formats) (apply (quote encode-time) 
(list 0 0 0 (nth 1 cd) (nth 0 cd) (nth 2 cd) nil nil nil)))) 
(org-store-link-props :type "calendar" :date cd))) ((eq major-mode (quote 
w3-mode)) (setq cpltxt (if (and (buffer-name) (not (string-match "Untitled" 
(buffer-name)))) (buffer-name) (url-view-url t)) link (org-make-link 
(url-view-url t))) (org-store-link-props :type "w3" :url (url-view-url t))) 
((eq major-mode (quote w3m-mode)) (setq cpltxt (or w3m-current-title 
w3m-current-url) link (org-make-link w3m-current-url)) (org-store-link-props 
:type "w3m" :url (url-view-url t))) ((setq search 
(run-hook-with-args-until-success (quote org-create-file-search-functions))) 
(setq link (concat "file:" (abbreviate-file-name buffer-file-name) "::" 
search)) (setq cpltxt (or description link))) ((eq major-mode (quote 
image-mode)) (setq cpltxt (concat "file:" (abbreviate-file-name 
buffer-file-name)) link (org-make-link cpltxt)) (org-store-link-props :type 
"image" :file buffer-file-name)) ((eq major-mode (quote dired-mode)) (let 
((file (dired-get-filename nil t))) (setq file (if file (abbreviate-file-name 
(expand-file-name (dired-get-filename nil t))) default-directory)) (setq cpltxt 
(concat "file:" file) link (org-make-link cpltxt)))) ((and (buffer-file-name 
(buffer-base-buffer)) (org-mode-p)) (setq custom-id (org-entry-get nil 
"CUSTOM_ID")) (cond ((org-in-regexp "<<\\(.*?\\)>>") (setq cpltxt (concat 
"file:" (abbreviate-file-name (buffer-file-name ...)) "::" (match-string 1)) 
link (org-make-link cpltxt))) ((and (featurep (quote org-id)) (or (eq 
org-link-to-org-use-id t) (and (eq org-link-to-org-use-id ...) (interactive-p)) 
(and (eq org-link-to-org-use-id ...) (interactive-p) (not custom-id)) (and 
org-link-to-org-use-id (org-entry-get nil "ID")))) (setq link (condition-case 
nil (prog1 (org-id-store-link) (setq desc ...)) (error (concat "file:" ...))))) 
(t (setq cpltxt (concat "file:" (abbreviate-file-name (buffer-file-name ...)))) 
(when (org-xor org-context-in-file-links arg) (setq txt (cond (... nil) (... 
...) (t nil))) (when (or (null txt) (string-match "\\S-" txt)) (setq cpltxt 
(concat cpltxt "::" ...) desc (or ... "NONE")))) (if (string-match "::\\'" 
cpltxt) (setq cpltxt (substring cpltxt 0 -2))) (setq link (org-make-link 
cpltxt))))) ((buffer-file-name (buffer-base-buffer)) (setq cpltxt (concat 
"file:" (abbreviate-file-name (buffer-file-name (buffer-base-buffer))))) (when 
(org-xor org-context-in-file-links arg) (setq txt (if (org-region-active-p) 
(buffer-substring (region-beginning) (region-end)) (buffer-substring 
(point-at-bol) (point-at-eol)))) (when (string-match "\\S-" txt) (setq cpltxt 
(concat cpltxt "::" (org-make-org-heading-search-string txt)) desc "NONE"))) 
(setq link (org-make-link cpltxt))) ((interactive-p) (error "Cannot link to a 
buffer which is not visiting a file")) (t (setq link nil)))
  (let (link cpltxt desc description search txt custom-id agenda-link) (cond 
((run-hook-with-args-until-success (quote org-store-link-functions)) (setq link 
(plist-get org-store-link-plist :link) desc (or (plist-get org-store-link-plist 
:description) link))) ((equal (buffer-name) "*Org Edit Src Example*") (let 
(label gc) (while (or (not label) (save-excursion (save-restriction ... ... 
...))) (when label (message "Label exists already") (sit-for 2)) (setq label 
(read-string "Code line label: " label))) (end-of-line 1) (setq link (format 
org-coderef-label-format label)) (setq gc (- 79 (length link))) (if (< 
(current-column) gc) (org-move-to-column gc t) (insert " ")) (insert link) 
(setq link (concat "(" label ")") desc nil))) ((equal (org-bound-and-true-p 
org-agenda-buffer-name) (buffer-name)) (let ((m (or (get-text-property ... ...) 
(get-text-property ... ...)))) (when m (org-with-point-at m (setq agenda-link 
(if ... ... ...)))))) ((eq major-mode (quote calendar-mode)) (let ((cd 
(calendar-cursor-to-date))) (setq link (format-time-string (car 
org-time-stamp-formats) (apply (quote encode-time) (list 0 0 0 ... ... ... nil 
nil nil)))) (org-store-link-props :type "calendar" :date cd))) ((eq major-mode 
(quote w3-mode)) (setq cpltxt (if (and (buffer-name) (not (string-match 
"Untitled" ...))) (buffer-name) (url-view-url t)) link (org-make-link 
(url-view-url t))) (org-store-link-props :type "w3" :url (url-view-url t))) 
((eq major-mode (quote w3m-mode)) (setq cpltxt (or w3m-current-title 
w3m-current-url) link (org-make-link w3m-current-url)) (org-store-link-props 
:type "w3m" :url (url-view-url t))) ((setq search 
(run-hook-with-args-until-success (quote org-create-file-search-functions))) 
(setq link (concat "file:" (abbreviate-file-name buffer-file-name) "::" 
search)) (setq cpltxt (or description link))) ((eq major-mode (quote 
image-mode)) (setq cpltxt (concat "file:" (abbreviate-file-name 
buffer-file-name)) link (org-make-link cpltxt)) (org-store-link-props :type 
"image" :file buffer-file-name)) ((eq major-mode (quote dired-mode)) (let 
((file (dired-get-filename nil t))) (setq file (if file (abbreviate-file-name 
(expand-file-name ...)) default-directory)) (setq cpltxt (concat "file:" file) 
link (org-make-link cpltxt)))) ((and (buffer-file-name (buffer-base-buffer)) 
(org-mode-p)) (setq custom-id (org-entry-get nil "CUSTOM_ID")) (cond 
((org-in-regexp "<<\\(.*?\\)>>") (setq cpltxt (concat "file:" 
(abbreviate-file-name ...) "::" (match-string 1)) link (org-make-link cpltxt))) 
((and (featurep (quote org-id)) (or (eq org-link-to-org-use-id t) (and ... ...) 
(and ... ... ...) (and org-link-to-org-use-id ...))) (setq link (condition-case 
nil (prog1 ... ...) (error ...)))) (t (setq cpltxt (concat "file:" 
(abbreviate-file-name ...))) (when (org-xor org-context-in-file-links arg) 
(setq txt (cond ... ... ...)) (when (or ... ...) (setq cpltxt ... desc ...))) 
(if (string-match "::\\'" cpltxt) (setq cpltxt (substring cpltxt 0 -2))) (setq 
link (org-make-link cpltxt))))) ((buffer-file-name (buffer-base-buffer)) (setq 
cpltxt (concat "file:" (abbreviate-file-name (buffer-file-name 
(buffer-base-buffer))))) (when (org-xor org-context-in-file-links arg) (setq 
txt (if (org-region-active-p) (buffer-substring (region-beginning) 
(region-end)) (buffer-substring (point-at-bol) (point-at-eol)))) (when 
(string-match "\\S-" txt) (setq cpltxt (concat cpltxt "::" 
(org-make-org-heading-search-string txt)) desc "NONE"))) (setq link 
(org-make-link cpltxt))) ((interactive-p) (error "Cannot link to a buffer which 
is not visiting a file")) (t (setq link nil))) (if (consp link) (setq cpltxt 
(car link) link (cdr link))) (setq link (or link cpltxt) desc (or desc cpltxt)) 
(if (equal desc "NONE") (setq desc nil)) (if (and (or (interactive-p) 
executing-kbd-macro) link) (progn (setq org-stored-links (cons (list link desc) 
org-stored-links)) (message "Stored: %s" (or desc link)) (when custom-id (setq 
link (concat "file:" (abbreviate-file-name (buffer-file-name)) "::#" 
custom-id)) (setq org-stored-links (cons (list link desc) org-stored-links)))) 
(or agenda-link (and link (org-make-link-string link desc)))))
  (let* ((outline-regexp (org-get-limited-outline-regexp))) (let (link cpltxt 
desc description search txt custom-id agenda-link) (cond 
((run-hook-with-args-until-success (quote org-store-link-functions)) (setq link 
(plist-get org-store-link-plist :link) desc (or (plist-get org-store-link-plist 
:description) link))) ((equal (buffer-name) "*Org Edit Src Example*") (let 
(label gc) (while (or (not label) (save-excursion ...)) (when label (message 
"Label exists already") (sit-for 2)) (setq label (read-string "Code line label: 
" label))) (end-of-line 1) (setq link (format org-coderef-label-format label)) 
(setq gc (- 79 (length link))) (if (< (current-column) gc) (org-move-to-column 
gc t) (insert " ")) (insert link) (setq link (concat "(" label ")") desc nil))) 
((equal (org-bound-and-true-p org-agenda-buffer-name) (buffer-name)) (let ((m 
(or ... ...))) (when m (org-with-point-at m (setq agenda-link ...))))) ((eq 
major-mode (quote calendar-mode)) (let ((cd (calendar-cursor-to-date))) (setq 
link (format-time-string (car org-time-stamp-formats) (apply ... ...))) 
(org-store-link-props :type "calendar" :date cd))) ((eq major-mode (quote 
w3-mode)) (setq cpltxt (if (and (buffer-name) (not ...)) (buffer-name) 
(url-view-url t)) link (org-make-link (url-view-url t))) (org-store-link-props 
:type "w3" :url (url-view-url t))) ((eq major-mode (quote w3m-mode)) (setq 
cpltxt (or w3m-current-title w3m-current-url) link (org-make-link 
w3m-current-url)) (org-store-link-props :type "w3m" :url (url-view-url t))) 
((setq search (run-hook-with-args-until-success (quote 
org-create-file-search-functions))) (setq link (concat "file:" 
(abbreviate-file-name buffer-file-name) "::" search)) (setq cpltxt (or 
description link))) ((eq major-mode (quote image-mode)) (setq cpltxt (concat 
"file:" (abbreviate-file-name buffer-file-name)) link (org-make-link cpltxt)) 
(org-store-link-props :type "image" :file buffer-file-name)) ((eq major-mode 
(quote dired-mode)) (let ((file (dired-get-filename nil t))) (setq file (if 
file (abbreviate-file-name ...) default-directory)) (setq cpltxt (concat 
"file:" file) link (org-make-link cpltxt)))) ((and (buffer-file-name 
(buffer-base-buffer)) (org-mode-p)) (setq custom-id (org-entry-get nil 
"CUSTOM_ID")) (cond ((org-in-regexp "<<\\(.*?\\)>>") (setq cpltxt (concat 
"file:" ... "::" ...) link (org-make-link cpltxt))) ((and (featurep ...) (or 
... ... ... ...)) (setq link (condition-case nil ... ...))) (t (setq cpltxt 
(concat "file:" ...)) (when (org-xor org-context-in-file-links arg) (setq txt 
...) (when ... ...)) (if (string-match "::\\'" cpltxt) (setq cpltxt ...)) (setq 
link (org-make-link cpltxt))))) ((buffer-file-name (buffer-base-buffer)) (setq 
cpltxt (concat "file:" (abbreviate-file-name (buffer-file-name ...)))) (when 
(org-xor org-context-in-file-links arg) (setq txt (if (org-region-active-p) 
(buffer-substring ... ...) (buffer-substring ... ...))) (when (string-match 
"\\S-" txt) (setq cpltxt (concat cpltxt "::" ...) desc "NONE"))) (setq link 
(org-make-link cpltxt))) ((interactive-p) (error "Cannot link to a buffer which 
is not visiting a file")) (t (setq link nil))) (if (consp link) (setq cpltxt 
(car link) link (cdr link))) (setq link (or link cpltxt) desc (or desc cpltxt)) 
(if (equal desc "NONE") (setq desc nil)) (if (and (or (interactive-p) 
executing-kbd-macro) link) (progn (setq org-stored-links (cons (list link desc) 
org-stored-links)) (message "Stored: %s" (or desc link)) (when custom-id (setq 
link (concat "file:" (abbreviate-file-name ...) "::#" custom-id)) (setq 
org-stored-links (cons (list link desc) org-stored-links)))) (or agenda-link 
(and link (org-make-link-string link desc))))))
  (org-with-limited-levels (let (link cpltxt desc description search txt 
custom-id agenda-link) (cond ((run-hook-with-args-until-success (quote 
org-store-link-functions)) (setq link (plist-get org-store-link-plist :link) 
desc (or (plist-get org-store-link-plist :description) link))) ((equal 
(buffer-name) "*Org Edit Src Example*") (let (label gc) (while (or (not label) 
(save-excursion ...)) (when label (message "Label exists already") (sit-for 2)) 
(setq label (read-string "Code line label: " label))) (end-of-line 1) (setq 
link (format org-coderef-label-format label)) (setq gc (- 79 (length link))) 
(if (< (current-column) gc) (org-move-to-column gc t) (insert " ")) (insert 
link) (setq link (concat "(" label ")") desc nil))) ((equal 
(org-bound-and-true-p org-agenda-buffer-name) (buffer-name)) (let ((m (or ... 
...))) (when m (org-with-point-at m (setq agenda-link ...))))) ((eq major-mode 
(quote calendar-mode)) (let ((cd (calendar-cursor-to-date))) (setq link 
(format-time-string (car org-time-stamp-formats) (apply ... ...))) 
(org-store-link-props :type "calendar" :date cd))) ((eq major-mode (quote 
w3-mode)) (setq cpltxt (if (and (buffer-name) (not ...)) (buffer-name) 
(url-view-url t)) link (org-make-link (url-view-url t))) (org-store-link-props 
:type "w3" :url (url-view-url t))) ((eq major-mode (quote w3m-mode)) (setq 
cpltxt (or w3m-current-title w3m-current-url) link (org-make-link 
w3m-current-url)) (org-store-link-props :type "w3m" :url (url-view-url t))) 
((setq search (run-hook-with-args-until-success (quote 
org-create-file-search-functions))) (setq link (concat "file:" 
(abbreviate-file-name buffer-file-name) "::" search)) (setq cpltxt (or 
description link))) ((eq major-mode (quote image-mode)) (setq cpltxt (concat 
"file:" (abbreviate-file-name buffer-file-name)) link (org-make-link cpltxt)) 
(org-store-link-props :type "image" :file buffer-file-name)) ((eq major-mode 
(quote dired-mode)) (let ((file (dired-get-filename nil t))) (setq file (if 
file (abbreviate-file-name ...) default-directory)) (setq cpltxt (concat 
"file:" file) link (org-make-link cpltxt)))) ((and (buffer-file-name 
(buffer-base-buffer)) (org-mode-p)) (setq custom-id (org-entry-get nil 
"CUSTOM_ID")) (cond ((org-in-regexp "<<\\(.*?\\)>>") (setq cpltxt (concat 
"file:" ... "::" ...) link (org-make-link cpltxt))) ((and (featurep ...) (or 
... ... ... ...)) (setq link (condition-case nil ... ...))) (t (setq cpltxt 
(concat "file:" ...)) (when (org-xor org-context-in-file-links arg) (setq txt 
...) (when ... ...)) (if (string-match "::\\'" cpltxt) (setq cpltxt ...)) (setq 
link (org-make-link cpltxt))))) ((buffer-file-name (buffer-base-buffer)) (setq 
cpltxt (concat "file:" (abbreviate-file-name (buffer-file-name ...)))) (when 
(org-xor org-context-in-file-links arg) (setq txt (if (org-region-active-p) 
(buffer-substring ... ...) (buffer-substring ... ...))) (when (string-match 
"\\S-" txt) (setq cpltxt (concat cpltxt "::" ...) desc "NONE"))) (setq link 
(org-make-link cpltxt))) ((interactive-p) (error "Cannot link to a buffer which 
is not visiting a file")) (t (setq link nil))) (if (consp link) (setq cpltxt 
(car link) link (cdr link))) (setq link (or link cpltxt) desc (or desc cpltxt)) 
(if (equal desc "NONE") (setq desc nil)) (if (and (or (interactive-p) 
executing-kbd-macro) link) (progn (setq org-stored-links (cons (list link desc) 
org-stored-links)) (message "Stored: %s" (or desc link)) (when custom-id (setq 
link (concat "file:" (abbreviate-file-name ...) "::#" custom-id)) (setq 
org-stored-links (cons (list link desc) org-stored-links)))) (or agenda-link 
(and link (org-make-link-string link desc))))))
  org-store-link(nil)
  (if (and (boundp (quote org-capture-link-is-already-stored)) 
org-capture-link-is-already-stored) (plist-get org-store-link-plist 
:annotation) (org-store-link nil))
  (let* ((orig-buf (current-buffer)) (annotation (if (and (boundp (quote 
org-capture-link-is-already-stored)) org-capture-link-is-already-stored) 
(plist-get org-store-link-plist :annotation) (org-store-link nil))) (initial 
(and (org-region-active-p) (buffer-substring (point) (mark)))) (entry 
(org-capture-select-template keys))) (when (stringp initial) 
(remove-text-properties 0 (length initial) (quote (read-only t)) initial)) 
(when (stringp annotation) (remove-text-properties 0 (length annotation) (quote 
(read-only t)) annotation)) (cond ((equal entry "C") (customize-variable (quote 
org-capture-templates))) ((equal entry "q") (error "Abort")) (t 
(org-capture-set-plist entry) (org-capture-get-template) (org-capture-put 
:original-buffer orig-buf :original-file (buffer-file-name orig-buf) 
:original-file-nondirectory (and (buffer-file-name orig-buf) 
(file-name-nondirectory (buffer-file-name orig-buf))) :annotation annotation 
:initial initial) (org-capture-put :default-time (or 
org-overriding-default-time (org-current-time))) 
(org-capture-set-target-location) (condition-case error (org-capture-put 
:template (org-capture-fill-template)) ((error quit) (if (get-buffer 
"*Capture*") (kill-buffer "*Capture*")) (error "Capture abort: %s" error))) (if 
(equal goto 0) (org-capture-insert-template-here) (condition-case error 
(org-capture-place-template) ((error quit) (if (and ... ...) (kill-buffer ...)) 
(set-window-configuration (org-capture-get :return-to-wconf)) (error "Capture 
template `%s': %s" (org-capture-get :key) (nth 1 error)))) (if (org-capture-get 
:immediate-finish) (org-capture-finalize nil (not (org-capture-get 
:clock-keep))) (if (and (org-mode-p) (org-capture-get :clock-in)) 
(condition-case nil (progn ... ... ...) (error "Could not start the clock in 
this capture buffer"))))))))
  (cond ((equal goto (quote (4))) (org-capture-goto-target)) ((equal goto 
(quote (16))) (org-capture-goto-last-stored)) (t (let* ((orig-buf 
(current-buffer)) (annotation (if (and (boundp ...) 
org-capture-link-is-already-stored) (plist-get org-store-link-plist 
:annotation) (org-store-link nil))) (initial (and (org-region-active-p) 
(buffer-substring (point) (mark)))) (entry (org-capture-select-template keys))) 
(when (stringp initial) (remove-text-properties 0 (length initial) (quote 
(read-only t)) initial)) (when (stringp annotation) (remove-text-properties 0 
(length annotation) (quote (read-only t)) annotation)) (cond ((equal entry "C") 
(customize-variable (quote org-capture-templates))) ((equal entry "q") (error 
"Abort")) (t (org-capture-set-plist entry) (org-capture-get-template) 
(org-capture-put :original-buffer orig-buf :original-file (buffer-file-name 
orig-buf) :original-file-nondirectory (and (buffer-file-name orig-buf) 
(file-name-nondirectory ...)) :annotation annotation :initial initial) 
(org-capture-put :default-time (or org-overriding-default-time 
(org-current-time))) (org-capture-set-target-location) (condition-case error 
(org-capture-put :template (org-capture-fill-template)) ((error quit) (if ... 
...) (error "Capture abort: %s" error))) (if (equal goto 0) 
(org-capture-insert-template-here) (condition-case error 
(org-capture-place-template) (... ... ... ...)) (if (org-capture-get 
:immediate-finish) (org-capture-finalize nil ...) (if ... ...))))))))
  org-capture(nil)
  call-interactively(org-capture nil nil)
  recursive-edit()
  byte-code("\306      @\307=\203!
--------------------Debug On Error End--------------------


Thanks again for your time.
Stefan