From: Kai Großjohann <kgrossjo@eu.uu.net>
Date: Tue, 27 May 2003 13:57:22 +0000 (+0000)
Subject: (global-map): Bind M-S-<backspace to
X-Git-Tag: ttn-vms-21-2-B4~9923
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=61d41830c8e873e42574a07e4cbd9ba8318f843d;p=emacs.git

(global-map): Bind M-S-<backspace to
kill-whole-line.
---

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)