ORG-NEWS: Use less conservative link update function
This commit is contained in:
parent
da517aaeb8
commit
e5d05e881a
15
etc/ORG-NEWS
15
etc/ORG-NEWS
|
@ -54,18 +54,11 @@ is non-nil."
|
||||||
(goto-char uri-start)
|
(goto-char uri-start)
|
||||||
(re-search-forward "\\][][]" nil t)
|
(re-search-forward "\\][][]" nil t)
|
||||||
(match-beginning 0)))
|
(match-beginning 0)))
|
||||||
(uri (buffer-substring-no-properties uri-start uri-end))
|
(uri (buffer-substring-no-properties uri-start uri-end)))
|
||||||
(start 0))
|
(when (or no-query
|
||||||
(when (catch :obsolete
|
|
||||||
(while (string-match "%\\(..\\)?" uri start)
|
|
||||||
(setq start (match-end 0))
|
|
||||||
(unless (member (match-string 1 uri)
|
|
||||||
'("25" "5B" "5D" "20"))
|
|
||||||
(throw :obsolete nil)))
|
|
||||||
(or no-query
|
|
||||||
(y-or-n-p
|
(y-or-n-p
|
||||||
(format "Possibly obsolete URI syntax: %S. Update?"
|
(format "Possibly obsolete URI syntax: %S. Fix? "
|
||||||
uri))))
|
uri)))
|
||||||
(setf (buffer-substring uri-start uri-end)
|
(setf (buffer-substring uri-start uri-end)
|
||||||
(org-link-escape (org-link-decode uri)))))))))))
|
(org-link-escape (org-link-decode uri)))))))))))
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
Loading…
Reference in New Issue