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

Modified Files: lisp-syntax.lisp Log Message: Added `display-parse-tree' method specialized on `incomplete-list-form' to highlight unmatched left parentheses.

--- /project/climacs/cvsroot/climacs/lisp-syntax.lisp 2006/06/03 12:06:00 1.80 +++ /project/climacs/cvsroot/climacs/lisp-syntax.lisp 2006/06/03 12:32:36 1.81 @@ -1627,7 +1627,7 @@ (let* ((children (children parse-symbol)) (point-offset (the fixnum (offset (point pane)))) ;; The following is set to true if the location if the point - ;; warrants highlighting of a set of matching parantheses. + ;; warrants highlighting of a set of matching parentheses. (should-highlight (or (= (the fixnum (end-offset parse-symbol)) point-offset) (= (the fixnum (start-offset parse-symbol)) point-offset)))) (if should-highlight @@ -1640,6 +1640,20 @@ (display-parse-tree (car child-list) syntax pane)) else do (display-parse-tree (car child-list) syntax pane)))) + +(defmethod display-parse-tree ((parse-symbol incomplete-list-form) (syntax lisp-syntax) pane) + (let* ((children (children parse-symbol)) + (point-offset (the fixnum (offset (point pane)))) + ;; The following is set to true if the location if the point + ;; warrants highlighting of the beginning parenthesis + (should-highlight (= (the fixnum (start-offset parse-symbol)) point-offset))) + (with-face (:error) + (if should-highlight + (with-text-face (pane :bold) + (display-parse-tree (car children) syntax pane)) + (display-parse-tree (car children) syntax pane))) + (loop for child in (cdr children) do + (display-parse-tree child syntax pane))))

(defmethod redisplay-pane-with-syntax ((pane climacs-pane) (syntax lisp-syntax) current-p) (with-slots (top bot) pane