484 |
;; |
;; |
485 |
;; This function does not do any hidden buffer changes. |
;; This function does not do any hidden buffer changes. |
486 |
|
|
487 |
|
(interactive) |
488 |
|
|
489 |
(setq c-current-comment-prefix |
(setq c-current-comment-prefix |
490 |
(if (listp c-comment-prefix-regexp) |
(if (listp c-comment-prefix-regexp) |
491 |
(cdr-safe (or (assoc major-mode c-comment-prefix-regexp) |
(cdr-safe (or (assoc major-mode c-comment-prefix-regexp) |
492 |
(assoc 'other c-comment-prefix-regexp))) |
(assoc 'other c-comment-prefix-regexp))) |
493 |
c-comment-prefix-regexp)) |
c-comment-prefix-regexp)) |
494 |
|
|
495 |
(let ((comment-line-prefix |
(let ((comment-line-prefix |
496 |
(concat "[ \t]*\\(" c-current-comment-prefix "\\)[ \t]*"))) |
(concat "[ \t]*\\(" c-current-comment-prefix "\\)[ \t]*"))) |
497 |
|
|
498 |
(setq paragraph-start (concat comment-line-prefix |
(setq paragraph-start (concat comment-line-prefix |
499 |
c-paragraph-start |
c-paragraph-start |
500 |
"\\|" |
"\\|" |
512 |
(default-value 'adaptive-fill-regexp) |
(default-value 'adaptive-fill-regexp) |
513 |
"\\)") |
"\\)") |
514 |
""))) |
""))) |
515 |
|
|
516 |
(when (boundp 'adaptive-fill-first-line-regexp) |
(when (boundp 'adaptive-fill-first-line-regexp) |
517 |
;; XEmacs (20.x) adaptive fill mode doesn't have this. |
;; XEmacs (20.x) adaptive fill mode doesn't have this. |
518 |
(make-local-variable 'adaptive-fill-first-line-regexp) |
(make-local-variable 'adaptive-fill-first-line-regexp) |