Mercurial > emacs
diff lisp/progmodes/cc-styles.el @ 89909:68c22ea6027c
Sync to HEAD
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Fri, 16 Apr 2004 12:51:06 +0000 |
parents | 375f2633d815 |
children | d8411455de48 |
line wrap: on
line diff
--- a/lisp/progmodes/cc-styles.el Thu Apr 15 01:08:34 2004 +0000 +++ b/lisp/progmodes/cc-styles.el Fri Apr 16 12:51:06 2004 +0000 @@ -484,13 +484,17 @@ ;; ;; 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 @@ (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) @@ -618,4 +623,5 @@ (cc-provide 'cc-styles) +;;; arch-tag: c764f61a-96ba-484a-a68f-101c0e9d5d2c ;;; cc-styles.el ends here