From d9038a01c1bec6977b226ad3c45fd9e2fc43f9a3 Mon Sep 17 00:00:00 2001 From: Matt Lundin Date: Mon, 27 Mar 2017 09:55:33 -0500 Subject: [PATCH] Allow insertion of links with multi-line search strings * lisp/org.el: (org-insert-link): Fix regexps to match across newlines. --- lisp/org.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 5e0817ccf..7ad80941e 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -10549,7 +10549,7 @@ Use TAB to complete link prefixes, then RET for type-specific completion support ;; option If yes, simplify the link by using only the search ;; option. (when (and buffer-file-name - (string-match "^file:\\(.+?\\)::\\(.+\\)" link)) + (string-match "^file:\\(.+?\\)::\\(\\(.\\|\n\\)+\\)" link)) (let* ((path (match-string 1 link)) (case-fold-search nil) (search (match-string 2 link))) @@ -10559,7 +10559,7 @@ Use TAB to complete link prefixes, then RET for type-specific completion support (setq link search))))) ;; Check if we can/should use a relative path. If yes, simplify the link - (when (string-match "^\\(file:\\|docview:\\)\\(.*\\)" link) + (when (string-match "^\\(file:\\|docview:\\)\\(\\(.\\|\n\\)*\\)" link) (let* ((type (match-string 1 link)) (path (match-string 2 link)) (origpath path) -- 2.11.4.GIT