Commit 0ebe2678 authored by Juri Linkov's avatar Juri Linkov

* lisp/char-fold.el (char-fold-to-regexp): Handle lax-whitespace (bug#38539)

parent 5312e56d
Pipeline #6793 passed with stage
in 66 minutes and 9 seconds
......@@ -324,6 +324,13 @@ from which to start."
(while (< i end)
(pcase (aref string i)
(?\s (setq spaces (1+ spaces)))
((pred (lambda (c) (and char-fold-symmetric
(if isearch-regexp
isearch-regexp-lax-whitespace
isearch-lax-whitespace)
(stringp search-whitespace-regexp)
(string-match-p search-whitespace-regexp (char-to-string c)))))
(setq spaces (1+ spaces)))
(c (when (> spaces 0)
(push (char-fold--make-space-string spaces) out)
(setq spaces 0))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment