diff --git a/hemlock/hacks.lisp b/hemlock/hacks.lisp new file mode 100644 index 0000000000000000000000000000000000000000..8f6743db0c15e0c383e9a2de027eec0c1b330e17 --- /dev/null +++ b/hemlock/hacks.lisp @@ -0,0 +1,31 @@ +(in-package "HI") + +(defun %sp-byte-blt (src start dest dstart end) + (%primitive byte-blt src start dest dstart end)) + +(defun %sp-find-character (string start end char) + (%primitive find-character string start end char)) + +(defun %sp-find-character-with-attribute (a b c d e) + (%primitive find-character-with-attribute a b c d e)) + +(defun lisp::sap-to-fixnum (x) (sap-int x)) +(defun lisp::fixnum-to-sap (x) (int-sap x)) +(defun lisp::%sp-make-fixnum (x) (%primitive make-fixnum x)) +(defun lisp::fast-char-upcase (x) (char-upcase x)) + +;;; prepare-window-for-redisplay -- Internal +;;; +;;; Called by make-window to do whatever redisplay wants to set up +;;; a new window. +;;; +(defun prepare-window-for-redisplay (window) + (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)))