# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1125399041 0
# Node ID 4d20d00ea5c4814bce96761a20941e98fbf314c6
# Parent  b61a0ad9cf07cef4639a4d0c6b902fcfc39cf0b5
(fortran-indent-to-column): "?\ " -> "?\s".
(font-lock-syntactic-keywords, gud-find-expr-function): Add defvars.

diff -r b61a0ad9cf07 -r 4d20d00ea5c4 lisp/progmodes/fortran.el
--- a/lisp/progmodes/fortran.el	Tue Aug 30 10:46:43 2005 +0000
+++ b/lisp/progmodes/fortran.el	Tue Aug 30 10:50:41 2005 +0000
@@ -55,6 +55,8 @@
 
 (eval-when-compile			; silence compiler
   (defvar dabbrev-case-fold-search)
+  (defvar font-lock-syntactic-keywords)
+  (defvar gud-find-expr-function)
   (defvar imenu-case-fold-search)
   (defvar imenu-syntax-alist))
 
@@ -1646,7 +1648,7 @@
 	    (let* ((char (if (stringp fortran-comment-indent-char)
 			     (aref fortran-comment-indent-char 0)
 			   fortran-comment-indent-char))
-		   (chars (string ?  ?\t char)))
+		   (chars (string ?\s ?\t char)))
 	      (goto-char (match-end 0))
 	      (skip-chars-backward chars)
 	      (delete-region (point) (progn (skip-chars-forward chars)
@@ -1656,7 +1658,7 @@
 	  (if indent-tabs-mode
 	      (goto-char (match-end 0))
 	    (delete-char 2)
-	    (insert-char ?  5)
+	    (insert-char ?\s 5)
 	    (insert fortran-continuation-string))
 	(if (looking-at " \\{5\\}[^ 0\n]")
 	    (if indent-tabs-mode