Looks like a bug in org-git-store-link....
- Carsten
On Sep 2, 2010, at 4:15 PM, Tim O'Callaghan wrote:
When i try and use org-capture in a buffer, it fails to display the
template menu, and it generates the backtrace below.
It works for org files, but not for some other files.
Tim.
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
directory-file-name(nil)
(file-name-directory (directory-file-name dirpath))
(let ((dirname ...) (basename ...)) (list dirname basename))
org-git-split-dirpath(nil)
(let ((dirlist ...)) (when (string= ... "") (throw ... nil)) (setq
dir (first dirlist) relpath (concat ... relpath)))
(while (not (file-exists-p ...)) (let (...) (when ... ...) (setq dir
... relpath ...)))
(catch (quote toplevel) (while (not ...) (let ... ... ...)) (list
(expand-file-name ".git" dir) relpath))
(let ((dir ...) (relpath ...)) (catch (quote toplevel) (while ...
...) (list ... relpath)))
org-git-gitrepos-p("~/.dotfiles/zemacsen/site-lisp/policy-switch.el")
(if (org-git-gitrepos-p file) (progn (org-store-link-props :type
"git" :link ...)))
(when (org-git-gitrepos-p file) (org-store-link-props :type "git"
:link (org-git-create-git-link file)))
(let ((file ...)) (when (org-git-gitrepos-p file)
(org-store-link-props :type "git" :link ...)))
(progn (let (...) (when ... ...)))
(if (buffer-file-name) (progn (let ... ...)))
(when (buffer-file-name) (let (...) (when ... ...)))
org-git-store-link()
run-hook-with-args-until-success(org-git-store-link)
(cond ((run-hook-with-args-until-success ...) (setq link ... desc
...)) ((equal ... "*Org Edit Src Example*") (let ... ... ... ... ...
... ... ...)) ((equal ... ...) (let ... ...)) ((eq major-mode ...)
(let ... ... ...)) ((eq major-mode ...) (setq cpltxt ... link ...)
(org-store-link-props :type "w3" :url ...)) ((eq major-mode ...) (setq
cpltxt ... link ...) (org-store-link-props :type "w3m" :url ...))
((setq search ...) (setq link ...) (setq cpltxt ...)) ((eq major-mode
...) (setq cpltxt ... link ...) (org-store-link-props :type "image"
:file buffer-file-name)) ((eq major-mode ...) (let ... ... ...)) ((and
... ...) (setq custom-id ...) (cond ... ... ...)) ((buffer-file-name
...) (setq cpltxt ...) (when ... ... ...) (setq link ...))
((interactive-p) (error "Cannot link to a buffer which is not visiting
a file")) (t (setq link nil)))
(let ((outline-regexp ...) link cpltxt desc description search txt
custom-id agenda-link) (cond (... ...) (... ...) (... ...) (... ...)
(... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ...) (...
... ...) (... ... ... ...) (... ...) (t ...)) (if (consp link) (setq
cpltxt ... link ...)) (setq link (or link cpltxt) desc (or desc
cpltxt)) (if (equal desc "NONE") (setq desc nil)) (if (and ... link)
(progn ... ... ...) (or agenda-link ...)))
org-store-link(nil)
(if (and (boundp ...) org-capture-link-is-already-stored) (plist-get
org-store-link-plist :annotation) (org-store-link nil))
(let* ((orig-buf ...) (annotation ...) (initial ...) (entry ...))
(when initial (remove-text-properties 0 ... ... initial)) (when
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)
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
- Carsten
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
