diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2020-02-23 12:46:31 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2020-02-23 12:51:07 +0100 |
commit | ee0dba64028c29edd31bc99ae40feb6e9b1bb8c6 (patch) | |
tree | 1ced8b30ddbeff21256dfec4c293f6a8ff9c796c | |
parent | fe5962ce9b2474f5a85bcb609b8097ac62a73e64 (diff) | |
download | org-mode-ee0dba64028c29edd31bc99ae40feb6e9b1bb8c6.tar.gz |
Small fix to headline search string
* lisp/ol.el (org-link-heading-search-string):
(org-link-search):
* lisp/ox.el (org-export-search-cells): Replace statistics cookies
with a space before squeezing spaces so as to handle properly, e.g.,
"wordCOOKIEword".
-rw-r--r-- | lisp/ol.el | 8 | ||||
-rw-r--r-- | lisp/ox.el | 2 |
2 files changed, 4 insertions, 6 deletions
@@ -1192,7 +1192,7 @@ of matched result, which is either `dedicated' or `fuzzy'." (when (equal words (split-string (replace-regexp-in-string - cookie-re "" + cookie-re " " (replace-regexp-in-string comment-re "" (org-get-heading t t t))))) (throw :found t))) @@ -1258,10 +1258,8 @@ into a single one." (unless (string-prefix-p "*" s) (setq s (concat "*" s))) (replace-regexp-in-string comment-re "" s)))) (cookie-re "\\[[0-9]*\\(?:%\\|/[0-9]*\\)\\]")) - (org-trim - (replace-regexp-in-string - cookie-re "" - (org-link--squeeze-white-spaces context))))) + (org-link--squeeze-white-spaces + (replace-regexp-in-string cookie-re " " context)))) (defun org-link-open-as-file (path arg) "Pretend PATH is a file name and open it. @@ -4354,7 +4354,7 @@ ignores white spaces and statistics cookies, if applicable." (`headline (let ((title (split-string (replace-regexp-in-string - "\\[[0-9]*\\(?:%\\|/[0-9]*\\)\\]" "" + "\\[[0-9]*\\(?:%\\|/[0-9]*\\)\\]" " " (org-element-property :raw-value datum))))) (delq nil (list |