Don't bind stop.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 95c1bfec90b..187d2ba59bf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-10-10  Dave Love  <fx@gnu.org>
+
+        * bindings.el: Don't bind stop.
+
 2003-10-08  Miles Bader  <miles@gnu.org>
 
         * gdb-ui.el (gdb-info-frames-custom): Use proper :inverse-video
diff --git a/lisp/bindings.el b/lisp/bindings.el
index 04353e9c7ec..ab5bb30699e 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -780,7 +780,9 @@ language you are using."
 (define-key global-map [redo]           'repeat-complex-command)
 (define-key global-map [again]          'repeat-complex-command) ; Sun keyboard
 (define-key global-map [open]           'find-file) ; Sun
-(define-key global-map [stop]           'keyboard-quit) ; Sun
+;; The following wouldn't work to interrupt running code since C-g is
+;; treated specially in the event loop.
+;; (define-key global-map [stop]                'keyboard-quit) ; Sun
 ;; (define-key global-map [clearline]   'function-key-error)
 (define-key global-map [insertline]     'open-line)
 (define-key global-map [deleteline]     'kill-line)