Skip to content
Snippets Groups Projects
Commit fa6ef887 authored by ram's avatar ram
Browse files

Initial revision

parent 71271e90
No related branches found
No related tags found
No related merge requests found
(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)))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment