home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / demacs / lisp / bobcat.elc < prev    next >
Encoding:
Text File  |  1991-11-23  |  198 b   |  3 lines
  1.  
  2. (let ((the-table (make-string 128 0))) (let ((i 0)) (while (< i 128) (aset the-table i i) (setq i (1+ i)))) (aset the-table 127 8) (aset the-table 8 127) (setq keyboard-translate-table the-table))
  3.