From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Tim O'Callaghan" Subject: This is probably a misconfiguration rather than a bug, but... Date: Thu, 2 Sep 2010 16:15:19 +0200 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Return-path: Received: from [140.186.70.92] (port=34791 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OrAZr-000883-5N for emacs-orgmode@gnu.org; Thu, 02 Sep 2010 10:15:45 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OrAZo-0000kp-Vv for emacs-orgmode@gnu.org; Thu, 02 Sep 2010 10:15:42 -0400 Received: from mail-gx0-f169.google.com ([209.85.161.169]:53514) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OrAZo-0000kN-TP for emacs-orgmode@gnu.org; Thu, 02 Sep 2010 10:15:40 -0400 Received: by gxk9 with SMTP id 9so272807gxk.0 for ; Thu, 02 Sep 2010 07:15:39 -0700 (PDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: org-mode 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)