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

View File

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