From: Glenn Morris <rgm@gnu.org>
Date: Fri, 30 Apr 2004 18:52:11 +0000 (+0000)
Subject: (f90-get-present-comment-type): Return whitespace, as well as comment
X-Git-Tag: ttn-vms-21-2-B4~6505
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=718d07060aee5c5646f5eb73e04e96ca61e05737;p=emacs.git

(f90-get-present-comment-type): Return whitespace, as well as comment
chars, for consistent filling of comment blocks.  Use
`match-string-no-properties'.
(f90-break-line): Do not leave trailing whitespace when filling
comments.
---

diff --git a/lisp/progmodes/f90.el b/lisp/progmodes/f90.el
index 11553a1fdb6..aada9be16dc 100644
--- a/lisp/progmodes/f90.el
+++ b/lisp/progmodes/f90.el
@@ -850,14 +850,16 @@ line-number before indenting."
 
 (defsubst f90-get-present-comment-type ()
   "If point lies within a comment, return the string starting the comment.
-For example, \"!\" or \"!!\"."
+For example, \"!\" or \"!!\", followed by the appropriate amount of
+whitespace, if any."
+  ;; Include the whitespace for consistent auto-filling of comment blocks.
   (save-excursion
     (when (f90-in-comment)
       (beginning-of-line)
-      (re-search-forward "!+" (line-end-position))
+      (re-search-forward "!+[ \t]*" (line-end-position))
       (while (f90-in-string)
-        (re-search-forward "!+" (line-end-position)))
-      (match-string 0))))
+        (re-search-forward "!+[ \t]*" (line-end-position)))
+      (match-string-no-properties 0))))
 
 (defsubst f90-equal-symbols (a b)
   "Compare strings A and B neglecting case and allowing for nil value."
@@ -1519,6 +1521,7 @@ is non-nil, call `f90-update-line' after inserting the continuation marker."
   (cond ((f90-in-string)
          (insert "&\n&"))
         ((f90-in-comment)
+         (delete-horizontal-space 'backwards) ; remove trailing whitespace
          (insert "\n" (f90-get-present-comment-type)))
         (t (insert "&")
            (or no-update (f90-update-line))