From 179830a90d1c1351d0749fe3569a4149bb8fc349 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 14 Mar 1994 17:57:45 +0000 Subject: [PATCH] Deleted some setting of *hack-hunk-replace-line* to T, since we may want it explicitly disabled in the init file. --- hemlock/bit-screen.lisp | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/hemlock/bit-screen.lisp b/hemlock/bit-screen.lisp index 6f24bd135..4fd6f05a8 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)) -- GitLab