Fixed, thanks.
- Carsten
On Sep 6, 2007, at 17:22, William Henney wrote:
Currently, one cannot use org-store-link in an indirect buffer. The
stack trace is given below. Would it be possible to fix this?
Cheers
Will
Debugger entered--Lisp error: (error "Cannot link to a buffer which is
not visiting a file")
signal(error ("Cannot link to a buffer which is not visiting a
file"))
error("Cannot link to a buffer which is not visiting a file")
(cond ((run-hook-with-args-until-success ...) (setq link ... desc
...)) ((eq major-mode ...) (let ... ... ...)) ((eq major-mode ...)
(setq link ...) (setq cpltxt ...) (org-store-link-props :type "info"
:file Info-current-file :node Info-current-node)) ((eq major-mode ...)
(let ... ... ...)) ((or ... ...) (and ... ...)
(vm-follow-summary-cursor) (save-excursion ... ...)) ((eq major-mode
...) (let* ... ... ... ... ...)) ((or ... ...) (let ... ... ... ...))
((eq major-mode ...) (save-excursion ...)) ((eq major-mode ...) (let
... ... ... ...)) ((memq major-mode ...) (and ... ...) (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 ...) (setq cpltxt ... link
...)) ((and buffer-file-name ...) (setq cpltxt ...) (when ... ...) (if
... ...) (setq link ...)) (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 (link cpltxt desc description search txt) (cond (... ...) (...
...) (... ... ... ...) (... ...) (... ... ... ...) (... ...) (... ...)
(... ...) (... ...) (... ... ...) (... ... ...) (... ... ...) (... ...
...) (... ... ...) (... ...) (... ... ... ... ...) (buffer-file-name
... ... ...) (... ...) (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 ... ...) (and
link ...)))
org-store-link(nil)
call-interactively(org-store-link)
execute-extended-command(nil)
call-interactively(execute-extended-command)
--
Dr William Henney, Centro de Radioastronomía y Astrofísica,
Universidad Nacional Autónoma de México, Campus Morelia
_______________________________________________
Emacs-orgmode mailing list
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
--
Carsten Dominik
Sterrenkundig Instituut "Anton Pannekoek"
Universiteit van Amsterdam
Kruislaan 403
NL-1098SJ Amsterdam
phone: +31 20 525 7477
_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
