[climacs-cvs] CVS update: climacs/gui.lisp

[Aleksandar Bakic]

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