forked from mirrors/org-mode
ORG-NEWS: Improve suggested fix
* etc/ORG-NEWS (Possibly broken internal file links: please check and fix): Improve code. Limit false positives.
This commit is contained in:
parent
7707f898a1
commit
5d4314ce9e
13
etc/ORG-NEWS
13
etc/ORG-NEWS
|
@ -37,11 +37,14 @@ Go through the buffer and ask for the replacement."
|
|||
(visible-mode 1)
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(while (re-search-forward
|
||||
(format "\\[\\[\\*%s\\s-+" (regexp-opt org-todo-keywords-1 t))
|
||||
nil t)
|
||||
(when (y-or-n-p "Fix link (remove TODO keyword)? ")
|
||||
(replace-match "[[*"))))
|
||||
(let ((regexp (format "\\[\\[\\*%s\\s-+"
|
||||
(regexp-opt org-todo-keywords-1 t))))
|
||||
(while (re-search-forward regexp nil t)
|
||||
(when (and (save-excursion
|
||||
(goto-char (match-beginning 0))
|
||||
(looking-at-p org-link-bracket-re))
|
||||
(y-or-n-p "Fix link (remove TODO keyword)? "))
|
||||
(replace-match "[[*")))))
|
||||
(visible-mode -1))
|
||||
#+end_src
|
||||
|
||||
|
|
Loading…
Reference in New Issue