(c-setup-paragraph-variables): Made it interactive.

This commit is contained in:
Martin Stjernholm 2003-09-24 13:56:27 +00:00
parent fa14078b4f
commit cfb966f42a

View file

@ -484,13 +484,17 @@ variables."
;;
;; This function does not do any hidden buffer changes.
(interactive)
(setq c-current-comment-prefix
(if (listp c-comment-prefix-regexp)
(cdr-safe (or (assoc major-mode c-comment-prefix-regexp)
(assoc 'other c-comment-prefix-regexp)))
c-comment-prefix-regexp))
(let ((comment-line-prefix
(concat "[ \t]*\\(" c-current-comment-prefix "\\)[ \t]*")))
(setq paragraph-start (concat comment-line-prefix
c-paragraph-start
"\\|"
@ -508,6 +512,7 @@ variables."
(default-value 'adaptive-fill-regexp)
"\\)")
"")))
(when (boundp 'adaptive-fill-first-line-regexp)
;; XEmacs (20.x) adaptive fill mode doesn't have this.
(make-local-variable 'adaptive-fill-first-line-regexp)