emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Orgmode] This is probably a misconfiguration rather than a bug, but


From: Carsten Dominik
Subject: Re: [Orgmode] This is probably a misconfiguration rather than a bug, but...
Date: Thu, 2 Sep 2010 17:13:14 +0200

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.
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

- Carsten






reply via email to

[Prev in Thread] Current Thread [Next in Thread]