tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

ol: Remove `org-link-re-with-space(2|3)?' variables 

* lisp/ol.el (org-link-re-with-space):
(org-link-re-with-space2):
(org-link-re-with-space3): Remove variables.
(org-link-make-regexps): Do not set removed variables.

These variables are not accurate. They are not used throughout the
code base either.
This commit is contained in:
Nicolas Goaziou 2019-03-10 14:50:53 +01:00
parent 1c936fd2ac
commit c3d75b4aa2
1 changed files with 0 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lisp/ol.el
View File

@ -458,15 +458,6 @@ links more efficient."
(defvar org-link-types-re nil
"Matches a link that has a url-like prefix like \"http:\"")
(defvar org-link-re-with-space nil
"Matches a link with spaces, optional angular brackets around it.")
(defvar org-link-re-with-space2 nil
"Matches a link with spaces, optional angular brackets around it.")
(defvar org-link-re-with-space3 nil
"Matches a link with spaces, only for internal part in bracket links.")
(defvar org-link-angle-re nil
"Matches link with angular brackets, spaces are allowed.")
@ -715,20 +706,6 @@ This should be called after the variable `org-link-parameters' has changed."
(let ((types-re (regexp-opt (org-link-types) t)))
(setq org-link-types-re
(concat "\\`" types-re ":")
org-link-re-with-space
(concat "<?" types-re ":"
"\\([^" org-link--forbidden-chars " ]"
"[^" org-link--forbidden-chars "]*"
"[^" org-link--forbidden-chars " ]\\)>?")
org-link-re-with-space2
(concat "<?" types-re ":"
"\\([^" org-link--forbidden-chars " ]"
"[^\t\n\r]*"
"[^" org-link--forbidden-chars " ]\\)>?")
org-link-re-with-space3
(concat "<?" types-re ":"
"\\([^" org-link--forbidden-chars " ]"
"[^\t\n\r]*\\)")
org-link-angle-re
(format "<%s:\\([^>\n]*\\(?:\n[ \t]*[^> \t\n][^>\n]*\\)*\\)>"
types-re)