From fa6ef8874b26893cd48ae101711bfd56630fa27d Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 13 Jul 1990 14:53:08 +0000 Subject: [PATCH] Initial revision --- hemlock/hacks.lisp | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 hemlock/hacks.lisp diff --git a/hemlock/hacks.lisp b/hemlock/hacks.lisp new file mode 100644 index 000000000..8f6743db0 --- /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))) -- GitLab