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*)