master: Don't canonicalize whitespace in Texinfo files

The branch "master" has been updated in SBCL:
       via  34dda2dde18230174cb01b05eeb8a7e166837b9d (commit)
      from  2c524ff00b476cae3b2b004c2fc67d791793b4c9 (commit)

- Log -----------------------------------------------------------------
commit 34dda2dde18230174cb01b05eeb8a7e166837b9d
Author: Gabor Melis <[email protected]>
Date:   Wed Jul 1 14:44:24 2026 +0200

    Don't canonicalize whitespace in Texinfo files
    
    Almost all of them are generated.
    
    Also, fix some comments.
---
 contrib/sb-manual/markdown.lisp              | 8 ++++----
 tools-for-build/canonicalize-whitespace.lisp | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/contrib/sb-manual/markdown.lisp b/contrib/sb-manual/markdown.lisp
index 3bed23f63..045eeebf6 100644
--- a/contrib/sb-manual/markdown.lisp
+++ b/contrib/sb-manual/markdown.lisp
@@ -425,8 +425,8 @@
 
 ;;;; Processing Markdown inline elements
 
-;;; Format symbols either as Texinfo code or as variables if the
-;;; symbol in question is contained in symbols *TEXINFO-LOCAL-VARIABLES*.
+;;; Format symbols either as Texinfo @code{}, link sections, and
+;;; handle concepts.
 (defun codify-and-link (line)
   (with-output-to-string (result)
     (let ((last 0))
@@ -529,12 +529,12 @@
                     (out-escaped (char string i))
                     (incf i)
                     ;; Protect the rest of the contiguous word from
-                    ;; CODIFY-AND-LINK up until
+                    ;; CODIFY-AND-LINK.
                     (loop
                       while (and (< i len)
                                  (not (or (whitespacep (char string i))
                                           (find (char string i)
-                                                " ,.!?;()'[]{}\""))))
+                                                ",.!?;()'[]{}\""))))
                       do (out-escaped (char string i))
                          (incf i))
                     (decf i)))
diff --git a/tools-for-build/canonicalize-whitespace.lisp b/tools-for-build/canonicalize-whitespace.lisp
index d9326fee2..205b52a1b 100644
--- a/tools-for-build/canonicalize-whitespace.lisp
+++ b/tools-for-build/canonicalize-whitespace.lisp
@@ -87,7 +87,7 @@
         (print file)
         (write-sequence new stream)))))
 
-(defvar *source-types* '("lisp" "lisp-expr" "c" "h" "asd" "texinfo"))
+(defvar *source-types* '("lisp" "lisp-expr" "c" "h" "asd"))
 
 (defvar *exceptions* '("compile-file-pos-utf16be"))
 

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL