Trailing-Edge
-
PDP-10 Archives
-
mit_emacs_170_teco_1220
-
emacs/inter.hp
There are no other files named inter.hp in the archive.
(FILECREATED "18-Apr-80 17:25:24" <BOYER>HPEMACS..9 4872
changes to: HPEMACSVARS
previous date: "24-Mar-80 09:32:31" <BOYER>HPEMACS..8)
(PRETTYCOMPRINT HPEMACSCOMS)
(RPAQQ HPEMACSCOMS ((FNS * HPEMACSFNS)
(VARS * HPEMACSVARS)
(USERMACROS * HPEMACSUSERMACROS)))
(RPAQQ HPEMACSFNS (DISABLE.KEYPAD CLEAR.DISPLAY.SCREEN
EMACS.DEFAULT.FKEYS POSITION.CURSOR
SEND.ESC.SEQUENCE
SEND.TERMINAL.CONTROL SET.FKEY
ENABLE.KEYPAD HP264XP EMACS:.FKEYS))
(DEFINEQ
(DISABLE.KEYPAD
[LAMBDA NIL (* edited:
"15-Nov-79 11:07")
(PROG (ESC.STATE)
(SETQ ESC.STATE (ECHOCONTROL 27 (QUOTE REAL)))
(SEND.ESC.SEQUENCE "&s0A")
(ECHOCONTROL 27 ESC.STATE)
(RETURN (CHARACTER 127])
(CLEAR.DISPLAY.SCREEN
[LAMBDA (ROW COLUMN) (* edited:
"21-Jan-80 11:41")
(COND
((NULL ROW)
(SEND.ESC.SEQUENCE "h"))
(T (COND
((NULL COLUMN)
(SETQ COLUMN 0)))
(POSITION.CURSOR ROW COLUMN)))
(SEND.ESC.SEQUENCE "J"])
(EMACS.DEFAULT.FKEYS
[LAMBDA NIL (* edited:
"16-Nov-79 20:02")
") (SET.FKEY 1 " X^R Pretty Print
") (SET.FKEY 2 " X^R Print to Level
") (SET.FKEY 3 " X^R Arglist
") (SET.FKEY 4 " X^R Exit to LISP
(SET.FKEY 5 " ")
(SET.FKEY 6 " X")
(SET.FKEY 7 "")
"]) (SET.FKEY 8 " < 1 X^R EVAL
(POSITION.CURSOR
[LAMBDA (ROW COLUMN) (* edited:
"15-Nov-79 08:06")
(PROG (ESC.STATE)
(SETQ ESC-STATE (ECHOCONTROL 27 (QUOTE REAL)))
(SEND.TERMINAL.CONTROL (CONCAT "&a" ROW "y" COLUMN "C"))
(ECHOCONTROL 27 ESC-STATE)
(RETURN (CHARACTER 127])
(SEND.ESC.SEQUENCE
[LAMBDA (STRINGVAL) (* edited:
"15-Nov-79 08:09")
(PROG (ESC.STATE)
(SETQ ESC.STATE (ECHOCONTROL 27 (QUOTE REAL)))
(SEND.TERMINAL.CONTROL (CONCAT "" STRINGVAL))
(ECHOCONTROL 27 ESC.STATE)
(RETURN (CHARACTER 127])
(SEND.TERMINAL.CONTROL
[LAMBDA (STR) (* edited:
"15-Nov-79 11:02")
(JSYS
43
(OPNJFN T)
(LOGOR (LLSH (IDIFFERENCE
36
(ITIMES 7 (IREMAINDER (LOGAND (OPENR (LOC STR))
2097151)
5)))
30)
(LLSH 7 24)
(IQUOTIENT (LOGAND (OPENR (LOC STR))
2097151)
5))
(MINUS (LRSH (LOGAND (OPENR (LOC STR))
32767)
21])
(SET.FKEY
[LAMBDA (KEY KEYVAL) (* edited:
"21-Jan-80 11:36")
(SEND.ESC.SEQUENCE (CONCAT "&f0a" KEY "k" (NCHARS KEYVAL)
"L" KEYVAL])
(ENABLE.KEYPAD
[LAMBDA NIL (* edited:
"15-Nov-79 11:06")
(PROG (ESC.STATE)
(SETQ ESC.STATE (ECHOCONTROL 27 (QUOTE REAL)))
(SEND.ESC.SEQUENCE "&s1A")
(ECHOCONTROL 27 ESC.STATE)
(RETURN (CHARACTER 127])
(HP264XP
[LAMBDA NIL (* edited:
"17-Dec-79 07:51")
(COND
((EQ (JSYS 195 262143 0 0 2)
6)
T])
(EMACS:.FKEYS
[LAMBDA NIL (* edited:
"18-Jan-80 16:31")
") (SET.FKEY 1 " X^R Pretty Print
") (SET.FKEY 2 " X^R Print to Level
") (SET.FKEY 3 " X^R Arglist
") (SET.FKEY 4 " X^R Exit to LISP
(SET.FKEY 5 " ")
(SET.FKEY 6 " X")
(SET.FKEY 7 "")
"]) (SET.FKEY 8 " X^R Replace Sexp
)
(RPAQQ HPEMACSVARS ((EMACS.ENTRY.HOOK (QUOTE (COND ((HP264XP)
(ENABLE.KEYPAD)
(APPLY EMACS.FKEYS))
)))
(EMACS.EXIT.HOOK (QUOTE (COND ((HP264XP)
(DISABLE.KEYPAD)))))
(EMACS.INIT.HOOK (QUOTE (PROGN (ECHOCONTROL
10
(QUOTE REAL))
(ECHOCONTROL
26
(QUOTE REAL))
(ECHOCONTROL
28
(QUOTE REAL))
(COND ((HP264XP)
(
DISABLE.KEYPAD)))
(CLEAR.DISPLAY.SCREEN
))))))
(RPAQQ EMACS.ENTRY.HOOK (COND ((HP264XP)
(ENABLE.KEYPAD)
(APPLY EMACS.FKEYS))))
(RPAQQ EMACS.EXIT.HOOK (COND ((HP264XP)
(DISABLE.KEYPAD))))
(RPAQQ EMACS.INIT.HOOK (PROGN (ECHOCONTROL 10 (QUOTE REAL))
(ECHOCONTROL 26 (QUOTE REAL))
(ECHOCONTROL 28 (QUOTE REAL))
(COND ((HP264XP)
(DISABLE.KEYPAD)))
(CLEAR.DISPLAY.SCREEN)))
(RPAQQ HPEMACSUSERMACROS (EMACS:))
(ADDTOVAR EDITMACROS (EMACS:
NIL
(BIND (COMS (CONS (QUOTE COMSQ)
(PROG ((EMACS.RETURN.CASES (QUOTE
EMACS:.RETURN))
(EMACS.FKEYS (QUOTE EMACS:.FKEYS)))
(DUMPX (##))
(RETURN (DOWN))))))))
(DECLARE: DONTCOPY
(FILEMAP (NIL (515 3599 (DISABLE.KEYPAD 527 . 822) (CLEAR.DISPLAY.SCREEN
826 . 1116) (EMACS.DEFAULT.FKEYS 1120 . 1483) (POSITION.CURSOR 1487 .
1814) (SEND.ESC.SEQUENCE 1818 . 2136) (SEND.TERMINAL.CONTROL 2140 . 2587
) (SET.FKEY 2591 . 2774) (ENABLE.KEYPAD 2778 . 3072) (HP264XP 3076 .
3232) (EMACS:.FKEYS 3236 . 3596)))))
STOP
Local Modes:
Mode:Interlisp
End: