emacs-orgmode
[Top][All Lists]
Advanced

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

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


From: Tim O'Callaghan
Subject: [Orgmode] This is probably a misconfiguration rather than a bug, but...
Date: Thu, 2 Sep 2010 16:15:19 +0200

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)



reply via email to

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