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