[climacs-cvs] CVS update: climacs/syntax.lisp

[Robert Strandh]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv29501

Modified Files:
	syntax.lisp 
Log Message:
Improved cursor redisplay.

Thanks to Alastair Bridgewater

Date: Mon Dec 27 18:43:09 2004
Author: rstrandh

Index: climacs/syntax.lisp
diff -u climacs/syntax.lisp:1.9 climacs/syntax.lisp:1.10
--- climacs/syntax.lisp:1.9	Mon Dec 27 17:47:45 2004
+++ climacs/syntax.lisp	Mon Dec 27 18:43:08 2004
@@ -163,10 +163,13 @@
 	     (multiple-value-bind (x y) (stream-cursor-position pane)
 	       (setf cursor-x x
 		     cursor-y y)))
-	   (draw-line* pane
-		       cursor-x (- cursor-y (* 0.2 height))
-		       cursor-x (+ cursor-y (* 0.8 height))
-		       :ink +red+))))))
+	   (maybe-updating-output (pane :all-new t :fixed-position t)
+	      (draw-line* pane
+			  ;; cursors with odd x-positions were invisible
+			  ;; so we strip off the low bit to make them even.
+			  (logand -2 cursor-x) (- cursor-y (* 0.2 height))
+			  (logand -2 cursor-x) (+ cursor-y (* 0.8 height))
+			  :ink +red+)))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;