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)