diff options
| author | Glenn Morris | 2005-04-11 15:23:20 +0000 |
|---|---|---|
| committer | Glenn Morris | 2005-04-11 15:23:20 +0000 |
| commit | d694ccd7e57d75902aa1b466040453ddd9f0d63d (patch) | |
| tree | cce0d295794a854ce1809d83c9336791027e8446 | |
| parent | 055e0d881d6512d4e53ced46ed7d0156fdb45f48 (diff) | |
| download | emacs-d694ccd7e57d75902aa1b466040453ddd9f0d63d.tar.gz emacs-d694ccd7e57d75902aa1b466040453ddd9f0d63d.zip | |
(f90-electric-insert): Add optional prefix arg, and pass to
self-insert-command.
| -rw-r--r-- | lisp/progmodes/f90.el | 6 |
1 files changed, 3 insertions, 3 deletions
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\\)\\>") | |||
| 1055 | (f90-change-keywords f90-auto-keyword-case | 1055 | (f90-change-keywords f90-auto-keyword-case |
| 1056 | (line-beginning-position) (line-end-position)))) | 1056 | (line-beginning-position) (line-end-position)))) |
| 1057 | 1057 | ||
| 1058 | (defun f90-electric-insert () | 1058 | (defun f90-electric-insert (&optional arg) |
| 1059 | "Change keyword case and auto-fill line as operators are inserted." | 1059 | "Change keyword case and auto-fill line as operators are inserted." |
| 1060 | (interactive) | 1060 | (interactive "*p") |
| 1061 | (self-insert-command 1) | 1061 | (self-insert-command arg) |
| 1062 | (if auto-fill-function (f90-do-auto-fill) ; also updates line | 1062 | (if auto-fill-function (f90-do-auto-fill) ; also updates line |
| 1063 | (f90-update-line))) | 1063 | (f90-update-line))) |
| 1064 | 1064 | ||