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)