diff --git a/hemlock/bit-screen.lisp b/hemlock/bit-screen.lisp index 6f24bd135e2406572447252bfc98ebeed9f8542c..4fd6f05a8d02e741180a9ffba5679943e30bc4dd 100644 --- a/hemlock/bit-screen.lisp +++ b/hemlock/bit-screen.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/bit-screen.lisp,v 1.13 1991/11/23 21:48:32 chiles Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/bit-screen.lisp,v 1.14 1994/03/14 17:57:45 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1451,8 +1451,7 @@ (setf *default-foreground-pixel* (xlib:screen-black-pixel (xlib:display-default-screen display))) (setf *cursor-background-color* (make-white-color)) - (setf *cursor-foreground-color* (make-black-color)) - (setf *hack-hunk-replace-line* t))) + (setf *cursor-foreground-color* (make-black-color)))) (setf *foreground-background-xor* (logxor *default-foreground-pixel* *default-background-pixel*)) (setf *highlight-border-pixmap* *default-foreground-pixel*) @@ -1787,8 +1786,7 @@ (setf *default-foreground-pixel* (xlib:screen-black-pixel (xlib:display-default-screen display))) (setf *cursor-background-color* (make-white-color)) - (setf *cursor-foreground-color* (make-black-color)) - (setf *hack-hunk-replace-line* t))) + (setf *cursor-foreground-color* (make-black-color)))) (setf *highlight-border-pixmap* *default-foreground-pixel*) (get-hemlock-cursor display) (dolist (hunk (device-hunks device))