From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 27 Nov 2015 07:54:27 +0000 (+0200)
Subject: Improve commentary in character-fold.el
X-Git-Tag: emacs-25.0.90~637
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a41cb8c4d3af3f7e542a7bdf79858385a3274d4d;p=emacs.git

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

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