Commit f7abdcb7 authored by Robert Strandh's avatar Robert Strandh

Give the user a message after C-g.

parent 20200ac3
......@@ -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)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment