# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 975408871 0
# Node ID 7ade0d187b77083046d5b0f3a8d2d68a2facbe71
# Parent  0226ac0317a9adea91308c1ce2a3e1ef36bc94d6
(fortran-mode): Don't set
fortran-comment-line-start-skip.  Set comment-start to
fortran-comment-line-start.
(fortran-fill-paragraph) <non-empty-comment>: Remove regexp group.
(fortran-comment-line-start-skip): Simplify slightly.

diff -r 0226ac0317a9 -r 7ade0d187b77 lisp/progmodes/fortran.el
--- a/lisp/progmodes/fortran.el	Tue Nov 28 10:39:53 2000 +0000
+++ b/lisp/progmodes/fortran.el	Tue Nov 28 10:54:31 2000 +0000
@@ -130,7 +130,7 @@
 ;; This used to match preprocessor lines too, but that messes up
 ;; filling and doesn't seem to be necessary.
 (defcustom fortran-comment-line-start-skip
-  "^[CcDd*!]\\(\\([^ \t\n]\\)\\2\\2*\\)?[ \t]*"
+  "^[CcDd*!]\\(\\([^ \t\n]\\)\\2+\\)?[ \t]*"
   "*Regexp to match the start of a full-line comment."
   :version "21.1"
   :type 'regexp
@@ -636,10 +636,8 @@
   (setq comment-indent-function 'fortran-comment-indent)
   (make-local-variable 'comment-start-skip)
   (setq comment-start-skip "![ \t]*")
-  (setq fortran-comment-line-start-skip
-	"^[Cc*]\\(\\([^ \t\n]\\)\\2\\2*\\)?[ \t]*\\|^#.*")
   (make-local-variable 'comment-start)
-  (setq fortran-comment-line-start "c")
+  (setq comment-start fortran-comment-line-start)
   (make-local-variable 'require-final-newline)
   (setq require-final-newline t)
   (make-local-variable 'abbrev-all-caps)
@@ -1737,8 +1735,7 @@
 	;; comments.  (Get positions as markers, since the
 	;; `indent-region' below can shift the block's end).
 	(let* ((non-empty-comment 
-		(concat "\\(" fortran-comment-line-start-skip "\\)"
-			"[^ \t\n]"))
+		(concat fortran-comment-line-start-skip "[^ \t\n]"))
 	       (start (save-excursion
 			;; Find (start of) first line.
 			(while (and (zerop (forward-line -1))