[climacs-devel] C-x C-c

[nyef at sc.am]

Hello all.

Just spent a little time poking at McCLIM since the C-x C-q to quit 
thing was bothering me, and I came up with somewhat of a solution. A 
patch is attached.

--Alastair Bridgewater
-------------- next part --------------
Index: gui.lisp
===================================================================
RCS file: /project/climacs/cvsroot/climacs/gui.lisp,v
retrieving revision 1.13
diff -u -r1.13 gui.lisp
--- gui.lisp	24 Dec 2004 23:17:48 -0000	1.13
+++ gui.lisp	27 Dec 2004 01:58:55 -0000
@@ -86,7 +86,8 @@
   (setf (slot-value frame 'win) (find-pane-named frame 'win))
   (let ((*standard-output* (frame-standard-output frame))
 	(*standard-input* (frame-standard-input frame))
-	(*print-pretty* nil))
+	(*print-pretty* nil)
+	(*abort-gestures* nil))
     (redisplay-frame-panes frame :force-p t)
     (loop with gestures = '()
 	  do (setf *current-gesture* (read-gesture :stream *standard-input*))
@@ -305,6 +306,6 @@
   (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 '(#\c :control) 'com-quit)
 (c-x-set-key '(#\f :control) 'com-find-file)
 (c-x-set-key '(#\s :control) 'com-save-buffer)