Using org-store-link in an indirect buffer

Using org-store-link in an indirect buffer

[William Henney]

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

Re: Using org-store-link in an indirect buffer

[Carsten Dominik]

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