diff --git a/hemlock/bit-screen.lisp b/hemlock/bit-screen.lisp index 30474726086bec1ad5f2fac65b8de1762b03c0f6..15fa28b2d3c3cae61323fad1c9179cd0c28a38a4 100644 --- a/hemlock/bit-screen.lisp +++ b/hemlock/bit-screen.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/bit-screen.lisp,v 1.17 2001/03/13 15:49:50 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/bit-screen.lisp,v 1.18 2001/12/11 00:56:51 pmai Rel $") ;;; ;;; ********************************************************************** ;;; @@ -652,9 +652,9 @@ ;;; The width must be that of a tab for the screen image builder, and the ;;; height must be one line (two with a modeline). ;;; -(defconstant minimum-window-lines 1 +(defconstant minimum-window-lines 2 "Windows must have at least this many lines.") -(defconstant minimum-window-columns 8 +(defconstant minimum-window-columns 10 "Windows must be at least this many characters wide.") (eval-when (compile eval load) diff --git a/hemlock/hacks.lisp b/hemlock/hacks.lisp index df924a48d4318e8eb5de7be48d5f8eee1b14dc43..882fc97c8766e1d5a9360a8e633a72ce72878ec4 100644 --- a/hemlock/hacks.lisp +++ b/hemlock/hacks.lisp @@ -17,9 +17,6 @@ (setf (window-old-lines window) 0)) (defparameter hunk-width-limit 256) -(defparameter minimum-window-lines 2) -(defparameter minimum-window-columns 10) -(defparameter font-map-size 16) (defun reverse-video-hook-fun (&rest foo) (declare (ignore foo)))