ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Allow blank lines in text search link 

* lisp/org.el (org-link-search): Allow blank lines.

This is a follow-up to 4dde26f08.
This commit is contained in:
Nicolas Goaziou 2017-03-29 14:12:58 +02:00
parent c6b62fd648
commit 109c86998e
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/org.el
View File

@ -11172,8 +11172,7 @@ of matched result, which is either `dedicated' or `fuzzy'."
(normalized (replace-regexp-in-string "\n[ \t]*" " " s)) (normalized (replace-regexp-in-string "\n[ \t]*" " " s))
(starred (eq (string-to-char normalized) ?*)) (starred (eq (string-to-char normalized) ?*))
(words (split-string (if starred (substring s 1) s))) (words (split-string (if starred (substring s 1) s)))
(s-multi-re (s-multi-re (mapconcat #'regexp-quote words "\\(?:[ \t\n]+\\)"))
(mapconcat #'regexp-quote words "\\([ \t]*\n[ \t]*\\|[ \t]+\\)"))
(s-single-re (mapconcat #'regexp-quote words "[ \t]+")) (s-single-re (mapconcat #'regexp-quote words "[ \t]+"))
type) type)
(cond (cond