procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Juri Linkov 2020-09-07 21:33:13 +03:00
parent 5312e56d43
commit 0ebe267800
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/char-fold.el
View file

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