[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv25009/Drei

Modified Files:
	drawing-options.lisp lisp-syntax.lisp 
Log Message:
Removed references to nonexisting +italic-face-style+.


--- /project/mcclim/cvsroot/mcclim/Drei/drawing-options.lisp	2008/01/07 22:55:11	1.2
+++ /project/mcclim/cvsroot/mcclim/Drei/drawing-options.lisp	2008/01/07 23:00:51	1.3
@@ -80,7 +80,7 @@
 
 (defvar *string-drawing-options* (make-drawing-options
                                   :face (make-face :ink +rosy-brown+
-                                                   :style +italic-face-style+))
+                                                   :style (make-text-style nil :italic nil)))
   "The drawing options used for syntax-highlighting strings.")
 
 (defvar *comment-drawing-options* (make-drawing-options
--- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2008/01/07 22:55:11	1.57
+++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp	2008/01/07 23:00:51	1.58
@@ -1854,7 +1854,7 @@
 
 (define-syntax-highlighting-rules retro-highlighting
   (error-symbol (*error-drawing-options*))
-  (string-form (:face :style +italic-face-style+))
+  (string-form (:options :face +italic-face+))
   (comment (:face :ink +dimgray+))
   (literal-object-form (:options :function (object-drawer)))
   (complete-token-form (:function #'(lambda (syntax form)