[climacs-devel] C-x C-c

[Robert Strandh]

Thanks, I'll put that in.  Nice.  

nyef at sc.am writes:
 > 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
 > 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)
 > _______________________________________________
 > climacs-devel mailing list
 > climacs-devel at common-lisp.net
 > http://common-lisp.net/cgi-bin/mailman/listinfo/climacs-devel

-- 
Robert Strandh

---------------------------------------------------------------------
Greenspun's Tenth Rule of Programming: any sufficiently complicated C
or Fortran program contains an ad hoc informally-specified bug-ridden
slow implementation of half of Common Lisp.
---------------------------------------------------------------------