55 |
|
|
56 |
(eval-when-compile ; silence compiler |
(eval-when-compile ; silence compiler |
57 |
(defvar dabbrev-case-fold-search) |
(defvar dabbrev-case-fold-search) |
58 |
|
(defvar font-lock-syntactic-keywords) |
59 |
|
(defvar gud-find-expr-function) |
60 |
(defvar imenu-case-fold-search) |
(defvar imenu-case-fold-search) |
61 |
(defvar imenu-syntax-alist)) |
(defvar imenu-syntax-alist)) |
62 |
|
|
1648 |
(let* ((char (if (stringp fortran-comment-indent-char) |
(let* ((char (if (stringp fortran-comment-indent-char) |
1649 |
(aref fortran-comment-indent-char 0) |
(aref fortran-comment-indent-char 0) |
1650 |
fortran-comment-indent-char)) |
fortran-comment-indent-char)) |
1651 |
(chars (string ? ?\t char))) |
(chars (string ?\s ?\t char))) |
1652 |
(goto-char (match-end 0)) |
(goto-char (match-end 0)) |
1653 |
(skip-chars-backward chars) |
(skip-chars-backward chars) |
1654 |
(delete-region (point) (progn (skip-chars-forward chars) |
(delete-region (point) (progn (skip-chars-forward chars) |
1658 |
(if indent-tabs-mode |
(if indent-tabs-mode |
1659 |
(goto-char (match-end 0)) |
(goto-char (match-end 0)) |
1660 |
(delete-char 2) |
(delete-char 2) |
1661 |
(insert-char ? 5) |
(insert-char ?\s 5) |
1662 |
(insert fortran-continuation-string)) |
(insert fortran-continuation-string)) |
1663 |
(if (looking-at " \\{5\\}[^ 0\n]") |
(if (looking-at " \\{5\\}[^ 0\n]") |
1664 |
(if indent-tabs-mode |
(if indent-tabs-mode |