From a41cb8c4d3af3f7e542a7bdf79858385a3274d4d Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 27 Nov 2015 09:54:27 +0200 Subject: [PATCH] Improve commentary in character-fold.el * lisp/character-fold.el (character-fold-to-regexp): Move detailed description from commit log message to comments. (Bug#22019) --- lisp/character-fold.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/character-fold.el b/lisp/character-fold.el index 0e156c50dde..0e063b07e72 100644 --- a/lisp/character-fold.el +++ b/lisp/character-fold.el @@ -117,9 +117,14 @@ regexp) and other characters are `regexp-quote'd." (let* ((spaces 0) (chars (mapcar #'identity string)) (out chars)) - ;; When the user types a space, we want to match the table entry, - ;; but we also want the ?\s to be visible to `search-spaces-regexp'. - ;; See commit message for a longer description. + ;; When the user types a space, we want to match the table entry + ;; for ?\s, which is generally a regexp like "[ ...]". However, + ;; the `search-spaces-regexp' variable doesn't "see" spaces inside + ;; these regexp constructs, so we need to use "\\( \\|[ ...]\\)" + ;; instead (to manually expose a space). Furthermore, the lax + ;; search engine acts on a bunch of spaces, not on individual + ;; spaces, so if the string contains sequential spaces like " ", we + ;; need to keep them grouped together like this: "\\( \\|[ ...][ ...]\\)". (while chars (let ((c (car chars))) (setcar chars -- 2.39.5