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