diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/char-fold.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/char-fold.el b/lisp/char-fold.el index 5a3c20c7832..34561a2efe6 100644 --- a/lisp/char-fold.el +++ b/lisp/char-fold.el @@ -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)) |