[closure-cvs] CVS update: closure/src/renderer/renderer2.lisp - closure-cvs@common-lisp.net - mailman3.common-lisp.net

17 Jul 2005

Update of /project/closure/cvsroot/closure/src/renderer
In directory common-lisp.net:/tmp/cvs-serv16691/src/renderer
Modified Files:
    renderer2.lisp 
Log Message:
Reference hyphenation table via a file:// URL.
Date: Sun Jul 17 11:35:47 2005
Author: emarsden
Index: closure/src/renderer/renderer2.lisp
diff -u closure/src/renderer/renderer2.lisp:1.10 closure/src/renderer/renderer2.lisp:1.11

--- closure/src/renderer/renderer2.lisp:1.10	Wed Jul 13 15:44:55 2005
+++ closure/src/renderer/renderer2.lisp	Sun Jul 17 11:35:47 2005
@@ -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.10 2005/07/13 13:44:55 crhodes Exp $
+;;;       $Id: renderer2.lisp,v 1.11 2005/07/17 09:35:47 emarsden Exp $
 ;;; ---------------------------------------------------------------------------
 ;;;  (c) copyright 1997-2003 by Gilbert Baumann
@@ -4787,7 +4787,7 @@
 (defun hyphenation-table ()
   (or *hyphenation-table*
       (setf *hyphenation-table*
-            (read-hyphen-table-file "/home/closure/closure/resources/patterns/english.ptn"))))
+            (read-hyphen-table "file://closure/resources/patterns/english.ptn"))))
(defun hyphenate-items (items w)
   "This takes a chunk list and applies hyphenation it it."
@@ -4968,6 +4968,9 @@
;; $Log: renderer2.lisp,v $
+;; Revision 1.11  2005/07/17 09:35:47  emarsden
+;; Reference hyphenation table via a file:// URL.
+;;
 ;; Revision 1.10  2005/07/13 13:44:55  crhodes
 ;; Make images work, more or less.
 ;;

    