Skip to content
Snippets Groups Projects
Commit 32c02349 authored by pmai's avatar pmai
Browse files

Fix redefinition of constants as special variables via defparameter,

as uncovered by the recent change to detect this.  Folded the larger
constants for MINIMUM-WINDOW-LINES and MINIMUM-WINDOW-COLUMNS into the
original constant definition, and elided the superfluous defparameter
for FONT-MAP-SIZE.  This seems to work for now.
parent c2c3677a
Branches
Tags
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -652,9 +652,9 @@
;;; The width must be that of a tab for the screen image builder, and the ;;; The width must be that of a tab for the screen image builder, and the
;;; height must be one line (two with a modeline). ;;; 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.") "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.") "Windows must be at least this many characters wide.")
(eval-when (compile eval load) (eval-when (compile eval load)
......
...@@ -17,9 +17,6 @@ ...@@ -17,9 +17,6 @@
(setf (window-old-lines window) 0)) (setf (window-old-lines window) 0))
(defparameter hunk-width-limit 256) (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) (defun reverse-video-hook-fun (&rest foo)
(declare (ignore foo))) (declare (ignore foo)))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment