From: Carsten Dominik <carsten.dominik@gmail.com>
To: Tim O'Callaghan <tim.ocallaghan@gmail.com>
Cc: org-mode <emacs-orgmode@gnu.org>
Subject: Re: This is probably a misconfiguration rather than a bug, but...
Date: Thu, 2 Sep 2010 17:13:14 +0200 [thread overview]
Message-ID: <E7394086-137C-4092-AF28-8832318D7E99@gmail.com> (raw)
In-Reply-To: <AANLkTikBdMXVLVkXJhv7JXoiuS5OuFGBNULeFUgEHeqF@mail.gmail.com>
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
next prev parent reply other threads:[~2010-09-02 15:19 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-09-02 14:15 This is probably a misconfiguration rather than a bug, but Tim O'Callaghan
2010-09-02 15:13 ` Carsten Dominik [this message]
2010-09-02 15:50 ` Bastien
2010-09-02 19:15 ` David Maus
2010-09-03 0:05 ` Sebastian Rose
2010-09-03 9:01 ` Tim O'Callaghan
2010-09-04 5:06 ` Noorul Islam
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=E7394086-137C-4092-AF28-8832318D7E99@gmail.com \
--to=carsten.dominik@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=tim.ocallaghan@gmail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).