Update of /project/climacs/cvsroot/climacs In directory common-lisp.net:/tmp/cvs-serv21795 Modified Files: gui.lisp Log Message: A minor refactoring, in fact to get around a CMUCL problem (probably related to eval-when...). Date: Sat Dec 25 00:17:48 2004 Author: abakic Index: climacs/gui.lisp diff -u climacs/gui.lisp:1.12 climacs/gui.lisp:1.13 --- climacs/gui.lisp:1.12 Fri Dec 24 09:21:34 2004 +++ climacs/gui.lisp Sat Dec 25 00:17:48 2004 @@ -301,14 +301,10 @@ ;;; for some reason, C-c does not seem to arrive as far as CLIM. -(add-command-to-command-table 'com-quit 'c-x-climacs-table - :keystroke '(#\q :control)) - -(add-command-to-command-table 'com-find-file 'c-x-climacs-table - :keystroke '(#\f :control)) - -(add-command-to-command-table 'com-save-buffer 'c-x-climacs-table - :keystroke '(#\s :control)) - - +(defun c-x-set-key (gesture command) + (add-command-to-command-table command 'c-x-climacs-table + :keystroke gesture :errorp nil)) +(c-x-set-key '(#\q :control) 'com-quit) +(c-x-set-key '(#\f :control) 'com-find-file) +(c-x-set-key '(#\s :control) 'com-save-buffer) \ No newline at end of file