Remember to cover the basics, that is, what you expected to happen and
what in fact did happen. You don't know how to make a good report? See
https://orgmode.org/manual/Feedback.html#Feedback
Your bug report will be posted to the Org mailing list.
------------------------------------------------------------------------
I have a link in a text file that looks as follows, in fundamental mode:
5. Contracts: [[docview:~/Documents/Wheaton_condo/landscaping/from
Mark/2019/ALM_landscape_contract_Fall_2018.pdf::1][Landscape]],
[[docview:~/Documents/Wheaton_condo/landscaping/from
Mark/2018/ALM_snow_management_contract_Fall_2018.pdf::1][Snow]]
The path is deliberately wrong in the first link--in order to demonstrate the
error that results. The year "2019" there should be "2018" and then in that
case the link works properly (when the file is set to org-mode); the result of
using the proper link is that the document is shown in a docview buffer.
As is, there is an error thrown & below is the backtrace for it (after
appropriate use of "toggle-debug-on-error")
Debugger entered--Lisp error: (wrong-type-argument listp t)
image-mode-winprops(nil)
image-mode-window-put(page 0 nil)
doc-view-goto-page(1)
org-docview-open("~/Documents/Wheaton_condo/landscaping/from Mark/20..." nil)
org-link-open((link (:type "docview" :path
"~/Documents/Wheaton_condo/landscaping/from Mark/20..." :format bracket
:raw-link "docview:~/Documents/Wheaton_condo/landscaping/from..." :application
nil :search-option nil :begin 1000 :end 1115 :contents-begin 1104 :contents-end
1113 :post-blank 0 :parent (paragraph (:begin 989 :end 1234 :contents-begin 989
:contents-end 1234 :post-blank 0 :post-affiliated 989 :parent (item (:bullet
"5. " :begin 986 :end 1235 :contents-begin 989 :contents-end 1234 :checkbox nil
:counter nil :structure (... ... ... ... ... ... ... ...) :pre-blank 0
:post-blank 1 :post-affiliated 986 :tag nil :parent (plain-list ...))))))) nil)
(cond ((not type) (user-error "No link found")) ((memq type '(comment
comment-block node-property keyword)) (call-interactively
#'org-open-at-point-global)) ((memq type '(headline inlinetask))
(org-match-line org-complex-heading-regexp) (let ((tags-beg (match-beginning
5)) (tags-end (match-end 5))) (if (and tags-beg (>= (point) tags-beg) (<
(point) tags-end)) (org-tags-view arg (save-excursion (let* (... ...)
(buffer-substring ... ...)))) (let* ((val (org-offer-links-in-entry ... ...
arg))) (if (consp val) (let* (...) (if ... ... ...)) nil))))) ((or (eq type
'footnote-reference) (and (eq type 'footnote-definition) (save-excursion
(skip-chars-forward " \11") (let ((begin ...)) (if begin (< ... begin) (= ...
...)))))) (org-footnote-action)) ((and (eq type 'planning) (org-in-regexp
org-ts-regexp-both nil t)) (org-follow-timestamp-link)) ((and (eq type 'clock)
value (>= (point) (org-element-property :begin value)) (<= (point)
(org-element-property :end value))) (org-follow-timestamp-link)) ((eq type
'src-block) (org-babel-open-src-block-result)) ((>= (point) (save-excursion
(goto-char (org-element-property :end context)) (skip-chars-backward " \11")
(point))) (user-error "No link found")) ((eq type 'inline-src-block)
(org-babel-open-src-block-result)) ((eq type 'timestamp)
(org-follow-timestamp-link)) ((eq type 'link) (org-link-open context arg))
((memq type '(citation citation-reference)) (org-cite-follow context arg)) (t
(user-error "No link found")))
(let* ((context (org-element-lineage (org-element-context) '(citation
citation-reference clock comment comment-block footnote-definition
footnote-reference headline inline-src-block inlinetask keyword link
node-property planning src-block timestamp) t)) (type (org-element-type
context)) (value (org-element-property :value context))) (cond ((not type)
(user-error "No link found")) ((memq type '(comment comment-block node-property
keyword)) (call-interactively #'org-open-at-point-global)) ((memq type
'(headline inlinetask)) (org-match-line org-complex-heading-regexp) (let
((tags-beg (match-beginning 5)) (tags-end (match-end 5))) (if (and tags-beg (>=
(point) tags-beg) (< (point) tags-end)) (org-tags-view arg (save-excursion
(let* ... ...))) (let* ((val ...)) (if (consp val) (let* ... ...) nil))))) ((or
(eq type 'footnote-reference) (and (eq type 'footnote-definition)
(save-excursion (skip-chars-forward " \11") (let (...) (if begin ... ...)))))
(org-footnote-action)) ((and (eq type 'planning) (org-in-regexp
org-ts-regexp-both nil t)) (org-follow-timestamp-link)) ((and (eq type 'clock)
value (>= (point) (org-element-property :begin value)) (<= (point)
(org-element-property :end value))) (org-follow-timestamp-link)) ((eq type
'src-block) (org-babel-open-src-block-result)) ((>= (point) (save-excursion
(goto-char (org-element-property :end context)) (skip-chars-backward " \11")
(point))) (user-error "No link found")) ((eq type 'inline-src-block)
(org-babel-open-src-block-result)) ((eq type 'timestamp)
(org-follow-timestamp-link)) ((eq type 'link) (org-link-open context arg))
((memq type '(citation citation-reference)) (org-cite-follow context arg)) (t
(user-error "No link found"))))
(if (run-hook-with-args-until-success 'org-open-at-point-functions) nil (let*
((context (org-element-lineage (org-element-context) '(citation
citation-reference clock comment comment-block footnote-definition
footnote-reference headline inline-src-block inlinetask keyword link
node-property planning src-block timestamp) t)) (type (org-element-type
context)) (value (org-element-property :value context))) (cond ((not type)
(user-error "No link found")) ((memq type '(comment comment-block node-property
keyword)) (call-interactively #'org-open-at-point-global)) ((memq type
'(headline inlinetask)) (org-match-line org-complex-heading-regexp) (let
((tags-beg (match-beginning 5)) (tags-end (match-end 5))) (if (and tags-beg (>=
... tags-beg) (< ... tags-end)) (org-tags-view arg (save-excursion ...)) (let*
(...) (if ... ... nil))))) ((or (eq type 'footnote-reference) (and (eq type
'footnote-definition) (save-excursion (skip-chars-forward " \11") (let ...
...)))) (org-footnote-action)) ((and (eq type 'planning) (org-in-regexp
org-ts-regexp-both nil t)) (org-follow-timestamp-link)) ((and (eq type 'clock)
value (>= (point) (org-element-property :begin value)) (<= (point)
(org-element-property :end value))) (org-follow-timestamp-link)) ((eq type
'src-block) (org-babel-open-src-block-result)) ((>= (point) (save-excursion
(goto-char (org-element-property :end context)) (skip-chars-backward " \11")
(point))) (user-error "No link found")) ((eq type 'inline-src-block)
(org-babel-open-src-block-result)) ((eq type 'timestamp)
(org-follow-timestamp-link)) ((eq type 'link) (org-link-open context arg))
((memq type '(citation citation-reference)) (org-cite-follow context arg)) (t
(user-error "No link found")))))
org-open-at-point(nil)
funcall-interactively(org-open-at-point nil)
call-interactively(org-open-at-point nil nil)
command-execute(org-open-at-point)
I note that in the "org-open-file" function in "org.el" there are the lines:
(when (and (not (eq cmd 'emacs)) ; Emacs has no problems with non-ex files
(not (file-exists-p file))
(not org-open-non-existing-files))
(user-error "No such file: %s" file))
& in the case that I've shown, the check on existence of the file is not done.
If I change things so that existence of the tile is checked, then the error can
be avoided and the warning message is exhibited.
Function "org-docview-open" calls "org-open-file", but the backtrace doesn't
seem to show that.
I had the initial link error occur because I changed the location of the file
so that the files were in sub-directories labelled by year.
Emacs : GNU Emacs 27.1 (build 1, x86_64-apple-darwin18.7.0, NS appkit-1671.60
Version 10.14.6 (Build 18G95))
of 2020-08-12
Package: Org mode version 9.5.2 (9.5.2-gfbff08 @
/Users/alanwehmann/.emacs.d/elpa/org-9.5.2/)
current state:
==============
(setq
org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
org-link-shell-confirm-function 'yes-or-no-p
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-modules '(ol-bbdb ol-bibtex ol-docview ol-eww ol-gnus ol-info ol-irc ol-mhe
ol-rmail ol-w3m ol-vm)
org-mode-hook '(#[0 "\300\301\302\303\304$\207"
[add-hook change-major-mode-hook org-show-all append local]
5]
#[0 "\300\301\302\303\304$\207"
[add-hook change-major-mode-hook org-babel-show-result-all
append local]
5]
org-babel-result-hide-spec org-babel-hide-all-hashes)
org-archive-hook '(org-attach-archive-delete-maybe)
org-confirm-elisp-link-function 'yes-or-no-p
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-metaup-hook '(org-babel-load-in-session-maybe)
org-bibtex-headline-format-function #[257 "\300\236A\207" [:title] 3 "\n\n(fn
ENTRY)"]
org-babel-pre-tangle-hook '(save-buffer)
org-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
org-agenda-loop-over-headlines-in-active-region nil
org-src-lang-modes '(("redis" . redis) ("php" . php) ("arduino" . arduino)
("C" . c) ("C++" . c++) ("asymptote" . asy) ("bash" . sh)
("beamer" . latex) ("calc" . fundamental) ("cpp" . c++)
("ditaa" . artist) ("dot" . fundamental)
("elisp" . emacs-lisp) ("ocaml" . tuareg)
("screen" . shell-script) ("shell" . sh) ("sqlite" . sql))
org-catch-invisible-edits 'show-and-error
org-occur-hook '(org-first-headline-recenter)
org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
org-cycle-show-empty-lines
org-optimize-window-after-visibility-change)
org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate)
org-export-before-parsing-hook '(org-attach-expand-links)
org-confirm-shell-link-function 'yes-or-no-p
org-link-parameters '(("attachment" :follow org-attach-follow :complete
org-attach-complete-link)
("id" :follow org-id-open)
("vm-imap" :follow org-vm-imap-open)
("vm" :follow org-vm-open :store org-vm-store-link)
("w3m" :store org-w3m-store-link)
("rmail" :follow org-rmail-open :store
org-rmail-store-link)
("mhe" :follow org-mhe-open :store org-mhe-store-link)
("irc" :follow org-irc-visit :store org-irc-store-link
:export org-irc-export)
("info" :follow org-info-open :export org-info-export
:store
org-info-store-link)
("gnus" :follow org-gnus-open :store org-gnus-store-link)
("eww" :follow org-eww-open :store org-eww-store-link)
("docview" :follow org-docview-open :export
org-docview-export :store org-docview-store-link)
("bibtex" :follow org-bibtex-open :store
org-bibtex-store-link)
("bbdb" :follow org-bbdb-open :export org-bbdb-export
:complete org-bbdb-complete-link :store
org-bbdb-store-link)
("bookmark-other-win" :follow bookmark-jump-other-window
:export nil)
("bookmark" :follow bookmark-jump :export nil)
("file+sys")
("file+emacs") ("shell" :follow org-link--open-shell)
("news" :follow
#[514 "\301\300\302Q\"\207" ["news" browse-url ":"] 6
"\n\n(fn URL ARG)"]
)
("mailto" :follow
#[514 "\301\300\302Q\"\207" ["mailto" browse-url ":"]
6
"\n\n(fn URL ARG)"]
)
("https" :follow
#[514 "\301\300\302Q\"\207" ["https" browse-url ":"] 6
"\n\n(fn URL ARG)"]
)
("http" :follow
#[514 "\301\300\302Q\"\207" ["http" browse-url ":"] 6
"\n\n(fn URL ARG)"]
)
("ftp" :follow
#[514 "\301\300\302Q\"\207" ["ftp" browse-url ":"] 6
"\n\n(fn URL ARG)"]
)
("help" :follow org-link--open-help :store
org-link--store-help)
("file" :complete org-link-complete-file)
("elisp" :follow org-link--open-elisp))
org-link-elisp-confirm-function 'yes-or-no-p
outline-minor-mode-prefix ""
org-table-copy-increment nil
)
--
Alan Wehmann
alan.wehm...@gmail.com
