Mercurial > emacs

changeset 65230:4d20d00ea5c4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fortran-indent-to-column): "?\ " -> "?\s". (font-lock-syntactic-keywords, gud-find-expr-function): Add defvars.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 30 Aug 2005 10:50:41 +0000
parents b61a0ad9cf07
children cdfa3b89c6bb
files lisp/progmodes/fortran.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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