From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bernt Hansen Subject: Re: Cannot use C-c c to capture from within some files Date: Tue, 19 Apr 2011 14:13:01 -0400 Message-ID: <87k4eqhzyq.fsf@norang.ca> References: <87zknm6u2w.fsf@norang.ca> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([140.186.70.92]:48079) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QCFQD-0002jO-JR for emacs-orgmode@gnu.org; Tue, 19 Apr 2011 14:13:11 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QCFQB-0002cy-58 for emacs-orgmode@gnu.org; Tue, 19 Apr 2011 14:13:09 -0400 Received: from mho-02-ewr.mailhop.org ([204.13.248.72]:31509) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QCFQB-0002cu-19 for emacs-orgmode@gnu.org; Tue, 19 Apr 2011 14:13:07 -0400 In-Reply-To: (Stefan Strohmeier's message of "Tue, 19 Apr 2011 19:55:32 +0200") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Stefan Strohmeier Cc: emacs-orgmode@gnu.org Hi Stefan, It looks like your capture session is trying to create a git link and can't find the 'git' program. I assume you are using contrib/org-git-link.el. I personally have no experience with this package. Can you provide details of the capture template you are using when you get this error? Is 'git' in your PATH for emacs (can Emacs find it?) Does this same template work okay in the agenda? You may need to customize org-git-program if 'git' isn't available in your default path for Emacs. I don't use a Mac so we may need some Mac users to chime in here for assistance. Regards, Bernt Stefan Strohmeier writes: > 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