[Linedit-cvs] CVS update: src/terminal-translations.lisp

[Julian E. C. Squires]

Update of /project/linedit/cvsroot/src
In directory common-lisp.net:/tmp/cvs-serv7002

Modified Files:
	terminal-translations.lisp 
Log Message:
 * Fixed encoding of C-M- keys, such that they work on my OS X machine,
   and lisps like openmcl where the control characters aren't named like
   #\Ack.

Date: Tue Apr 27 15:56:54 2004
Author: jsquires

Index: src/terminal-translations.lisp
diff -u src/terminal-translations.lisp:1.8 src/terminal-translations.lisp:1.9
--- src/terminal-translations.lisp:1.8	Sun Apr 25 11:03:26 2004
+++ src/terminal-translations.lisp	Tue Apr 27 15:56:54 2004
@@ -96,9 +96,9 @@
 (deftrans "M-8" (#\Esc #\8) 184)
 (deftrans "M-9" (#\Esc #\9) 185)
 
-(deftrans "C-M-f" (#\Esc #\Ack))
-(deftrans "C-M-b" (#\Esc #\Stx))
-(deftrans "C-M-k" (#\Esc #\Vt)) 
+(deftrans "C-M-f" (#\Esc #\^F) 134)
+(deftrans "C-M-b" (#\Esc #\^B) 130)
+(deftrans "C-M-k" (#\Esc #\^K) 139) 
 
 (deftrans "Up-arrow"    (#\Esc #\[ #\A))
 (deftrans "Down-arrow"  (#\Esc #\[ #\B))