(global-map): Bind M-S-<backspace to

kill-whole-line.

2 files changed, 6 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cca5059ba91..3c9115c17bb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-05-27  Kai Gro,A_(Bjohann  <kai.grossjohann@gmx.net>
+
+        * bindings.el (global-map): Bind M-S-<backspace to
+        kill-whole-line.
+
 2003-05-26  John Paul Wallington  <jpw@gnu.org>
 
         * faces.el (display-supports-face-attributes-p): Doc fix.
diff --git a/lisp/bindings.el b/lisp/bindings.el
index f95a3f588c2..7da49a71c90 100644
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -743,6 +743,7 @@ language you are using."
 ;(define-key global-map [delete] 'backward-delete-char)
 
 ;; natural bindings for terminal keycaps --- defined in X keysym order
+(define-key global-map [M-S-backspace]  'kill-whole-line)
 (define-key global-map [home]           'beginning-of-line)
 (define-key global-map [C-home]         'beginning-of-buffer)
 (define-key global-map [M-home]         'beginning-of-buffer-other-window)