From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 3 Mar 2002 16:52:58 +0000 (+0000)
Subject: (mouse-region-delete-keys): Add deletechar.
X-Git-Tag: ttn-vms-21-2-B4~16381
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=88f20a3dd87317c06bea9f44009a1e3735d5766b;p=emacs.git

(mouse-region-delete-keys): Add deletechar.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index db8d0bb1f68..a6330fe0d2a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-03-03  Eli Zaretskii  <eliz@is.elta.co.il>
+
+	* mouse.el (mouse-region-delete-keys): Add deletechar.
+
 2002-03-03  Sam Steingold  <sds@gnu.org>
 
 	* play/snake.el (snake-score-file): Fixed parens (broken by the
diff --git a/lisp/mouse.el b/lisp/mouse.el
index 9d9bee17005..f5e855f0920 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1001,7 +1001,7 @@ If DIR is positive skip forward; if negative, skip backward."
 
 ;; Momentarily show where the mark is, if highlighting doesn't show it.
 
-(defvar mouse-region-delete-keys '([delete])
+(defvar mouse-region-delete-keys '([delete] [deletechar])
   "List of keys which shall cause the mouse region to be deleted.")
 
 (defun mouse-show-mark ()