mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-20 15:18:33 +00:00
org.el (org-offer-links-in-entry): Reuse global variable
* org.el (org-offer-links-in-entry): Use global variable `org-any-link-re' instead of defining a string-equal local variable. The `re' variable defined in function `org-offer-links-in-entry' is string-equal to `org-any-link-re' and is hence replaced by the latter. TINYCHANGE
This commit is contained in:
parent
74168eea55
commit
d2b7c50880
|
@ -10721,10 +10721,7 @@ there is one, return it."
|
|||
(save-restriction
|
||||
(widen)
|
||||
(goto-char marker)
|
||||
(let ((re (concat "\\(" org-bracket-link-regexp "\\)\\|"
|
||||
"\\(" org-angle-link-re "\\)\\|"
|
||||
"\\(" org-plain-link-re "\\)"))
|
||||
(cnt ?0)
|
||||
(let ((cnt ?0)
|
||||
(in-emacs (if (integerp nth) nil nth))
|
||||
have-zero end links link c)
|
||||
(when (and (stringp zero) (string-match org-bracket-link-regexp zero))
|
||||
|
@ -10733,7 +10730,7 @@ there is one, return it."
|
|||
(save-excursion
|
||||
(org-back-to-heading t)
|
||||
(setq end (save-excursion (outline-next-heading) (point)))
|
||||
(while (re-search-forward re end t)
|
||||
(while (re-search-forward org-any-link-re end t)
|
||||
(push (match-string 0) links))
|
||||
(setq links (org-uniquify (reverse links))))
|
||||
(cond
|
||||
|
|
Loading…
Reference in a new issue