[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[no subject]

(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.