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

[Robert Strandh]

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

Modified Files:
	gui.lisp 
Log Message:
Give the user a message after C-g.

Date: Tue Feb 22 09:29:03 2005
Author: rstrandh

Index: climacs/gui.lisp
diff -u climacs/gui.lisp:1.119 climacs/gui.lisp:1.120
--- climacs/gui.lisp:1.119	Tue Feb 22 08:29:08 2005
+++ climacs/gui.lisp	Tue Feb 22 09:29:03 2005
@@ -292,7 +292,7 @@
 			    (when (null (remaining-keys *application-frame*))
 			      (setf (executingp *application-frame*) nil)
 			      (redisplay-frame-panes frame))))
-	       (abort-gesture () nil))
+	       (abort-gesture () (display-message "Quit")))
 	     (beep)
 	     (let ((buffer (buffer (current-window))))
 	       (when (modified-p buffer)