Changeset 7370


Ignore:
Timestamp:
Oct 9, 2007, 2:53:07 AM (12 years ago)
Author:
gb
Message:

Try to make sure that the reader treats #\No-Break_Space as whitespace.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-reader.lisp

    r6637 r7370  
    18961896                        (set-schar str 4 #\^@)
    18971897                        (set-schar str 5 #\^J)
     1898                        (set-schar str 0 #\Space)
    18981899                        (set-schar str 6 (code-char #xa0))
    18991900                        str))
     
    19631964    (dotimes (ch (1+ (char-code #\Space)))
    19641965      (uvset ttab ch $cht_wsp))
     1966    (uvset ttab #xa0 $cht_wsp)
    19651967    (uvset ttab (char-code #\\) $cht_sesc)
    19661968    (uvset ttab (char-code #\|) $cht_mesc)
Note: See TracChangeset for help on using the changeset viewer.