Update of /project/gsharp/cvsroot/gsharp In directory common-lisp.net:/tmp/cvs-serv14720

Modified Files: gui.lisp Log Message: Workaround the :shift problem with ## commands: add an unshifted variant.

Date: Wed Feb 18 13:16:16 2004 Author: crhodes

Index: gsharp/gui.lisp diff -u gsharp/gui.lisp:1.3 gsharp/gui.lisp:1.4 --- gsharp/gui.lisp:1.3 Mon Feb 16 13:43:54 2004 +++ gsharp/gui.lisp Wed Feb 18 13:16:16 2004 @@ -50,8 +50,10 @@ (add-command '(#.) 'com-more-dots *global-command-table*) (add-command '(#[) 'com-more-lbeams *global-command-table*) (add-command '(#]) 'com-more-rbeams *global-command-table*) +(add-command '(##) 'com-sharper *global-command-table*) (add-command '(## :shift) 'com-sharper *global-command-table*) (add-command '(#@ :shift) 'com-flatter *global-command-table*) +(add-command '(## :meta) 'com-more-sharps *global-command-table*) (add-command '(## :meta :shift) 'com-more-sharps *global-command-table*) (add-command '(#@ :meta :shift) 'com-more-flats *global-command-table*) (add-command '(#\u :meta) 'com-up *global-command-table*)