# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1266546970 28800
# Node ID 3c104aea26ebafbc5198adebfdcc7a1ed56fdbd7
# Parent  f14b4c307fe18e3bfb7c0063eabbb81ac9f3a212
Close bug#5593.

* progmodes/f90.el (f90-electric-insert): Give it a delete-selection property.

diff -r f14b4c307fe1 -r 3c104aea26eb lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Feb 18 18:32:36 2010 -0800
+++ b/lisp/ChangeLog	Thu Feb 18 18:36:10 2010 -0800
@@ -1,3 +1,8 @@
+2010-02-19  Glenn Morris  <rgm@gnu.org>
+
+	* progmodes/f90.el (f90-electric-insert): Give it a delete-selection
+	property.  (Bug#5593)
+
 2010-02-18  Sam Steingold  <sds@gnu.org>
 
 	* vc-cvs.el (vc-cvs-merge-news): Yet another fix of message parsing.
diff -r f14b4c307fe1 -r 3c104aea26eb lisp/progmodes/f90.el
--- a/lisp/progmodes/f90.el	Thu Feb 18 18:32:36 2010 -0800
+++ b/lisp/progmodes/f90.el	Thu Feb 18 18:36:10 2010 -0800
@@ -1356,6 +1356,8 @@
   (if auto-fill-function (f90-do-auto-fill) ; also updates line
     (f90-update-line)))
 
+;; Behave like self-insert-command for delete-selection-mode (bug#5593).
+(put 'f90-electric-insert 'delete-selection t)
 
 (defun f90-get-correct-indent ()
   "Get correct indent for a line starting with line number.