Using org-store-link in an indirect buffer

["William Henney" <whenney@gmail.com>]

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