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: Sebastian Rose
Subject: Re: [Orgmode] This is probably a misconfiguration rather than a bug, but...
Date: Fri, 03 Sep 2010 02:05:29 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.0.50 (gnu/linux)

"Tim O'Callaghan" <address@hidden> 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)
>



reply via email to

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