mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(fortran-mode): Don't set

Browse source 
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.
This commit is contained in:
Dave Love 2000-11-28 10:55:35 +00:00
parent 665b27a691
commit 8b31236d80
2 changed files with 13 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/ChangeLog
View file

@ -1,3 +1,11 @@
2000-11-28 Dave Love <fx@gnu.org>
* progmodes/fortran.el (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.
2000-11-28 Gerd Moellmann <gerd@gnu.org>
* play/5x5.el: Remove RCS keyword.
@ -29,6 +37,8 @@
2000-11-27 Dave Love <fx@gnu.org>
* net/ldap.el (ldap) <defgroup>: Add :version.
* tooltip.el (tooltip-use-echo-area): Doc fix.
* cus-start.el <minibuffer-prompt-properties>: Add version.

9
lisp/progmodes/fortran.el
View file

@ -130,7 +130,7 @@ You might want to change this to \"*\", for instance."
;; 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 @@ with no args, if that value is non-nil."
(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 @@ Intended as the value of `fill-paragraph-function'."
;; 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))