home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / utility / text / emacsb1.lzh / emacs-18.58 / emacs < prev    next >
Encoding:
AmigaDOS Script File  |  1992-05-14  |  243 b   |  12 lines
  1. .key a1,a2,a3,a4,a5,a6,a7,a8,a9
  2. set stk=`stack`
  3. set stack `rx "say subword($stk, 5, 1)"`
  4. unset stk
  5. if not $stack gt 40000 val
  6.   stack 40000
  7. endif
  8. run >nil: gnuemacs:temacs <a1> <a2> <a3> <a4> <a5> <a6> <a7> <a8> <a9>
  9. stack $stack
  10. unset stack
  11.  
  12.