When opening a link to an elisp file like the one below, emacs displays a
warning "Warning (org-element): ‘org-element-at-point’ cannot be used in
non-Org buffer #<buffer ol.el> (emacs-lisp-mode)", and it fails to jump to
the matching line.
[[file:~/src/org-mode/lisp/ol.el::(let ((element (org-element-at-point)))]]
The backtrace:
--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (error "rx ‘**’ range error")
error("rx `%s' range error" **)
rx--translate-bounded-repetition(** (1 0 "*"))
rx--translate-**((1 0 "*"))
rx--translate-form((** 1 0 "*"))
rx--translate((** 1 0 "*"))
rx--translate-seq((line-start (** 1 0 "*") " "))
rx--translate-form((seq line-start (** 1 0 "*") " "))
rx--translate((seq line-start (** 1 0 "*") " "))
rx-to-string((seq line-start (** 1 0 "*") " "))
(let ((re (rx-to-string (if no-bol (cons 'seq (cons (cons ... ...) '...))
(cons 'seq (cons 'line-start (cons ... ...))))))) (if no-bol (setq
org--headline-re-cache-no-bol (plist-put org--headline-re-cache-no-bol
true-level re)) (setq org--headline-re-cache-bol (plist-put
org--headline-re-cache-bol true-level re))) re)
(or (plist-get (if no-bol org--headline-re-cache-no-bol
org--headline-re-cache-bol) true-level) (let ((re (rx-to-string (if no-bol
(cons 'seq (cons ... ...)) (cons 'seq (cons ... ...)))))) (if no-bol (setq
org--headline-re-cache-no-bol (plist-put org--headline-re-cache-no-bol
true-level re)) (setq org--headline-re-cache-bol (plist-put
org--headline-re-cache-bol true-level re))) re))
org-headline-re(0)
(re-search-forward (org-headline-re true-level) nil t)
(if (re-search-forward (org-headline-re true-level) nil t)
(line-beginning-position) (point-max))
(save-excursion (if (re-search-forward (org-headline-re true-level) nil t)
(line-beginning-position) (point-max)))
(let* ((deferred-title-prop (if raw-secondary-p
org-element--headline-parse-title-raw org-element--headline-parse-title-parse))
(begin (point)) (true-level (skip-chars-forward "*")) (end (save-excursion (if
(re-search-forward (org-headline-re true-level) nil t)
(line-beginning-position) (point-max)))) (contents-begin (save-excursion
(forward-line) (skip-chars-forward " \15\11\n" end) (and (not (= (point) end))
(line-beginning-position)))) (contents-end (and contents-begin end))
(robust-begin (if contents-begin (progn (if (< (+ 2 contents-begin)
contents-end) (progn (+ 2 contents-begin)))))) (robust-end (and robust-begin
end))) (org-element-create 'headline (list :begin begin :end end :pre-blank (if
(not contents-begin) 0 (1- (count-lines begin contents-begin))) :contents-begin
contents-begin :contents-end contents-end :robust-begin robust-begin
:robust-end robust-end :true-level true-level :buffer (current-buffer)
:raw-value deferred-title-prop :title deferred-title-prop :level
deferred-title-prop :priority deferred-title-prop :tags deferred-title-prop
:todo-keyword deferred-title-prop :todo-type deferred-title-prop :post-blank
(if contents-end 0 (1- (count-lines begin end))) :footnote-section-p
deferred-title-prop :archivedp deferred-title-prop :commentedp
deferred-title-prop :post-affiliated begin :secondary (alist-get 'headline
org-element-secondary-value-alist) :deferred org-element--headline-deferred)))
(save-excursion (let* ((deferred-title-prop (if raw-secondary-p
org-element--headline-parse-title-raw org-element--headline-parse-title-parse))
(begin (point)) (true-level (skip-chars-forward "*")) (end (save-excursion (if
(re-search-forward (org-headline-re true-level) nil t)
(line-beginning-position) (point-max)))) (contents-begin (save-excursion
(forward-line) (skip-chars-forward " \15\11\n" end) (and (not (= ... end))
(line-beginning-position)))) (contents-end (and contents-begin end))
(robust-begin (if contents-begin (progn (if (< ... contents-end) (progn
...))))) (robust-end (and robust-begin end))) (org-element-create 'headline
(list :begin begin :end end :pre-blank (if (not contents-begin) 0 (1-
(count-lines begin contents-begin))) :contents-begin contents-begin
:contents-end contents-end :robust-begin robust-begin :robust-end robust-end
:true-level true-level :buffer (current-buffer) :raw-value deferred-title-prop
:title deferred-title-prop :level deferred-title-prop :priority
deferred-title-prop :tags deferred-title-prop :todo-keyword deferred-title-prop
:todo-type deferred-title-prop :post-blank (if contents-end 0 (1- (count-lines
begin end))) :footnote-section-p deferred-title-prop :archivedp
deferred-title-prop :commentedp deferred-title-prop :post-affiliated begin
:secondary (alist-get 'headline org-element-secondary-value-alist) :deferred
org-element--headline-deferred))))
org-element-headline-parser(nil fast)
(setq element (org-element-headline-parser nil 'fast))
(progn (setq element (org-element-headline-parser nil 'fast)) (if (eq
(org-element-type element t) 'plain-text) (org-add-props element nil :parent
org-element--headline-parent-deferred) (let ((parray (or (let* (...) (cond ...
... ...)) (let (...) (if ... nil ... ... ... parray))))) (if parray (progn
(aset parray 17 org-element--headline-parent-deferred))) element)) (setq mode
'planning) (forward-line))
(if (re-search-backward (org-get-limited-outline-regexp t) nil 'move) (progn
(setq element (org-element-headline-parser nil 'fast)) (if (eq
(org-element-type element t) 'plain-text) (org-add-props element nil :parent
org-element--headline-parent-deferred) (let ((parray (or (let* ... ...) (let
... ...)))) (if parray (progn (aset parray 17
org-element--headline-parent-deferred))) element)) (setq mode 'planning)
(forward-line)) (setq element (org-element-org-data-parser)) (setq mode
'org-data))
(cond ((and (not cached) (org-element--cache-active-p)) (setq element
(org-element-org-data-parser)) (if (org-element-begin element) nil (let*
((format-string (format "Error parsing org-data. Got %S\nPlease report to Org
mode mailing list (M-x org-submit-bug-report)." element)) (format-string (if
(or ... ...) format-string (prog1 ... ...)))) (if (and (boundp 'org-batch-test)
org-batch-test) (error "%s" (concat "org-element--cache: " format-string))
(setq org--warnings (cons (concat "org-element--cache: " format-string)
org--warnings)) (display-warning '(org-element org-element-cache) (concat
"org-element--cache: " format-string))))) (if (or
org-element--cache-diagnostics (eq org-element--cache-self-verify 'backtrace))
(progn (let* ((msg (concat ... ...))) (if org-element--cache-diagnostics
(display-warning '... msg) (if org-element--cache-diagnostics-ring nil (setq
org-element--cache-diagnostics-ring ...)) (ring-insert
org-element--cache-diagnostics-ring msg))))) (org-element--cache-put element)
(goto-char (org-element-contents-begin element)) (setq mode 'org-data)) ((not
cached) (forward-line 1) (if (re-search-backward
(org-get-limited-outline-regexp t) nil 'move) (progn (setq element
(org-element-headline-parser nil 'fast)) (if (eq (org-element-type element t)
'plain-text) (org-add-props element nil :parent
org-element--headline-parent-deferred) (let ((parray ...)) (if parray (progn
...)) element)) (setq mode 'planning) (forward-line)) (setq element
(org-element-org-data-parser)) (setq mode 'org-data)) (org-skip-whitespace)
(forward-line 0)) (t (let ((up cached) (pos (if (= (point-max) pos) (1- pos)
pos))) (while (and up (<= (org-element-end up) pos)) (progn (setq next
(org-element-end up)) (setq element up) (setq mode (org-element--next-mode (let
... ...) (org-element-type element) nil)) (setq up (let (...) (let* ...
...))))) (if next (progn (goto-char next))) (if up (progn (setq element up))))))
(let* ((cached (and (org-element--cache-active-p) (org-element--cache-find
pos nil))) (mode (let ((idx (or 7 7))) (let* ((parray (and t ...))) (if parray
(let* (...) (if ... ... ...)) (let* (...) (cond ... ... ...)))))) element next)
(cond ((and (not cached) (org-element--cache-active-p)) (setq element
(org-element-org-data-parser)) (if (org-element-begin element) nil (let*
((format-string (format "Error parsing org-data. Got %S\nPlease report to Org
mode mailing list (M-x org-submit-bug-report)." element)) (format-string (if
... format-string ...))) (if (and (boundp ...) org-batch-test) (error "%s"
(concat "org-element--cache: " format-string)) (setq org--warnings (cons ...
org--warnings)) (display-warning '... (concat "org-element--cache: "
format-string))))) (if (or org-element--cache-diagnostics (eq
org-element--cache-self-verify 'backtrace)) (progn (let* ((msg ...)) (if
org-element--cache-diagnostics (display-warning ... msg) (if
org-element--cache-diagnostics-ring nil ...) (ring-insert
org-element--cache-diagnostics-ring msg))))) (org-element--cache-put element)
(goto-char (org-element-contents-begin element)) (setq mode 'org-data)) ((not
cached) (forward-line 1) (if (re-search-backward
(org-get-limited-outline-regexp t) nil 'move) (progn (setq element
(org-element-headline-parser nil 'fast)) (if (eq (org-element-type element t)
'plain-text) (org-add-props element nil :parent
org-element--headline-parent-deferred) (let (...) (if parray ...) element))
(setq mode 'planning) (forward-line)) (setq element
(org-element-org-data-parser)) (setq mode 'org-data)) (org-skip-whitespace)
(forward-line 0)) (t (let ((up cached) (pos (if (= ... pos) (1- pos) pos)))
(while (and up (<= (org-element-end up) pos)) (progn (setq next
(org-element-end up)) (setq element up) (setq mode (org-element--next-mode ...
... nil)) (setq up (let ... ...)))) (if next (progn (goto-char next))) (if up
(progn (setq element up)))))) (let ((end (or (org-element-end element)
(point-max))) (parent (let ((idx (or 17 17))) (let* ((parray ...)) (if parray
(let* ... ...) (let* ... ...)))))) (while t (if (org-element--cache-interrupt-p
time-limit) (progn (throw 'org-element--cache-interrupt nil))) (if (and
inhibit-quit org-element--cache-interrupt-C-g quit-flag) (progn (if quit-flag
(progn (setq org-element--cache-interrupt-C-g-count ...) (setq quit-flag nil)))
(if (>= org-element--cache-interrupt-C-g-count
org-element--cache-interrupt-C-g-max-count) (progn (setq quit-flag t) (setq
org-element--cache-interrupt-C-g-count 0) (org-element-cache-reset) (error
"org-element: Parsing aborted by user. Cache has been cleared.\nIf you observe
Emacs hangs frequently, please report this to Org mode mailing list (M-x
org-submit-bug-report)"))) (message (substitute-command-keys
"`org-element--parse-to': Suppressed `\\[keyboard-quit]'. Press
`\\[keyboard-quit]' %d more times to force interruption.") (-
org-element--cache-interrupt-C-g-max-count
org-element--cache-interrupt-C-g-count)))) (if element nil (if (save-excursion
(org-skip-whitespace) (eobp)) nil (if (>= end (point)) nil (let* (... ...) (if
... ... ... ...))) (let ((s ...)) (if (and s ...) (progn ...)) (setq element
(org-element--current-element end ... mode s)))) (if element (setq element (or
(org-element--cache-put element) element)) (throw 'exit parent)) (if (or parent
(not (org-element--cache-active-p))) nil (let* ((format-string ...)
(format-string ...)) (if (and ... org-batch-test) (error "%s" ...) (setq
org--warnings ...) (display-warning ... ...)))) (if (eq (org-element-type
element t) 'plain-text) (org-add-props element nil :parent parent) (let
((parray ...)) (if parray (progn ...)) element))) (let ((elem-end
(org-element-end element)) (type (org-element-type element))) (cond ((and (<=
elem-end pos) (not ...)) (goto-char elem-end) (if (eq type ...) (progn ...))
(setq mode (org-element--next-mode mode type nil))) ((not (memq type
org-element-greater-elements)) (throw 'exit (if syncp parent element))) ((let
(... ...) (if ... ...))) (t (throw 'exit (if syncp parent element))))) (setq
element nil))))
(save-restriction (widen) (goto-char pos) (save-excursion (forward-line 1)
(skip-chars-backward " \15\11\n") (if (bobp) (progn (throw 'exit nil)))) (let*
((cached (and (org-element--cache-active-p) (org-element--cache-find pos nil)))
(mode (let ((idx (or 7 7))) (let* ((parray ...)) (if parray (let* ... ...)
(let* ... ...))))) element next) (cond ((and (not cached)
(org-element--cache-active-p)) (setq element (org-element-org-data-parser)) (if
(org-element-begin element) nil (let* ((format-string ...) (format-string ...))
(if (and ... org-batch-test) (error "%s" ...) (setq org--warnings ...)
(display-warning ... ...)))) (if (or org-element--cache-diagnostics (eq
org-element--cache-self-verify 'backtrace)) (progn (let* (...) (if
org-element--cache-diagnostics ... ... ...)))) (org-element--cache-put element)
(goto-char (org-element-contents-begin element)) (setq mode 'org-data)) ((not
cached) (forward-line 1) (if (re-search-backward
(org-get-limited-outline-regexp t) nil 'move) (progn (setq element
(org-element-headline-parser nil ...)) (if (eq ... ...) (org-add-props element
nil :parent org-element--headline-parent-deferred) (let ... ... element)) (setq
mode 'planning) (forward-line)) (setq element (org-element-org-data-parser))
(setq mode 'org-data)) (org-skip-whitespace) (forward-line 0)) (t (let ((up
cached) (pos (if ... ... pos))) (while (and up (<= ... pos)) (progn (setq next
...) (setq element up) (setq mode ...) (setq up ...))) (if next (progn
(goto-char next))) (if up (progn (setq element up)))))) (let ((end (or
(org-element-end element) (point-max))) (parent (let ((idx ...)) (let* (...)
(if parray ... ...))))) (while t (if (org-element--cache-interrupt-p
time-limit) (progn (throw 'org-element--cache-interrupt nil))) (if (and
inhibit-quit org-element--cache-interrupt-C-g quit-flag) (progn (if quit-flag
(progn ... ...)) (if (>= org-element--cache-interrupt-C-g-count
org-element--cache-interrupt-C-g-max-count) (progn ... ... ... ...)) (message
(substitute-command-keys "`org-element--parse-to': Suppressed
`\\[keyboard-quit]'. Press `\\[keyboard-quit]' %d more times to force
interruption.") (- org-element--cache-interrupt-C-g-max-count
org-element--cache-interrupt-C-g-count)))) (if element nil (if (save-excursion
(org-skip-whitespace) (eobp)) nil (if (>= end ...) nil (let* ... ...)) (let
(...) (if ... ...) (setq element ...))) (if element (setq element (or ...
element)) (throw 'exit parent)) (if (or parent (not ...)) nil (let* (... ...)
(if ... ... ... ...))) (if (eq (org-element-type element t) 'plain-text)
(org-add-props element nil :parent parent) (let (...) (if parray ...)
element))) (let ((elem-end (org-element-end element)) (type (org-element-type
element))) (cond ((and ... ...) (goto-char elem-end) (if ... ...) (setq mode
...)) ((not ...) (throw ... ...)) ((let ... ...)) (t (throw ... ...)))) (setq
element nil)))))
(save-excursion (save-restriction (widen) (goto-char pos) (save-excursion
(forward-line 1) (skip-chars-backward " \15\11\n") (if (bobp) (progn (throw
'exit nil)))) (let* ((cached (and (org-element--cache-active-p)
(org-element--cache-find pos nil))) (mode (let ((idx ...)) (let* (...) (if
parray ... ...)))) element next) (cond ((and (not cached)
(org-element--cache-active-p)) (setq element (org-element-org-data-parser)) (if
(org-element-begin element) nil (let* (... ...) (if ... ... ... ...))) (if (or
org-element--cache-diagnostics (eq org-element--cache-self-verify ...)) (progn
(let* ... ...))) (org-element--cache-put element) (goto-char
(org-element-contents-begin element)) (setq mode 'org-data)) ((not cached)
(forward-line 1) (if (re-search-backward (org-get-limited-outline-regexp t) nil
'move) (progn (setq element ...) (if ... ... ...) (setq mode ...)
(forward-line)) (setq element (org-element-org-data-parser)) (setq mode
'org-data)) (org-skip-whitespace) (forward-line 0)) (t (let ((up cached) (pos
...)) (while (and up ...) (progn ... ... ... ...)) (if next (progn ...)) (if up
(progn ...))))) (let ((end (or (org-element-end element) (point-max))) (parent
(let (...) (let* ... ...)))) (while t (if (org-element--cache-interrupt-p
time-limit) (progn (throw ... nil))) (if (and inhibit-quit
org-element--cache-interrupt-C-g quit-flag) (progn (if quit-flag ...) (if ...
...) (message ... ...))) (if element nil (if (save-excursion ... ...) nil (if
... nil ...) (let ... ... ...)) (if element (setq element ...) (throw ...
parent)) (if (or parent ...) nil (let* ... ...)) (if (eq ... ...)
(org-add-props element nil :parent parent) (let ... ... element))) (let
((elem-end ...) (type ...)) (cond (... ... ... ...) (... ...) (...) (t ...)))
(setq element nil))))))
(save-current-buffer (set-buffer (or (buffer-base-buffer nil) (or nil
(current-buffer)))) (save-excursion (save-restriction (widen) (goto-char pos)
(save-excursion (forward-line 1) (skip-chars-backward " \15\11\n") (if (bobp)
(progn (throw 'exit nil)))) (let* ((cached (and (org-element--cache-active-p)
(org-element--cache-find pos nil))) (mode (let (...) (let* ... ...))) element
next) (cond ((and (not cached) (org-element--cache-active-p)) (setq element
(org-element-org-data-parser)) (if (org-element-begin element) nil (let* ...
...)) (if (or org-element--cache-diagnostics ...) (progn ...))
(org-element--cache-put element) (goto-char (org-element-contents-begin
element)) (setq mode 'org-data)) ((not cached) (forward-line 1) (if
(re-search-backward ... nil ...) (progn ... ... ... ...) (setq element ...)
(setq mode ...)) (org-skip-whitespace) (forward-line 0)) (t (let (... ...)
(while ... ...) (if next ...) (if up ...)))) (let ((end (or ... ...)) (parent
(let ... ...))) (while t (if (org-element--cache-interrupt-p time-limit) (progn
...)) (if (and inhibit-quit org-element--cache-interrupt-C-g quit-flag) (progn
... ... ...)) (if element nil (if ... nil ... ...) (if element ... ...) (if ...
nil ...) (if ... ... ...)) (let (... ...) (cond ... ... ... ...)) (setq element
nil)))))))
(catch 'exit (save-current-buffer (set-buffer (or (buffer-base-buffer nil)
(or nil (current-buffer)))) (save-excursion (save-restriction (widen)
(goto-char pos) (save-excursion (forward-line 1) (skip-chars-backward "
\15\11\n") (if (bobp) (progn (throw ... nil)))) (let* ((cached (and ... ...))
(mode (let ... ...)) element next) (cond ((and ... ...) (setq element ...) (if
... nil ...) (if ... ...) (org-element--cache-put element) (goto-char ...)
(setq mode ...)) ((not cached) (forward-line 1) (if ... ... ... ...)
(org-skip-whitespace) (forward-line 0)) (t (let ... ... ... ...))) (let ((end
...) (parent ...)) (while t (if ... ...) (if ... ...) (if element nil ... ...
... ...) (let ... ...) (setq element nil))))))))
org-element--parse-to(74982)
(condition-case err (org-element--parse-to epom) ((debug error)
(save-current-buffer (let* ((format-string (format "Org parser error in %s::%S.
Resetting.\n The error was: %S\n Backtrace:\n%S\n Please report this to Org
mode mailing list (M-x org-submit-bug-report)." (buffer-name ...) epom err (if
... ...))) (format-string (if (or ... ...) format-string (prog1 ... ...)))) (if
(and (boundp 'org-batch-test) org-batch-test) (error "%s" (concat
"org-element--cache: " format-string)) (setq org--warnings (cons (concat
"org-element--cache: " format-string) org--warnings)) (display-warning
'(org-element org-element-cache) (concat "org-element--cache: "
format-string))))) (org-element-cache-reset) (org-element--parse-to epom)))
(if cached-only (if (and (org-element--cache-active-p) (or (not
org-element--cache-sync-requests) (< epom (aref (car
org-element--cache-sync-requests) 1)))) (progn (org-element--cache-find epom)))
(condition-case err (org-element--parse-to epom) ((debug error)
(save-current-buffer (let* ((format-string (format "Org parser error in %s::%S.
Resetting.\n The error was: %S\n Backtrace:\n%S\n Please report this to Org
mode mailing list (M-x org-submit-bug-report)." ... epom err ...))
(format-string (if ... format-string ...))) (if (and (boundp ...)
org-batch-test) (error "%s" (concat "org-element--cache: " format-string))
(setq org--warnings (cons ... org--warnings)) (display-warning '... (concat
"org-element--cache: " format-string))))) (org-element-cache-reset)
(org-element--parse-to epom))))
(setq element (if cached-only (if (and (org-element--cache-active-p) (or (not
org-element--cache-sync-requests) (< epom (aref (car
org-element--cache-sync-requests) 1)))) (progn (org-element--cache-find epom)))
(condition-case err (org-element--parse-to epom) ((debug error)
(save-current-buffer (let* ((format-string ...) (format-string ...)) (if (and
... org-batch-test) (error "%s" ...) (setq org--warnings ...) (display-warning
... ...)))) (org-element-cache-reset) (org-element--parse-to epom)))))
(let (element) (if (org-element--cache-active-p) (progn (if (not
(save-current-buffer (set-buffer (or ... ...)) org-element--cache))
(org-element-cache-reset) (if cached-only nil (org-element--cache-sync
(current-buffer) epom))))) (setq element (if cached-only (if (and
(org-element--cache-active-p) (or (not org-element--cache-sync-requests) (<
epom (aref ... 1)))) (progn (org-element--cache-find epom))) (condition-case
err (org-element--parse-to epom) ((debug error) (save-current-buffer (let* (...
...) (if ... ... ... ...))) (org-element-cache-reset) (org-element--parse-to
epom))))) (if (and (org-element--cache-active-p) element
(org-element--cache-verify-element element)) (progn (setq element
(org-element--parse-to epom)))) (if (eq (org-element-type element t) 'org-data)
nil (if (and cached-only (not (and element (or (= epom ...) (and ... ... ...)
(and ... ... ...) (and ... ... ...))))) nil (if (not (eq (org-element-type
element t) 'section)) element (org-element-at-point (1+ epom) cached-only)))))
(save-restriction (widen) (goto-char (or --mepom (point))) (if
(derived-mode-p 'org-mode) nil (display-warning '(org-element
org-element-parser) (format-message "`org-element-at-point' cannot be used in
non-Org buffer %S (%s)" (current-buffer) major-mode))) (if (and cached-only
(memq this-command org-element--cache-non-modifying-commands)) (progn (setq
cached-only nil))) (let (element) (if (org-element--cache-active-p) (progn (if
(not (save-current-buffer (set-buffer ...) org-element--cache))
(org-element-cache-reset) (if cached-only nil (org-element--cache-sync
(current-buffer) epom))))) (setq element (if cached-only (if (and
(org-element--cache-active-p) (or (not org-element--cache-sync-requests) (<
epom ...))) (progn (org-element--cache-find epom))) (condition-case err
(org-element--parse-to epom) ((debug error) (save-current-buffer (let* ...
...)) (org-element-cache-reset) (org-element--parse-to epom))))) (if (and
(org-element--cache-active-p) element (org-element--cache-verify-element
element)) (progn (setq element (org-element--parse-to epom)))) (if (eq
(org-element-type element t) 'org-data) nil (if (and cached-only (not (and
element (or ... ... ... ...)))) nil (if (not (eq (org-element-type element t)
'section)) element (org-element-at-point (1+ epom) cached-only))))))
(save-excursion (save-restriction (widen) (goto-char (or --mepom (point)))
(if (derived-mode-p 'org-mode) nil (display-warning '(org-element
org-element-parser) (format-message "`org-element-at-point' cannot be used in
non-Org buffer %S (%s)" (current-buffer) major-mode))) (if (and cached-only
(memq this-command org-element--cache-non-modifying-commands)) (progn (setq
cached-only nil))) (let (element) (if (org-element--cache-active-p) (progn (if
(not (save-current-buffer ... org-element--cache)) (org-element-cache-reset)
(if cached-only nil (org-element--cache-sync ... epom))))) (setq element (if
cached-only (if (and (org-element--cache-active-p) (or ... ...)) (progn
(org-element--cache-find epom))) (condition-case err (org-element--parse-to
epom) ((debug error) (save-current-buffer ...) (org-element-cache-reset)
(org-element--parse-to epom))))) (if (and (org-element--cache-active-p) element
(org-element--cache-verify-element element)) (progn (setq element
(org-element--parse-to epom)))) (if (eq (org-element-type element t) 'org-data)
nil (if (and cached-only (not (and element ...))) nil (if (not (eq ... ...))
element (org-element-at-point (1+ epom) cached-only)))))))
(save-excursion (cond ((markerp --mepom) (set-buffer (marker-buffer
--mepom))) ((numberp --mepom)) (t (if (let ((idx (or 14 14))) (let* ((parray
...)) (if parray (let* ... ...) (let* ... ...)))) (progn (set-buffer (let (...)
(let* ... ...))))) (setq --mepom (let ((idx (or 0 0))) (let* ((parray ...)) (if
parray (let* ... ...) (let* ... ...))))))) (save-excursion (save-restriction
(widen) (goto-char (or --mepom (point))) (if (derived-mode-p 'org-mode) nil
(display-warning '(org-element org-element-parser) (format-message
"`org-element-at-point' cannot be used in non-Org buffer %S (%s)"
(current-buffer) major-mode))) (if (and cached-only (memq this-command
org-element--cache-non-modifying-commands)) (progn (setq cached-only nil)))
(let (element) (if (org-element--cache-active-p) (progn (if (not ...)
(org-element-cache-reset) (if cached-only nil ...)))) (setq element (if
cached-only (if (and ... ...) (progn ...)) (condition-case err
(org-element--parse-to epom) (... ... ... ...)))) (if (and
(org-element--cache-active-p) element (org-element--cache-verify-element
element)) (progn (setq element (org-element--parse-to epom)))) (if (eq
(org-element-type element t) 'org-data) nil (if (and cached-only (not ...)) nil
(if (not ...) element (org-element-at-point ... cached-only))))))))
(let ((--mepom epom)) (save-excursion (cond ((markerp --mepom) (set-buffer
(marker-buffer --mepom))) ((numberp --mepom)) (t (if (let ((idx ...)) (let*
(...) (if parray ... ...))) (progn (set-buffer (let ... ...)))) (setq --mepom
(let ((idx ...)) (let* (...) (if parray ... ...)))))) (save-excursion
(save-restriction (widen) (goto-char (or --mepom (point))) (if (derived-mode-p
'org-mode) nil (display-warning '(org-element org-element-parser)
(format-message "`org-element-at-point' cannot be used in non-Org buffer %S
(%s)" (current-buffer) major-mode))) (if (and cached-only (memq this-command
org-element--cache-non-modifying-commands)) (progn (setq cached-only nil)))
(let (element) (if (org-element--cache-active-p) (progn (if ... ... ...)))
(setq element (if cached-only (if ... ...) (condition-case err ... ...))) (if
(and (org-element--cache-active-p) element (org-element--cache-verify-element
element)) (progn (setq element ...))) (if (eq (org-element-type element t)
'org-data) nil (if (and cached-only ...) nil (if ... element ...))))))))
(if (org-element-type epom t) epom (setq epom (or epom (point))) (let
((--mepom epom)) (save-excursion (cond ((markerp --mepom) (set-buffer
(marker-buffer --mepom))) ((numberp --mepom)) (t (if (let (...) (let* ... ...))
(progn (set-buffer ...))) (setq --mepom (let (...) (let* ... ...)))))
(save-excursion (save-restriction (widen) (goto-char (or --mepom (point))) (if
(derived-mode-p 'org-mode) nil (display-warning '... (format-message
"`org-element-at-point' cannot be used in non-Org buffer %S (%s)" ...
major-mode))) (if (and cached-only (memq this-command
org-element--cache-non-modifying-commands)) (progn (setq cached-only nil)))
(let (element) (if (org-element--cache-active-p) (progn ...)) (setq element (if
cached-only ... ...)) (if (and ... element ...) (progn ...)) (if (eq ... ...)
nil (if ... nil ...))))))))
org-element-at-point()
(let ((element (org-element-at-point))) (if (and (memq (org-element-type
element t) '(example-block src-block)) (org-match-line (concat ".*?"
(org-src-coderef-regexp (org-src-coderef-format element) coderef)))) (progn
(setq type 'dedicated) (goto-char (match-beginning 2)) (throw :coderef-match
nil))))
(while (re-search-forward re nil t) (let ((element (org-element-at-point)))
(if (and (memq (org-element-type element t) '(example-block src-block))
(org-match-line (concat ".*?" (org-src-coderef-regexp (org-src-coderef-format
element) coderef)))) (progn (setq type 'dedicated) (goto-char (match-beginning
2)) (throw :coderef-match nil)))))
(catch :coderef-match (while (re-search-forward re nil t) (let ((element
(org-element-at-point))) (if (and (memq (org-element-type element t)
'(example-block src-block)) (org-match-line (concat ".*?"
(org-src-coderef-regexp ... coderef)))) (progn (setq type 'dedicated)
(goto-char (match-beginning 2)) (throw :coderef-match nil))))) (goto-char
origin) (error "No match for coderef: %s" coderef))
(let ((coderef (match-string-no-properties 1 normalized)) (re (substring
s-single-re 1 -1))) (goto-char (point-min)) (catch :coderef-match (while
(re-search-forward re nil t) (let ((element (org-element-at-point))) (if (and
(memq (org-element-type element t) '...) (org-match-line (concat ".*?" ...)))
(progn (setq type 'dedicated) (goto-char (match-beginning 2)) (throw
:coderef-match nil))))) (goto-char origin) (error "No match for coderef: %s"
coderef)))
(cond ((run-hook-with-args-until-success 'org-execute-file-search-functions
s)) ((eq (string-to-char s) 35) (let* ((id (substring normalized 1)) (match
(org-find-property "CUSTOM_ID" id))) (if match (progn (goto-char match) (setq
type 'dedicated)) (error "No match for custom ID: %s" id)))) ((string-match
"\\`(\\(.*\\))\\'" normalized) (let ((coderef (match-string-no-properties 1
normalized)) (re (substring s-single-re 1 -1))) (goto-char (point-min)) (catch
:coderef-match (while (re-search-forward re nil t) (let ((element ...)) (if
(and ... ...) (progn ... ... ...)))) (goto-char origin) (error "No match for
coderef: %s" coderef)))) ((string-match "\\`/\\(.*\\)/\\'" normalized) (funcall
(if (derived-mode-p 'org-mode) #'org-occur #'org-do-occur) (match-string 1 s)))
((and (not starred) (let ((target (format "<<%s>>" s-multi-re))) (catch
:target-match (goto-char (point-min)) (while (re-search-forward target nil t)
(forward-char (- ...)) (let (...) (if ... ...))) nil)))) ((and (not starred)
(let ((name (format "^[ \11]*#\\+NAME: +%s[ \11]*$" s-single-re))) (catch
:name-match (goto-char (point-min)) (while (re-search-forward name nil t) (let*
(... ...) (if ... ...))) nil)))) ((and (derived-mode-p 'org-mode)
(org-link--search-headlines words)) (forward-line 0) (setq type 'dedicated))
((and (derived-mode-p 'org-mode) (org-link--search-headlines words
'ignore-pipes)) (forward-line 0) (setq type 'dedicated)) ((and (derived-mode-p
'org-mode) (eq org-link-search-must-match-exact-headline 'query-to-create)
(yes-or-no-p "No match - create this as a new heading? ")) (let* ((container-ok
(and new-heading-container (memq (org-element-type new-heading-container t)
'...))) (new-heading-position (if container-ok (- (org-element-end
new-heading-container) 1) (point-max))) (new-heading-level (if container-ok (+
1 (org-element--property :level new-heading-container nil nil)) 1))) (if (and
(<= (point-min) new-heading-position) (>= (point-max) new-heading-position))
nil (widen)) (goto-char new-heading-position) (if (bolp) nil (newline))
(org-insert-heading nil t new-heading-level) (insert (if starred (substring s
1) s) "\n") (forward-line -1))) ((and (derived-mode-p 'org-mode) (or starred
org-link-search-must-match-exact-headline)) (goto-char origin) (error "No match
for fuzzy expression: %s" normalized)) ((catch :fuzzy-match (goto-char
(point-min)) (while (re-search-forward s-multi-re nil t) (if (or (and avoid-pos
(<= ... avoid-pos) (> ... avoid-pos)) (and (let ... ...) (match-beginning 3)
(or ... ...) (org-element-lineage ... ... t))) nil (goto-char (match-beginning
0)) (setq type 'fuzzy) (throw :fuzzy-match t))) nil)) (t (goto-char origin)
(error "No match for fuzzy expression: %s" normalized)))
(let* ((case-fold-search t) (origin (point)) (normalized
(replace-regexp-in-string "\n[ \11]*" " " s)) (starred (eq (string-to-char
normalized) 42)) (words (split-string (if starred (substring s 1) s)))
(s-multi-re (mapconcat #'regexp-quote words "\\(?:[ \11\n]+\\)")) (s-single-re
(mapconcat #'regexp-quote words "[ \11]+")) type) (cond
((run-hook-with-args-until-success 'org-execute-file-search-functions s)) ((eq
(string-to-char s) 35) (let* ((id (substring normalized 1)) (match
(org-find-property "CUSTOM_ID" id))) (if match (progn (goto-char match) (setq
type 'dedicated)) (error "No match for custom ID: %s" id)))) ((string-match
"\\`(\\(.*\\))\\'" normalized) (let ((coderef (match-string-no-properties 1
normalized)) (re (substring s-single-re 1 -1))) (goto-char (point-min)) (catch
:coderef-match (while (re-search-forward re nil t) (let (...) (if ... ...)))
(goto-char origin) (error "No match for coderef: %s" coderef)))) ((string-match
"\\`/\\(.*\\)/\\'" normalized) (funcall (if (derived-mode-p 'org-mode)
#'org-occur #'org-do-occur) (match-string 1 s))) ((and (not starred) (let
((target (format "<<%s>>" s-multi-re))) (catch :target-match (goto-char
(point-min)) (while (re-search-forward target nil t) (forward-char ...) (let
... ...)) nil)))) ((and (not starred) (let ((name (format "^[ \11]*#\\+NAME:
+%s[ \11]*$" s-single-re))) (catch :name-match (goto-char (point-min)) (while
(re-search-forward name nil t) (let* ... ...)) nil)))) ((and (derived-mode-p
'org-mode) (org-link--search-headlines words)) (forward-line 0) (setq type
'dedicated)) ((and (derived-mode-p 'org-mode) (org-link--search-headlines words
'ignore-pipes)) (forward-line 0) (setq type 'dedicated)) ((and (derived-mode-p
'org-mode) (eq org-link-search-must-match-exact-headline 'query-to-create)
(yes-or-no-p "No match - create this as a new heading? ")) (let* ((container-ok
(and new-heading-container (memq ... ...))) (new-heading-position (if
container-ok (- ... 1) (point-max))) (new-heading-level (if container-ok (+ 1
...) 1))) (if (and (<= (point-min) new-heading-position) (>= (point-max)
new-heading-position)) nil (widen)) (goto-char new-heading-position) (if (bolp)
nil (newline)) (org-insert-heading nil t new-heading-level) (insert (if starred
(substring s 1) s) "\n") (forward-line -1))) ((and (derived-mode-p 'org-mode)
(or starred org-link-search-must-match-exact-headline)) (goto-char origin)
(error "No match for fuzzy expression: %s" normalized)) ((catch :fuzzy-match
(goto-char (point-min)) (while (re-search-forward s-multi-re nil t) (if (or
(and avoid-pos ... ...) (and ... ... ... ...)) nil (goto-char (match-beginning
0)) (setq type 'fuzzy) (throw :fuzzy-match t))) nil)) (t (goto-char origin)
(error "No match for fuzzy expression: %s" normalized))) (if (and
(derived-mode-p 'org-mode) (not stealth)) (progn (org-fold-show-context
'link-search))) type)
org-link-search("(let ((element (org-element-at-point)))")
(condition-case err (org-link-search search) (error (funcall
save-position-maybe) (error "%s" (error-message-string err))))
(cond (line (org-goto-line line) (if (derived-mode-p 'org-mode) (progn
(org-fold-reveal)))) (search (condition-case err (org-link-search search)
(error (funcall save-position-maybe) (error "%s" (error-message-string err))))))
(cond ((org-string-nw-p cmd) (setq cmd (org--open-file-format-command cmd
file link link-match-data)) (let ((wconfig (current-window-configuration)))
(unwind-protect (progn (message "Running %s...done" cmd) (let
((process-connection-type nil)) (start-process-shell-command cmd nil cmd)) (and
(boundp 'org-wait) (numberp org-wait) (sit-for org-wait)))
(set-window-configuration wconfig)))) ((or (stringp cmd) (eq cmd 'emacs))
(funcall (org-link-frame-setup-function 'file) file) (widen) (cond (line
(org-goto-line line) (if (derived-mode-p 'org-mode) (progn (org-fold-reveal))))
(search (condition-case err (org-link-search search) (error (funcall
save-position-maybe) (error "%s" (error-message-string err))))))) ((functionp
cmd) (let ((saved-match-data (match-data))) (unwind-protect (progn
(set-match-data link-match-data) (condition-case nil (funcall cmd file link)
((debug wrong-number-of-arguments wrong-type-argument invalid-function)
(user-error "Please see Org News for version 9.0 about `org-file-apps'--Lisp
error: %S" cmd)))) (set-match-data saved-match-data t)))) ((consp cmd)
(user-error "Please see Org News for version 9.0 about `org-file-apps'--Error:
Deprecated usage of %S" cmd)) (t (funcall (org-link-frame-setup-function 'file)
file)))
(let* ((file (if (equal path "") buffer-file-name (substitute-in-file-name
(expand-file-name path)))) (file-apps (append org-file-apps
(org--file-default-apps))) (apps (cl-remove-if #'org--file-apps-entry-locator-p
file-apps)) (apps-locator (cl-remove-if-not #'org--file-apps-entry-locator-p
file-apps)) (remp (and (assq 'remote apps) (file-remote-p file))) (dirp (if
remp nil (file-directory-p file))) (file (if (and dirp
org-open-directory-means-index-dot-org) (concat (file-name-as-directory file)
"index.org") file)) (a-m-a-p (assq 'auto-mode apps)) (dfile (downcase file))
(link (cond (line (concat file "::" (number-to-string line))) (search (concat
file "::" search)) (t file))) (ext (and (string-match
"\\`.*?\\.\\([a-zA-Z0-9]+\\(\\.gz\\)?\\)\\'" dfile) (match-string 1 dfile)))
(save-position-maybe (let ((old-buffer (current-buffer)) (old-pos (point))
(old-mode major-mode)) #'(lambda nil (and (derived-mode-p ...) (eq old-mode
...) (or ... ...) (org-mark-ring-push old-pos old-buffer))))) cmd
link-match-data) (cond ((member in-emacs '((16) system)) (setq cmd (cdr (assq
'system apps)))) (in-emacs (setq cmd 'emacs)) (t (setq cmd (or (and remp (cdr
(assq ... apps))) (and dirp (cdr (assq ... apps))) (let* ((case-fold-search t)
(match ...)) (if match (progn ... match) (progn ... nil))) (assoc-default dfile
(org--file-apps-regexp-alist apps a-m-a-p) 'string-match) (cdr (assoc ext
apps)) (cdr (assq t apps)))))) (if (eq cmd 'system) (progn (setq cmd (cdr (assq
'system apps))))) (if (eq cmd 'default) (progn (setq cmd (cdr (assoc t
apps))))) (if (eq cmd 'mailcap) (progn (require 'mailcap)
(mailcap-parse-mailcaps) (let* ((mime-type (mailcap-extension-to-mime (or ext
""))) (command (mailcap-mime-info mime-type))) (if (stringp command) (setq cmd
command) (setq cmd 'emacs))))) (if (and (not (eq cmd 'emacs)) (not
(file-exists-p file)) (not org-open-non-existing-files)) (progn (user-error "No
such file: %s" file))) (cond ((org-string-nw-p cmd) (setq cmd
(org--open-file-format-command cmd file link link-match-data)) (let ((wconfig
(current-window-configuration))) (unwind-protect (progn (message "Running
%s...done" cmd) (let (...) (start-process-shell-command cmd nil cmd)) (and
(boundp ...) (numberp org-wait) (sit-for org-wait))) (set-window-configuration
wconfig)))) ((or (stringp cmd) (eq cmd 'emacs)) (funcall
(org-link-frame-setup-function 'file) file) (widen) (cond (line (org-goto-line
line) (if (derived-mode-p 'org-mode) (progn (org-fold-reveal)))) (search
(condition-case err (org-link-search search) (error (funcall
save-position-maybe) (error "%s" ...)))))) ((functionp cmd) (let
((saved-match-data (match-data))) (unwind-protect (progn (set-match-data
link-match-data) (condition-case nil (funcall cmd file link) (... ...)))
(set-match-data saved-match-data t)))) ((consp cmd) (user-error "Please see Org
News for version 9.0 about `org-file-apps'--Error: Deprecated usage of %S"
cmd)) (t (funcall (org-link-frame-setup-function 'file) file))) (funcall
save-position-maybe))
org-open-file("~/src/org-mode/lisp/ol.el" nil nil "(let ((element
(org-element-at-point)))")
apply(org-open-file "~/src/org-mode/lisp/ol.el" nil (nil "(let ((element
(org-element-at-point)))"))
(if (and (string-match "[*?{]" (file-name-nondirectory file-name)) (not
(file-exists-p file-name))) (dired file-name) (apply #'org-open-file file-name
in-emacs (cond ((not option) nil) ((string-match-p "\\`[0-9]+\\'" option) (list
(string-to-number option))) (t (list nil option)))))
(let* ((option (and (string-match "::\\(.*\\)\\'" path) (match-string 1
path))) (file-name (if (not option) path (substring path 0 (match-beginning
0))))) (if (and (string-match "[*?{]" (file-name-nondirectory file-name)) (not
(file-exists-p file-name))) (dired file-name) (apply #'org-open-file file-name
in-emacs (cond ((not option) nil) ((string-match-p "\\`[0-9]+\\'" option) (list
(string-to-number option))) (t (list nil option))))))
org-link-open-as-file("~/src/org-mode/lisp/ol.el::(let ((element
(org-element-at-point)))" nil)
(let* ((option (org-element--property :search-option link nil nil)) (path (if
option (concat path "::" option) path))) (org-link-open-as-file path (let*
((val (org-element--property :application link nil nil))) (cond (arg (let nil
arg)) ((equal val '"emacs") (let nil 'emacs)) ((equal val '"sys") (let nil
'system))))))
(let nil (let* ((option (org-element--property :search-option link nil nil))
(path (if option (concat path "::" option) path))) (org-link-open-as-file path
(let* ((val (org-element--property :application link nil nil))) (cond (arg (let
nil arg)) ((equal val '"emacs") (let nil 'emacs)) ((equal val '"sys") (let nil
'system)))))))
(cond ((equal type '"file") (let nil (let* ((option (org-element--property
:search-option link nil nil)) (path (if option (concat path "::" option)
path))) (org-link-open-as-file path (let* ((val ...)) (cond (arg ...) (... ...)
(... ...))))))) ((member type '("radio" "fuzzy" "custom-id" "coderef")) (let
nil (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-link--buffer-for-internals))) (let ((destination (save-excursion ...)))
(if (and (<= ... destination) (>= ... destination)) nil (widen)) (goto-char
destination))))) (t (let nil (let ((f (org-link-get-parameter type :follow)))
(if (functionp f) (progn (condition-case nil (funcall f path arg)
(wrong-number-of-arguments ...))))))))
(let ((type (org-element--property :type link nil nil)) (path
(org-element--property :path link nil nil))) (cond ((equal type '"file") (let
nil (let* ((option (org-element--property :search-option link nil nil)) (path
(if option ... path))) (org-link-open-as-file path (let* (...) (cond ... ...
...)))))) ((member type '("radio" "fuzzy" "custom-id" "coderef")) (let nil (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-link--buffer-for-internals))) (let ((destination ...)) (if (and ... ...)
nil (widen)) (goto-char destination))))) (t (let nil (let ((f
(org-link-get-parameter type :follow))) (if (functionp f) (progn
(condition-case nil ... ...))))))))
org-link-open((link (:standard-properties [161 nil nil nil 236 0 nil nil nil
nil nil nil nil nil #<buffer inbox.org> nil nil (paragraph
(:standard-properties [161 161 161 237 237 0 nil nil element t nil nil nil nil
#<buffer inbox.org> nil nil (section ...)]))] :type "file" :type-explicit-p t
:path "~/src/org-mode/lisp/ol.el" :format bracket :raw-link
"file:~/src/org-mode/lisp/ol.el::(let ((element (org-element-at-point)))"
:application nil :search-option "(let ((element (org-element-at-point)))")) 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 ... ... ...))))))) ((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-begin value)) (<= (point) (org-element-end
value))) (org-follow-timestamp-link)) ((eq type 'src-block)
(org-babel-open-src-block-result)) ((>= (point) (save-excursion (goto-char
(org-element-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 nil 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* ... ...))) (let* ((val ...)) (if (consp val) (let* ... ...)))))) ((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-begin value)) (<= (point) (org-element-end
value))) (org-follow-timestamp-link)) ((eq type 'src-block)
(org-babel-open-src-block-result)) ((>= (point) (save-excursion (goto-char
(org-element-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 nil 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 (>=
... tags-beg) (< ... tags-end)) (org-tags-view arg (save-excursion ...)) (let*
(...) (if ... ...))))) ((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-begin value)) (<= (point) (org-element-end
value))) (org-follow-timestamp-link)) ((eq type 'src-block)
(org-babel-open-src-block-result)) ((>= (point) (save-excursion (goto-char
(org-element-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)
command-execute(org-open-at-point)
--8<---------------cut here---------------end--------------->8---
Emacs : GNU Emacs 32.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.52,
cairo version 1.18.4)
Package: Org mode version 10.0-pre (10.0-pre-fd5d3b @
/nix/store/nn6s1iqabxk3papm3mwwq9p5vmj03gyw-emacs-packages-deps/share/emacs/site-lisp/elpa/org-10.0.20260704.367/)
