home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / editors / demacs-5.arj / BOBCAT.ELC < prev    next >
Lisp/Scheme  |  1991-11-23  |  198b  |  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.