[climacs-cvs] CVS climacs

[thenriksen]

Update of /project/climacs/cvsroot/climacs
In directory clnet:/tmp/cvs-serv17472

Modified Files:
	lisp-syntax.lisp 
Log Message:
Made the quote-characters use the same face as the rest of the string
when displaying string lexemes.


--- /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/05/16 20:00:50	1.70
+++ /project/climacs/cvsroot/climacs/lisp-syntax.lisp	2006/05/16 20:13:17	1.71
@@ -1521,13 +1521,14 @@
                                         (end-offset (car (last children 2))))))
           (with-output-as-presentation (pane string 'lisp-string
                                              :single-box :highlighting)
-            (display-parse-tree  (pop children) syntax pane)
             (with-face (:string)
+              (display-parse-tree (pop children) syntax pane)
 	      (loop until (null (cdr children))
-                 do (display-parse-tree (pop children) syntax pane)))
-            (display-parse-tree (pop children) syntax pane)))
-        (progn (display-parse-tree (pop children) syntax pane)
-               (display-parse-tree (pop children) syntax pane)))))
+                 do (display-parse-tree (pop children) syntax pane))
+              (display-parse-tree (pop children) syntax pane))))
+        (with-face (:string)
+         (progn (display-parse-tree (pop children) syntax pane)
+                (display-parse-tree (pop children) syntax pane))))))
 
 (defmethod display-parse-tree ((parse-symbol incomplete-string-form) (syntax lisp-syntax) pane)
   (let ((children (children parse-symbol)))
@@ -1537,11 +1538,12 @@
                                         (end-offset (car (last children))))))
           (with-output-as-presentation (pane string 'lisp-string
                                              :single-box :highlighting)
-            (display-parse-tree  (pop children) syntax pane)
             (with-face (:string)
+              (display-parse-tree (pop children) syntax pane)
               (loop until (null children)
                  do (display-parse-tree (pop children) syntax pane)))))
-        (display-parse-tree  (pop children) syntax pane))))
+        (with-face (:string)
+         (display-parse-tree (pop children) syntax pane)))))
 
 (defmethod display-parse-tree ((parse-symbol line-comment-form) (syntax lisp-syntax) pane)
   (with-face (:comment)