From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 30 Aug 2005 10:50:41 +0000 (+0000)
Subject: (fortran-indent-to-column): "?\ " -> "?\s".
X-Git-Tag: emacs-pretest-22.0.90~7359
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1769936dd0434f817a28e1cba684f31b17e09a4e;p=emacs.git

(fortran-indent-to-column): "?\ " -> "?\s".
(font-lock-syntactic-keywords, gud-find-expr-function): Add defvars.
---

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 @@
 
 (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 @@ notes: 1) A non-zero/non-blank character in column 5 indicates a continuation
 	    (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 @@ notes: 1) A non-zero/non-blank character in column 5 indicates a continuation
 	  (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