Function: org-export--stack-source-at-point

org-export--stack-source-at-point is a byte-compiled function defined in ox.el.gz.

Signature

(org-export--stack-source-at-point)

Documentation

Return source from export results at point in stack.

Source Code

;; Defined in /usr/src/emacs/lisp/org/ox.el.gz
(defun org-export--stack-source-at-point ()
  "Return source from export results at point in stack."
  (let ((source (car (nth (1- (org-current-line)) org-export-stack-contents))))
    (if (not source) (error "Source unavailable, please refresh buffer")
      (let ((source-name (if (stringp source) source (buffer-name source))))
	(if (save-excursion
	      (forward-line 0)
	      (looking-at-p (concat ".* +" (regexp-quote source-name) "$")))
	    source
	  ;; SOURCE is not consistent with current line.  The stack
	  ;; view is outdated.
	  (error (substitute-command-keys
		  "Source unavailable; type `\\[org-export-stack-refresh]' \
to refresh buffer")))))))