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)
|
(visible-mode 1)
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(while (re-search-forward
|
(let ((regexp (format "\\[\\[\\*%s\\s-+"
|
||||||
(format "\\[\\[\\*%s\\s-+" (regexp-opt org-todo-keywords-1 t))
|
(regexp-opt org-todo-keywords-1 t))))
|
||||||
nil t)
|
(while (re-search-forward regexp nil t)
|
||||||
(when (y-or-n-p "Fix link (remove TODO keyword)? ")
|
(when (and (save-excursion
|
||||||
(replace-match "[[*"))))
|
(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))
|
(visible-mode -1))
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue