(f90-indent-region): Bind case-fold-search to t.

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index e661552c33198e3f043838cbcd7dbf03491a04a0..cdbc24cd391769b57bb33845ca6d4ae5b9768783 100644 (file)
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -1470,6 +1470,7 @@ If run in the middle of a line, the line is not broken."
   (interactive "*r")
   (let ((end-region-mark (copy-marker end-region))
         (save-point (point-marker))
+        (case-fold-search t)
        block-list ind-lev ind-curr ind-b cont struct beg-struct end-struct)
     (goto-char beg-region)
     ;; First find a line which is not a continuation line or comment.