1697 |
;; Change the keywords according to argument. |
;; Change the keywords according to argument. |
1698 |
(defun f90-change-keywords (change-word &optional beg end) |
(defun f90-change-keywords (change-word &optional beg end) |
1699 |
"Change the case of F90 keywords in the region (if specified) or buffer. |
"Change the case of F90 keywords in the region (if specified) or buffer. |
1700 |
CHANGE-WORD should be one of 'upcase-word, 'downcase-word, capitalize-word." |
CHANGE-WORD should be one of 'upcase-word, 'downcase-word, 'capitalize-word." |
1701 |
(save-excursion |
(save-excursion |
1702 |
(setq beg (or beg (point-min)) |
(setq beg (or beg (point-min)) |
1703 |
end (or end (point-max))) |
end (or end (point-max))) |