emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Issue with internal links
@ 2019-08-08 16:56 Doyley, Marvin M.
  2019-08-08 20:53 ` Nicolas Goaziou
  2019-08-08 20:54 ` Nick Dokos
  0 siblings, 2 replies; 5+ messages in thread
From: Doyley, Marvin M. @ 2019-08-08 16:56 UTC (permalink / raw)
  To: emacs-orgmode

Hi there,

Whenever I double click on an internal link I get the following error “void-function org-pass-link-to-system”

Does anybody know how to resolve this.

Thanks
M

PS.  Enclosed is the a back trace for a simple file

* Testing
* One
* Two
   [[*Testing]].   (I also tried [[Testing]] and I got the same error)

Debugger entered--Lisp error: (void-function org-pass-link-to-system)
  org-pass-link-to-system("*Testing")
  run-hook-with-args-until-success(org-pass-link-to-system "*Testing")
  (if (run-hook-with-args-until-success 'org-open-link-functions path) nil (if (not arg) (org-mark-ring-push) (switch-to-buffer-other-window (org-get-buffer-for-internal-link (current-buffer)))) (let ((destination (save-excursion (save-restriction (widen) (if (equal type "radio") (org-search-radio-target (org-element-property :path context)) (org-link-search (cond ((equal type '"custom-id") (concat "#" path)) ((equal type '"coderef") (format "(%s)" path)) (t path)) (and (equal type "fuzzy") (+ 2 (org-element-property :begin context))))) (point))))) (if (and (<= (point-min) destination) (>= (point-max) destination)) nil (widen)) (goto-char destination)))
  (cond ((equal type "file") (if (string-match "[*?{]" (file-name-nondirectory path)) (dired path) (let* ((option (org-element-property :search-option context)) (app (org-element-property :application context)) (dedicated-function (org-link-get-parameter (if app (concat type "+" app) type) :follow))) (if dedicated-function (funcall dedicated-function (concat path (and option (concat "::" option)))) (apply (function org-open-file) path (cond (arg) ((equal app "emacs") 'emacs) ((equal app "sys") 'system)) (cond ((not option) nil) ((string-match-p "\\`[0-9]+\\'" option) (list (string-to-number option))) (t (list nil option)))))))) ((functionp (org-link-get-parameter type :follow)) (funcall (org-link-get-parameter type :follow) path)) ((member type '("coderef" "custom-id" "fuzzy" "radio")) (if (run-hook-with-args-until-success 'org-open-link-functions path) nil (if (not arg) (org-mark-ring-push) (switch-to-buffer-other-window (org-get-buffer-for-internal-link (current-buffer)))) (let ((destination (save-excursion (save-restriction (widen) (if (equal type "radio") (org-search-radio-target (org-element-property :path context)) (org-link-search (cond ((equal type '"custom-id") (concat "#" path)) ((equal type '"coderef") (format "(%s)" path)) (t path)) (and (equal type "fuzzy") (+ 2 (org-element-property :begin context))))) (point))))) (if (and (<= (point-min) destination) (>= (point-max) destination)) nil (widen)) (goto-char destination)))) (t (browse-url-at-point)))
  (save-current-buffer (set-buffer (or reference-buffer (current-buffer))) (cond ((equal type "file") (if (string-match "[*?{]" (file-name-nondirectory path)) (dired path) (let* ((option (org-element-property :search-option context)) (app (org-element-property :application context)) (dedicated-function (org-link-get-parameter (if app (concat type "+" app) type) :follow))) (if dedicated-function (funcall dedicated-function (concat path (and option (concat "::" option)))) (apply (function org-open-file) path (cond (arg) ((equal app "emacs") 'emacs) ((equal app "sys") 'system)) (cond ((not option) nil) ((string-match-p "\\`[0-9]+\\'" option) (list (string-to-number option))) (t (list nil option)))))))) ((functionp (org-link-get-parameter type :follow)) (funcall (org-link-get-parameter type :follow) path)) ((member type '("coderef" "custom-id" "fuzzy" "radio")) (if (run-hook-with-args-until-success 'org-open-link-functions path) nil (if (not arg) (org-mark-ring-push) (switch-to-buffer-other-window (org-get-buffer-for-internal-link (current-buffer)))) (let ((destination (save-excursion (save-restriction (widen) (if (equal type "radio") (org-search-radio-target (org-element-property :path context)) (org-link-search (cond ((equal type '"custom-id") (concat "#" path)) ((equal type '"coderef") (format "(%s)" path)) (t path)) (and (equal type "fuzzy") (+ 2 (org-element-property :begin context))))) (point))))) (if (and (<= (point-min) destination) (>= (point-max) destination)) nil (widen)) (goto-char destination)))) (t (browse-url-at-point))))
  (let ((type (org-element-property :type context)) (path (org-element-property :path context))) (save-current-buffer (set-buffer (or reference-buffer (current-buffer))) (cond ((equal type "file") (if (string-match "[*?{]" (file-name-nondirectory path)) (dired path) (let* ((option (org-element-property :search-option context)) (app (org-element-property :application context)) (dedicated-function (org-link-get-parameter (if app (concat type "+" app) type) :follow))) (if dedicated-function (funcall dedicated-function (concat path (and option (concat "::" option)))) (apply (function org-open-file) path (cond (arg) ((equal app "emacs") 'emacs) ((equal app "sys") 'system)) (cond ((not option) nil) ((string-match-p "\\`[0-9]+\\'" option) (list (string-to-number option))) (t (list nil option)))))))) ((functionp (org-link-get-parameter type :follow)) (funcall (org-link-get-parameter type :follow) path)) ((member type '("coderef" "custom-id" "fuzzy" "radio")) (if (run-hook-with-args-until-success 'org-open-link-functions path) nil (if (not arg) (org-mark-ring-push) (switch-to-buffer-other-window (org-get-buffer-for-internal-link (current-buffer)))) (let ((destination (save-excursion (save-restriction (widen) (if (equal type "radio") (org-search-radio-target (org-element-property :path context)) (org-link-search (cond ((equal type '"custom-id") (concat "#" path)) ((equal type '"coderef") (format "(%s)" path)) (t path)) (and (equal type "fuzzy") (+ 2 (org-element-property :begin context))))) (point))))) (if (and (<= (point-min) destination) (>= (point-max) destination)) nil (widen)) (goto-char destination)))) (t (browse-url-at-point)))))
  (cond ((not type) (user-error "No link found")) ((memq type '(comment comment-block node-property keyword)) (call-interactively (function org-open-at-point-global))) ((memq type '(headline inlinetask)) (org-match-line org-complex-heading-regexp) (if (and (match-beginning 5) (>= (point) (match-beginning 5)) (< (point) (match-end 5))) (org-tags-view arg (substring (match-string 5) 0 -1)) (let* ((val (org-offer-links-in-entry (current-buffer) (point) arg))) (if (consp val) (let* ((x195 (car val))) (if (null x195) (progn (require 'org-attach) (org-attach-reveal 'if-exists)) (let* ((x197 (cdr val))) (let ((links-end x197) (links x195)) (let ((--dolist-tail-- (if (stringp links) (list links) links))) (while --dolist-tail-- (let ((link (car --dolist-tail--))) (search-forward link nil links-end) (goto-char (match-beginning 0)) (org-open-at-point) (setq --dolist-tail-- (cdr --dolist-tail--))))))))) nil)))) ((or (eq type 'footnote-reference) (and (eq type 'footnote-definition) (save-excursion (skip-chars-forward " \011") (let ((begin (org-element-property :contents-begin context))) (if begin (< (point) begin) (= (org-element-property :post-affiliated context) (line-beginning-position))))))) (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 " \011") (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) (let ((type (org-element-property :type context)) (path (org-element-property :path context))) (save-current-buffer (set-buffer (or reference-buffer (current-buffer))) (cond ((equal type "file") (if (string-match "[*?{]" (file-name-nondirectory path)) (dired path) (let* ((option (org-element-property :search-option context)) (app (org-element-property :application context)) (dedicated-function (org-link-get-parameter (if app (concat type "+" app) type) :follow))) (if dedicated-function (funcall dedicated-function (concat path (and option (concat "::" option)))) (apply (function org-open-file) path (cond (arg) ((equal app "emacs") 'emacs) ((equal app "sys") 'system)) (cond ((not option) nil) ((string-match-p "\\`[0-9]+\\'" option) (list (string-to-number option))) (t (list nil option)))))))) ((functionp (org-link-get-parameter type :follow)) (funcall (org-link-get-parameter type :follow) path)) ((member type '("coderef" "custom-id" "fuzzy" "radio")) (if (run-hook-with-args-until-success 'org-open-link-functions path) nil (if (not arg) (org-mark-ring-push) (switch-to-buffer-other-window (org-get-buffer-for-internal-link (current-buffer)))) (let ((destination (save-excursion (save-restriction (widen) (if (equal type "radio") (org-search-radio-target (org-element-property :path context)) (org-link-search (cond ((equal type '"custom-id") (concat "#" path)) ((equal type '"coderef") (format "(%s)" path)) (t path)) (and (equal type "fuzzy") (+ 2 (org-element-property :begin context))))) (point))))) (if (and (<= (point-min) destination) (>= (point-max) destination)) nil (widen)) (goto-char destination)))) (t (browse-url-at-point)))))) (t (user-error "No link found")))
  (let* ((context (org-element-lineage (org-element-context) '(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 (function org-open-at-point-global))) ((memq type '(headline inlinetask)) (org-match-line org-complex-heading-regexp) (if (and (match-beginning 5) (>= (point) (match-beginning 5)) (< (point) (match-end 5))) (org-tags-view arg (substring (match-string 5) 0 -1)) (let* ((val (org-offer-links-in-entry (current-buffer) (point) arg))) (if (consp val) (let* ((x195 (car val))) (if (null x195) (progn (require 'org-attach) (org-attach-reveal 'if-exists)) (let* ((x197 (cdr val))) (let ((links-end x197) (links x195)) (let ((--dolist-tail-- (if (stringp links) (list links) links))) (while --dolist-tail-- (let ((link (car --dolist-tail--))) (search-forward link nil links-end) (goto-char (match-beginning 0)) (org-open-at-point) (setq --dolist-tail-- (cdr --dolist-tail--))))))))) nil)))) ((or (eq type 'footnote-reference) (and (eq type 'footnote-definition) (save-excursion (skip-chars-forward " \011") (let ((begin (org-element-property :contents-begin context))) (if begin (< (point) begin) (= (org-element-property :post-affiliated context) (line-beginning-position))))))) (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 " \011") (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) (let ((type (org-element-property :type context)) (path (org-element-property :path context))) (save-current-buffer (set-buffer (or reference-buffer (current-buffer))) (cond ((equal type "file") (if (string-match "[*?{]" (file-name-nondirectory path)) (dired path) (let* ((option (org-element-property :search-option context)) (app (org-element-property :application context)) (dedicated-function (org-link-get-parameter (if app (concat type "+" app) type) :follow))) (if dedicated-function (funcall dedicated-function (concat path (and option (concat "::" option)))) (apply (function org-open-file) path (cond (arg) ((equal app "emacs") 'emacs) ((equal app "sys") 'system)) (cond ((not option) nil) ((string-match-p "\\`[0-9]+\\'" option) (list (string-to-number option))) (t (list nil option)))))))) ((functionp (org-link-get-parameter type :follow)) (funcall (org-link-get-parameter type :follow) path)) ((member type '("coderef" "custom-id" "fuzzy" "radio")) (if (run-hook-with-args-until-success 'org-open-link-functions path) nil (if (not arg) (org-mark-ring-push) (switch-to-buffer-other-window (org-get-buffer-for-internal-link (current-buffer)))) (let ((destination (save-excursion (save-restriction (widen) (if (equal type "radio") (org-search-radio-target (org-element-property :path context)) (org-link-search (cond ((equal type '"custom-id") (concat "#" path)) ((equal type '"coderef") (format "(%s)" path)) (t path)) (and (equal type "fuzzy") (+ 2 (org-element-property :begin context))))) (point))))) (if (and (<= (point-min) destination) (>= (point-max) destination)) nil (widen)) (goto-char destination)))) (t (browse-url-at-point)))))) (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) '(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 (function org-open-at-point-global))) ((memq type '(headline inlinetask)) (org-match-line org-complex-heading-regexp) (if (and (match-beginning 5) (>= (point) (match-beginning 5)) (< (point) (match-end 5))) (org-tags-view arg (substring (match-string 5) 0 -1)) (let* ((val (org-offer-links-in-entry (current-buffer) (point) arg))) (if (consp val) (let* ((x195 (car val))) (if (null x195) (progn (require 'org-attach) (org-attach-reveal 'if-exists)) (let* ((x197 (cdr val))) (let ((links-end x197) (links x195)) (let ((--dolist-tail-- (if (stringp links) (list links) links))) (while --dolist-tail-- (let ((link (car --dolist-tail--))) (search-forward link nil links-end) (goto-char (match-beginning 0)) (org-open-at-point) (setq --dolist-tail-- (cdr --dolist-tail--))))))))) nil)))) ((or (eq type 'footnote-reference) (and (eq type 'footnote-definition) (save-excursion (skip-chars-forward " \011") (let ((begin (org-element-property :contents-begin context))) (if begin (< (point) begin) (= (org-element-property :post-affiliated context) (line-beginning-position))))))) (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 " \011") (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) (let ((type (org-element-property :type context)) (path (org-element-property :path context))) (save-current-buffer (set-buffer (or reference-buffer (current-buffer))) (cond ((equal type "file") (if (string-match "[*?{]" (file-name-nondirectory path)) (dired path) (let* ((option (org-element-property :search-option context)) (app (org-element-property :application context)) (dedicated-function (org-link-get-parameter (if app (concat type "+" app) type) :follow))) (if dedicated-function (funcall dedicated-function (concat path (and option (concat "::" option)))) (apply (function org-open-file) path (cond (arg) ((equal app "emacs") 'emacs) ((equal app "sys") 'system)) (cond ((not option) nil) ((string-match-p "\\`[0-9]+\\'" option) (list (string-to-number option))) (t (list nil option)))))))) ((functionp (org-link-get-parameter type :follow)) (funcall (org-link-get-parameter type :follow) path)) ((member type '("coderef" "custom-id" "fuzzy" "radio")) (if (run-hook-with-args-until-success 'org-open-link-functions path) nil (if (not arg) (org-mark-ring-push) (switch-to-buffer-other-window (org-get-buffer-for-internal-link (current-buffer)))) (let ((destination (save-excursion (save-restriction (widen) (if (equal type "radio") (org-search-radio-target (org-element-property :path context)) (org-link-search (cond ((equal type '"custom-id") (concat "#" path)) ((equal type '"coderef") (format "(%s)" path)) (t path)) (and (equal type "fuzzy") (+ 2 (org-element-property :begin context))))) (point))))) (if (and (<= (point-min) destination) (>= (point-max) destination)) nil (widen)) (goto-char destination)))) (t (browse-url-at-point)))))) (t (user-error "No link found")))))
  org-open-at-point(nil)
  funcall-interactively(org-open-at-point nil)
  call-interactively(org-open-at-point)
  (cond ((or (and (eq 'table (org-element-type context)) (not (eq 'table\.el (org-element-property :type context))) (>= (point) (org-element-property :contents-begin context)) (< (point) (org-element-property :contents-end context))) (org-element-lineage context '(table-row table-cell) t)) (if (or (looking-at-p "[ \011]*$") (save-excursion (skip-chars-backward " \011") (bolp))) (insert "\n") (org-table-justify-field-maybe) (call-interactively (function org-table-next-row)))) ((and org-return-follows-link (or (and (eq 'link (org-element-type context)) (let ((origin (point))) (let ((--mpom (org-element-property :end context))) (save-excursion (if (markerp --mpom) (progn (set-buffer (marker-buffer --mpom)))) (save-excursion (save-restriction (widen) (goto-char (or --mpom (point))) (skip-chars-backward " \011") (> (point) origin))))))) (org-in-regexp org-ts-regexp-both nil t) (org-in-regexp org-tsr-regexp-both nil t) (org-in-regexp org-any-link-re nil t))) (call-interactively (function org-open-at-point))) ((and (not (bolp)) (let ((case-fold-search nil)) (org-match-line org-complex-heading-regexp))) (let ((tags-column (and (match-beginning 5) (save-excursion (goto-char (match-beginning 5)) (current-column)))) (string (if (and (match-end 4) (org-point-in-group (point) 4)) (progn (delete-and-extract-region (point) (match-end 4)))))) (cond ((not (and tags-column string))) (org-auto-align-tags (org-align-tags)) (t (org--align-tags-here tags-column))) (end-of-line) (org-show-entry) (if indent (newline-and-indent) (newline)) (if string (progn (save-excursion (insert (org-trim string))))))) ((and indent (not (eolp)) (org-element-lineage context '(item))) (let ((trailing-data (delete-and-extract-region (point) (line-end-position)))) (newline-and-indent) (save-excursion (insert trailing-data)))) (t (let ((auto-fill-function (and (not (org-at-property-p)) auto-fill-function))) (if indent (newline-and-indent) (newline)))))
  (let ((context (if org-return-follows-link (org-element-context) (org-element-at-point)))) (cond ((or (and (eq 'table (org-element-type context)) (not (eq 'table\.el (org-element-property :type context))) (>= (point) (org-element-property :contents-begin context)) (< (point) (org-element-property :contents-end context))) (org-element-lineage context '(table-row table-cell) t)) (if (or (looking-at-p "[ \011]*$") (save-excursion (skip-chars-backward " \011") (bolp))) (insert "\n") (org-table-justify-field-maybe) (call-interactively (function org-table-next-row)))) ((and org-return-follows-link (or (and (eq 'link (org-element-type context)) (let ((origin (point))) (let ((--mpom (org-element-property :end context))) (save-excursion (if (markerp --mpom) (progn (set-buffer (marker-buffer --mpom)))) (save-excursion (save-restriction (widen) (goto-char (or --mpom (point))) (skip-chars-backward " \011") (> (point) origin))))))) (org-in-regexp org-ts-regexp-both nil t) (org-in-regexp org-tsr-regexp-both nil t) (org-in-regexp org-any-link-re nil t))) (call-interactively (function org-open-at-point))) ((and (not (bolp)) (let ((case-fold-search nil)) (org-match-line org-complex-heading-regexp))) (let ((tags-column (and (match-beginning 5) (save-excursion (goto-char (match-beginning 5)) (current-column)))) (string (if (and (match-end 4) (org-point-in-group (point) 4)) (progn (delete-and-extract-region (point) (match-end 4)))))) (cond ((not (and tags-column string))) (org-auto-align-tags (org-align-tags)) (t (org--align-tags-here tags-column))) (end-of-line) (org-show-entry) (if indent (newline-and-indent) (newline)) (if string (progn (save-excursion (insert (org-trim string))))))) ((and indent (not (eolp)) (org-element-lineage context '(item))) (let ((trailing-data (delete-and-extract-region (point) (line-end-position)))) (newline-and-indent) (save-excursion (insert trailing-data)))) (t (let ((auto-fill-function (and (not (org-at-property-p)) auto-fill-function))) (if indent (newline-and-indent) (newline))))))
  org-return()
  funcall-interactively(org-return)
  call-interactively(org-return nil nil)
  command-execute(org-return)


^ permalink raw reply	[flat|nested] 5+ messages in thread

* Re: Issue with internal links
  2019-08-08 16:56 Issue with internal links Doyley, Marvin M.
@ 2019-08-08 20:53 ` Nicolas Goaziou
  2019-08-10  0:16   ` Doyley, Marvin M.
  2019-08-08 20:54 ` Nick Dokos
  1 sibling, 1 reply; 5+ messages in thread
From: Nicolas Goaziou @ 2019-08-08 20:53 UTC (permalink / raw)
  To: Doyley, Marvin M.; +Cc: emacs-orgmode

Hello,

"Doyley, Marvin M." <m.doyley@rochester.edu> writes:

> Whenever I double click on an internal link I get the following error
> “void-function org-pass-link-to-system”

The function above doesn't exist in Org base. You may want to
investigate on whatever is adding it to `org-open-link-functions'.

Regards,

-- 
Nicolas Goaziou

^ permalink raw reply	[flat|nested] 5+ messages in thread

* Re: Issue with internal links
  2019-08-08 16:56 Issue with internal links Doyley, Marvin M.
  2019-08-08 20:53 ` Nicolas Goaziou
@ 2019-08-08 20:54 ` Nick Dokos
  1 sibling, 0 replies; 5+ messages in thread
From: Nick Dokos @ 2019-08-08 20:54 UTC (permalink / raw)
  To: emacs-orgmode

"Doyley, Marvin M." <m.doyley@rochester.edu> writes:

>
> * Testing
> * One
> * Two
>    [[*Testing]].   (I also tried [[Testing]] and I got the same error)
>
> Debugger entered--Lisp error: (void-function org-pass-link-to-system)
>   org-pass-link-to-system("*Testing")
>   run-hook-with-args-until-success(org-pass-link-to-system "*Testing")
>   (if (run-hook-with-args-until-success 'org-open-link-functions path) ....

org-pass-link-to-system is not a function defined by org mode, AFAICT.
The fact that it's the value of the org-open-link-functions hook reinforces
my belief that at some point in the past, you had defined this function
somewhere and you had included it in the hook; perhaps you lost the function
after an upgrade or a disk failure or ... who knows?

The value of org-open-link-functions is nil in my case, so I'd recommend
you try setting it to that:

     (setq org-open-link-functions nil)

and try following the link. If that works to your satisfaction, then
find the place in your init file or customizations file where
org-pass-link-to-system is added to org-open-link-functions and get
rid of it. Then restart emacs.

HTH.
-- 
Nick

"There are only two hard problems in computer science: cache
invalidation, naming things, and off-by-one errors." -Martin Fowler

^ permalink raw reply	[flat|nested] 5+ messages in thread

* Re: Issue with internal links
  2019-08-08 20:53 ` Nicolas Goaziou
@ 2019-08-10  0:16   ` Doyley, Marvin M.
  2019-08-10  2:03     ` Tim Cross
  0 siblings, 1 reply; 5+ messages in thread
From: Doyley, Marvin M. @ 2019-08-10  0:16 UTC (permalink / raw)
  To: Nicolas Goaziou; +Cc: emacs-orgmode, Doyley, Marvin M.

Hi Nicolas,

(add-hook 'org-open-link-functions t)
Fixed the problem.

Thanks
M

> On Aug 8, 2019, at 4:53 PM, Nicolas Goaziou <mail@nicolasgoaziou.fr> wrote:
> 
> Hello,
> 
> "Doyley, Marvin M." <m.doyley@rochester.edu> writes:
> 
>> Whenever I double click on an internal link I get the following error
>> “void-function org-pass-link-to-system”
> 
> The function above doesn't exist in Org base. You may want to
> investigate on whatever is adding it to `org-open-link-functions'.
> 
> Regards,
> 
> -- 
> Nicolas Goaziou


^ permalink raw reply	[flat|nested] 5+ messages in thread

* Re: Issue with internal links
  2019-08-10  0:16   ` Doyley, Marvin M.
@ 2019-08-10  2:03     ` Tim Cross
  0 siblings, 0 replies; 5+ messages in thread
From: Tim Cross @ 2019-08-10  2:03 UTC (permalink / raw)
  To: emacs-orgmode; +Cc: Doyley, Marvin M., Nicolas Goaziou

Hi Marvin,

while what you have done may have fixed your error, I don't think it is
a correct fix. It could cause other issues and is an example of one of
those 'fixes' which will likely cause more subtle and difficult to
identify issues. 

The 'org-open-lin-functions is supposed to be either nil or a list of
functions which take a single argument. What you have done is add t to
that list. This likely works as t evaluates to itself, but I think it
will completely break org's handling of [[link text]] style links
because when org runs this hook, it will always return t, telling org
that your custom functions have handled it. You may have tested your fix
and found that it looked like it worked, but note the details in the doc
string for that hook. i.e.

"They will be called for links that look like [[link text][description]]
when LINK TEXT does not have a protocol like "http:" and does not look
like a filename (e.g. "./blue.png")"

Your original error is due to something in your config adding a function
to that hook which does not exist. What you need to do is either define
that function (or find it's definition) or remove it from your config
i.e. remove the add-hook line which adds the function.

Note that the default setting is nil i.e. most installations probably
don't have anything in this hook unless they have some special url
format or they have added a package which provides custom url
handling. If you found the line and just changed the function name to t
as a fix, you can safely just remove the line completely. 

HTH

Tim

Doyley, Marvin M. <m.doyley@rochester.edu> writes:

> Hi Nicolas,
>
> (add-hook 'org-open-link-functions t)
> Fixed the problem.
>
> Thanks
> M
>
>> On Aug 8, 2019, at 4:53 PM, Nicolas Goaziou <mail@nicolasgoaziou.fr> wrote:
>> 
>> Hello,
>> 
>> "Doyley, Marvin M." <m.doyley@rochester.edu> writes:
>> 
>>> Whenever I double click on an internal link I get the following error
>>> “void-function org-pass-link-to-system”
>> 
>> The function above doesn't exist in Org base. You may want to
>> investigate on whatever is adding it to `org-open-link-functions'.
>> 
>> Regards,
>> 
>> -- 
>> Nicolas Goaziou


-- 
Tim Cross

^ permalink raw reply	[flat|nested] 5+ messages in thread

end of thread, other threads:[~2019-08-10  2:03 UTC | newest]

Thread overview: 5+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2019-08-08 16:56 Issue with internal links Doyley, Marvin M.
2019-08-08 20:53 ` Nicolas Goaziou
2019-08-10  0:16   ` Doyley, Marvin M.
2019-08-10  2:03     ` Tim Cross
2019-08-08 20:54 ` Nick Dokos

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).