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

(c-setup-paragraph-variables): Ensure paragraph-\(start\|separate\) match

Browse source 
blank lines.  For AWK Mode.
This commit is contained in:
Alan Mackenzie 2009-01-05 21:22:20 +00:00
parent ac4e7a307f
commit 49be4f8800
1 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/progmodes/cc-styles.el
View file

@ -510,14 +510,21 @@ variables."
(assoc 'other c-comment-prefix-regexp)))
c-comment-prefix-regexp))
(let ((comment-line-prefix
(concat "[ \t]*\\(" c-current-comment-prefix "\\)[ \t]*")))
(let* ((empty-is-prefix (string-match c-current-comment-prefix ""))
(nonws-comment-line-prefix
(concat "\\(" c-current-comment-prefix "\\)[ \t]*"))
(comment-line-prefix (concat "[ \t]*" nonws-comment-line-prefix))
(blank-or-comment-line-prefix
(concat "[ \t]*"
(if empty-is-prefix "" "\\(")
nonws-comment-line-prefix
(if empty-is-prefix "" "\\)?"))))
(setq paragraph-start (concat comment-line-prefix
(setq paragraph-start (concat blank-or-comment-line-prefix
c-paragraph-start
"\\|"
page-delimiter)
paragraph-separate (concat comment-line-prefix
paragraph-separate (concat blank-or-comment-line-prefix
c-paragraph-separate
"\\|"
page-delimiter)