From mboxrd@z Thu Jan 1 00:00:00 1970 From: Sebastian Rose Subject: Re: This is probably a misconfiguration rather than a bug, but... Date: Fri, 03 Sep 2010 02:05:29 +0200 Message-ID: <87hbi7zo6u.fsf@gmx.de> References: Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from [140.186.70.92] (port=47673 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OrJmm-0000l1-Oe for emacs-orgmode@gnu.org; Thu, 02 Sep 2010 20:05:41 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OrJmi-0006tO-Cv for emacs-orgmode@gnu.org; Thu, 02 Sep 2010 20:05:40 -0400 Received: from mailout-de.gmx.net ([213.165.64.23]:46666 helo=mail.gmx.net) by eggs.gnu.org with smtp (Exim 4.69) (envelope-from ) id 1OrJmi-0006t3-1p for emacs-orgmode@gnu.org; Thu, 02 Sep 2010 20:05:36 -0400 In-Reply-To: (Tim O'Callaghan's message of "Thu, 2 Sep 2010 16:15:19 +0200") 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: Tim O'Callaghan Cc: org-mode "Tim O'Callaghan" writes: > 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. If you pull the current Org version, the template menu should be there. Just make sure, your variable `org-protocol-default-template-key' is nil (which is the default since a few hours). We always had the "w" template as the default of that variable for historical reasons. I changed that, since this broke lately and I wanted to avoid dependencies between the different source files (org-capture.el and org-protocol.el in this case). As an aside, the interactive template selection is now on by default (just as long as the above variable is nil). Sebastian > > 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) >