[closure-cvs] CVS closure/src/renderer

[crhodes]

Update of /project/closure/cvsroot/closure/src/renderer
In directory clnet:/tmp/cvs-serv26089/src/renderer

Modified Files:
	renderer2.lisp 
Log Message:
Rune fixes for TeX Mode


--- /project/closure/cvsroot/closure/src/renderer/renderer2.lisp	2006/12/30 15:13:55	1.17
+++ /project/closure/cvsroot/closure/src/renderer/renderer2.lisp	2007/01/05 11:19:30	1.18
@@ -4,7 +4,7 @@
 ;;;   Created: somewhen late 2002
 ;;;    Author: Gilbert Baumann <gilbert at base-engineering.com>
 ;;;   License: MIT style (see below)
-;;;       $Id: renderer2.lisp,v 1.17 2006/12/30 15:13:55 emarsden Exp $
+;;;       $Id: renderer2.lisp,v 1.18 2007/01/05 11:19:30 crhodes Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1997-2003 by Gilbert Baumann
 
@@ -4823,8 +4823,8 @@
                (let ((data (black-chunk-data x)))
                  (loop for j from 0
                        for c across data do
-                       (cond ((or (<= #/a c #/z)
-                                  (<= #/A c #/Z))
+                       (cond ((or (rune<= #/a c #/z)
+                                  (rune<= #/A c #/Z))
                               (push (list i j c) curword))
                              (t
                               (spill-word))))))
@@ -4836,7 +4836,7 @@
       ;; #+NIL
       (let ((hps nil))
         (dolist (word words)
-          (let* ((s (map 'string (lambda (x) (code-char (third x))) word))
+          (let* ((s (map 'string (lambda (x) (rune-char (third x))) word))
                  (z (hyphen-points (hyphenation-table) s)))
             (dolist (k (reverse z)) (push (elt word k) hps))))
         ;; an assert a day keeps the surprise away.
@@ -4983,6 +4983,9 @@
 
 
 ;; $Log: renderer2.lisp,v $
+;; Revision 1.18  2007/01/05 11:19:30  crhodes
+;; Rune fixes for TeX Mode
+;;
 ;; Revision 1.17  2006/12/30 15:13:55  emarsden
 ;; - use CL from Closure packages
 ;; - minor rod fixes