aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2005-08-30 10:50:41 +0000
committerJuanma Barranquero2005-08-30 10:50:41 +0000
commit1769936dd0434f817a28e1cba684f31b17e09a4e (patch)
treef522689c93c4c02cfdd7c5e9f40584fbf6797842
parentb5b0cb3475011f56fa86c9e5fdff6e8924bc36bc (diff)
downloademacs-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.el6
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