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

kill-whole-line.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cca5059ba911ff65c0f11f2d16b526ad859d6aec..3c9115c17bbf3d10d9b9318eea5d9afc199673c2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-05-27  Kai Gro\e,A_\e(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 f95a3f588c22ebaeec1d82ffabbb884c621d68d9..7da49a71c904bee0b3c02e7c03c2cfdf34a05f4b 100644 (file)
--- 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)