diff options
| author | Juanma Barranquero | 2005-08-30 10:50:41 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2005-08-30 10:50:41 +0000 |
| commit | 1769936dd0434f817a28e1cba684f31b17e09a4e (patch) | |
| tree | f522689c93c4c02cfdd7c5e9f40584fbf6797842 | |
| parent | b5b0cb3475011f56fa86c9e5fdff6e8924bc36bc (diff) | |
| download | emacs-1769936dd0434f817a28e1cba684f31b17e09a4e.tar.gz emacs-1769936dd0434f817a28e1cba684f31b17e09a4e.zip | |
(fortran-indent-to-column): "?\ " -> "?\s".
(font-lock-syntactic-keywords, gud-find-expr-function): Add defvars.
| -rw-r--r-- | lisp/progmodes/fortran.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 5ea2e4b7838..3b6c77fef29 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el | |||
| @@ -55,6 +55,8 @@ | |||
| 55 | 55 | ||
| 56 | (eval-when-compile ; silence compiler | 56 | (eval-when-compile ; silence compiler |
| 57 | (defvar dabbrev-case-fold-search) | 57 | (defvar dabbrev-case-fold-search) |
| 58 | (defvar font-lock-syntactic-keywords) | ||
| 59 | (defvar gud-find-expr-function) | ||
| 58 | (defvar imenu-case-fold-search) | 60 | (defvar imenu-case-fold-search) |
| 59 | (defvar imenu-syntax-alist)) | 61 | (defvar imenu-syntax-alist)) |
| 60 | 62 | ||
| @@ -1646,7 +1648,7 @@ notes: 1) A non-zero/non-blank character in column 5 indicates a continuation | |||
| 1646 | (let* ((char (if (stringp fortran-comment-indent-char) | 1648 | (let* ((char (if (stringp fortran-comment-indent-char) |
| 1647 | (aref fortran-comment-indent-char 0) | 1649 | (aref fortran-comment-indent-char 0) |
| 1648 | fortran-comment-indent-char)) | 1650 | fortran-comment-indent-char)) |
| 1649 | (chars (string ? ?\t char))) | 1651 | (chars (string ?\s ?\t char))) |
| 1650 | (goto-char (match-end 0)) | 1652 | (goto-char (match-end 0)) |
| 1651 | (skip-chars-backward chars) | 1653 | (skip-chars-backward chars) |
| 1652 | (delete-region (point) (progn (skip-chars-forward chars) | 1654 | (delete-region (point) (progn (skip-chars-forward chars) |
| @@ -1656,7 +1658,7 @@ notes: 1) A non-zero/non-blank character in column 5 indicates a continuation | |||
| 1656 | (if indent-tabs-mode | 1658 | (if indent-tabs-mode |
| 1657 | (goto-char (match-end 0)) | 1659 | (goto-char (match-end 0)) |
| 1658 | (delete-char 2) | 1660 | (delete-char 2) |
| 1659 | (insert-char ? 5) | 1661 | (insert-char ?\s 5) |
| 1660 | (insert fortran-continuation-string)) | 1662 | (insert fortran-continuation-string)) |
| 1661 | (if (looking-at " \\{5\\}[^ 0\n]") | 1663 | (if (looking-at " \\{5\\}[^ 0\n]") |
| 1662 | (if indent-tabs-mode | 1664 | (if indent-tabs-mode |