[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[no subject]
- To: DCH at MIT-ML, (BUG LISP) at MIT-ML
- Subject:
- From: HIC@MIT-MC
- Date: Sun, 17 Jul 78 07:38:04 GMT
- Original-date: 07/17/78 03:38:04 EDT
(defun my-more (output-file)
(nointerrupt nil) ;Make sure the guy can ^G (etc..)
(princ '|##MORE##| output-file)
;Since GSB is such a pain, you might also want to flush rubout, and
; ignore control characters
(and (= (tyipeek nil tyi) 40) (tyi tyi)) ;If space typed, flush it
(cursorpos 'T output-file)
(cursorpos 'L output-file)) ;Must clear line that printing will be on
That should do it.