From: Glenn Morris <rgm@gnu.org>
Date: Mon, 11 Apr 2005 15:23:20 +0000 (+0000)
Subject: (f90-electric-insert): Add optional prefix arg, and pass to
X-Git-Tag: ttn-vms-21-2-B4~1074
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d694ccd7e57d75902aa1b466040453ddd9f0d63d;p=emacs.git

(f90-electric-insert): Add optional prefix arg, and pass to
self-insert-command.
---

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 4c8b847b7cd..14363e4dccf 100644
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -1055,10 +1055,10 @@ block[ \t]*data\\)\\>")
       (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)))