Commit d694ccd7 authored by Glenn Morris's avatar Glenn Morris
Browse files

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

parent 055e0d88
......@@ -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."
(self-insert-command 1)
(interactive "*p")
(self-insert-command arg)
(if auto-fill-function (f90-do-auto-fill) ; also updates line
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment