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

[Robert Strandh]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv586

Modified Files:
	gui.lisp 
Log Message:
I made a mistake trying to fix the conflict in gui.lisp.  It should
be OK now.

Date: Sat Dec 25 14:36:21 2004
Author: rstrandh

Index: climacs/gui.lisp
diff -u climacs/gui.lisp:1.14 climacs/gui.lisp:1.15
--- climacs/gui.lisp:1.14	Sat Dec 25 13:29:24 2004
+++ climacs/gui.lisp	Sat Dec 25 14:36:20 2004
@@ -316,10 +316,6 @@
   (add-command-to-command-table command 'c-x-climacs-table
 				:keystroke gesture :errorp nil))
 
-(defun c-x-set-key (gesture command)
-  (add-command-to-command-table command 'c-x-climacs-table
-				:keystroke gesture :errorp nil))
-
 ;;; for some reason, C-c does not seem to arrive as far as CLIM.
 (c-x-set-key '(#\q :control) 'com-quit)
 (c-x-set-key '(#\f :control) 'com-find-file)