Function: org-link--file-link-to-here

org-link--file-link-to-here is a byte-compiled function defined in ol.el.gz.

Signature

(org-link--file-link-to-here)

Documentation

Return as (LINK . DESC) a file link with search string to here.

Source Code

;; Defined in /usr/src/emacs/lisp/org/ol.el.gz
(defun org-link--file-link-to-here ()
  "Return as (LINK . DESC) a file link with search string to here."
  (let ((link (concat "file:"
                      (abbreviate-file-name
                       (buffer-file-name (buffer-base-buffer)))))
        desc)
    (when org-link-context-for-files
      (pcase (org-link-precise-link-target)
        (`nil nil)
        (`(,search-string ,search-desc ,_position)
         (setq link (format "%s::%s" link search-string))
         (setq desc search-desc))))
    (cons link desc)))