X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/e5803d84f59034cb37a36f21bd7b3bc370437c8e..cbc121c7bab1d0773b1968225ed7b23825bf8072:/lisp/progmodes/f90.el

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index e661552c33..cdbc24cd39 100644
--- 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.