# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1048293600 0
# Node ID a716a67fdf9dcfe0e26a83bf2bc64fff4054185b
# Parent  4afa870a40102e3f014f9875e9b28d59fde5fce7
(cperl-electric-backspace): Add delete-selection property.

diff -r 4afa870a4010 -r a716a67fdf9d lisp/progmodes/cperl-mode.el
--- a/lisp/progmodes/cperl-mode.el	Sat Mar 22 00:39:38 2003 +0000
+++ b/lisp/progmodes/cperl-mode.el	Sat Mar 22 00:40:00 2003 +0000
@@ -2232,6 +2232,8 @@
 	  (backward-delete-char-untabify arg)
 	(delete-backward-char arg)))))
 
+(put 'cperl-electric-backspace 'delete-selection 'supersede)
+
 (defun cperl-inside-parens-p ()
   (condition-case ()
       (save-excursion