Index: prolog-syntax.lisp
===================================================================
RCS file: /project/climacs/cvsroot/climacs/prolog-syntax.lisp,v
retrieving revision 1.21
diff -u -r1.21 prolog-syntax.lisp
--- prolog-syntax.lisp	27 May 2005 13:25:01 -0000	1.21
+++ prolog-syntax.lisp	12 Jun 2005 15:41:31 -0000
@@ -1266,7 +1266,10 @@
 			     (display-parse-tree token syntax pane))
 			   (incf start-token-index))))))))
      (let* ((cursor-line (number-of-lines-in-region top (point pane)))
-	    (height (text-style-height (medium-text-style pane) pane))
+	    (style (medium-text-style pane))
+	    (ascent (text-style-ascent style pane))
+	    (descent (text-style-descent style pane))
+	    (height (+ ascent descent))
 	    (cursor-y (+ (* cursor-line (+ height (stream-vertical-spacing pane)))))
 	    (cursor-column
 	     ;; FIXME: surely this should be more abstracted?
@@ -1276,8 +1279,8 @@
 	    (cursor-x (* cursor-column (text-style-width (medium-text-style pane) pane))))
        (updating-output (pane :unique-id -1)
 	 (draw-rectangle* pane
-			  (1- cursor-x) (- cursor-y (* 0.2 height))
-			  (+ cursor-x 2) (+ cursor-y (* 0.8 height))
+			  (1- cursor-x) cursor-y 
+			  (+ cursor-x 2) (+ cursor-y ascent descent)
 			  :ink (if current-p +red+ +blue+))))))
 
 #|
