Mercurial > emacs
comparison lisp/progmodes/f90.el @ 73870:c46f00343034
(f90-indent-region): Bind case-fold-search to t.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 10 Nov 2006 08:39:13 +0000 |
| parents | d7669e5fe59f |
| children | 2942fb5a1900 dbe3f29e61d6 |
comparison
equal
deleted
inserted
replaced
| 73869:d7ea4ca5e1e1 | 73870:c46f00343034 |
|---|---|
| 1468 (defun f90-indent-region (beg-region end-region) | 1468 (defun f90-indent-region (beg-region end-region) |
| 1469 "Indent every line in region by forward parsing." | 1469 "Indent every line in region by forward parsing." |
| 1470 (interactive "*r") | 1470 (interactive "*r") |
| 1471 (let ((end-region-mark (copy-marker end-region)) | 1471 (let ((end-region-mark (copy-marker end-region)) |
| 1472 (save-point (point-marker)) | 1472 (save-point (point-marker)) |
| 1473 (case-fold-search t) | |
| 1473 block-list ind-lev ind-curr ind-b cont struct beg-struct end-struct) | 1474 block-list ind-lev ind-curr ind-b cont struct beg-struct end-struct) |
| 1474 (goto-char beg-region) | 1475 (goto-char beg-region) |
| 1475 ;; First find a line which is not a continuation line or comment. | 1476 ;; First find a line which is not a continuation line or comment. |
| 1476 (beginning-of-line) | 1477 (beginning-of-line) |
| 1477 (while (and (looking-at "[ \t]*[0-9]*\\(!\\|#\\|[ \t]*$\\)") | 1478 (while (and (looking-at "[ \t]*[0-9]*\\(!\\|#\\|[ \t]*$\\)") |