Mercurial > emacs
changeset 33947:7ade0d187b77
(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.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Tue, 28 Nov 2000 10:54:31 +0000 |
| parents | 0226ac0317a9 |
| children | 703910cf20ec |
| files | lisp/progmodes/fortran.el |
| diffstat | 1 files changed, 3 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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))