瀏覽代碼

Allow blank lines in text search link

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

This is a follow-up to 4dde26f08.
Nicolas Goaziou 8 年之前
父節點
當前提交
109c86998e
共有 1 個文件被更改,包括 1 次插入2 次删除
  1. 1 2
      lisp/org.el

+ 1 - 2
lisp/org.el

@@ -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