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

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

self-insert-command.
parent 055e0d88
...@@ -1055,10 +1055,10 @@ block[ \t]*data\\)\\>") ...@@ -1055,10 +1055,10 @@ block[ \t]*data\\)\\>")
(f90-change-keywords f90-auto-keyword-case (f90-change-keywords f90-auto-keyword-case
(line-beginning-position) (line-end-position)))) (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." "Change keyword case and auto-fill line as operators are inserted."
(interactive) (interactive "*p")
(self-insert-command 1) (self-insert-command arg)
(if auto-fill-function (f90-do-auto-fill) ; also updates line (if auto-fill-function (f90-do-auto-fill) ; also updates line
(f90-update-line))) (f90-update-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