# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1113233000 0
# Node ID 7924ec3eef18e6c1901cef2b7d63ea38e1c861a4
# Parent  3cdcc88227a7174f941ddab74da8c953609e4029
(f90-electric-insert): Add optional prefix arg, and pass to
self-insert-command.

diff -r 3cdcc88227a7 -r 7924ec3eef18 lisp/progmodes/f90.el
--- a/lisp/progmodes/f90.el	Mon Apr 11 15:22:38 2005 +0000
+++ b/lisp/progmodes/f90.el	Mon Apr 11 15:23:20 2005 +0000
@@ -1055,10 +1055,10 @@
       (f90-change-keywords f90-auto-keyword-case
                            (line-beginning-position) (line-end-position))))
 
-(defun f90-electric-insert ()
+(defun f90-electric-insert (&optional arg)
   "Change keyword case and auto-fill line as operators are inserted."
-  (interactive)
-  (self-insert-command 1)
+  (interactive "*p")
+  (self-insert-command arg)
   (if auto-fill-function (f90-do-auto-fill) ; also updates line
     (f90-update-line)))