# HG changeset patch
# User Martin Stjernholm <mast@lysator.liu.se>
# Date 1044755075 0
# Node ID b025ca4050454cce54080d0fe39e1afa1e2ca5de
# Parent  783b5336021a86fcad04c2ae709ae6184c2169bd
(c-basic-common-init): Install `c-fill-paragraph' on
`fill-paragraph-function'.  Although it's not the normal way to call
it in a CC Mode buffer it makes a direct call to `fill-paragraph' work
better.

diff -r 783b5336021a -r b025ca405045 lisp/progmodes/cc-mode.el
--- a/lisp/progmodes/cc-mode.el	Sat Feb 08 17:28:43 2003 +0000
+++ b/lisp/progmodes/cc-mode.el	Sun Feb 09 01:44:35 2003 +0000
@@ -335,6 +335,12 @@
 	comment-start-skip "/\\*+ *\\|//+ *"
 	comment-multi-line t)
 
+  ;; Install `c-fill-paragraph' on `fill-paragraph-function' so that a
+  ;; direct call to `fill-paragraph' behaves better.  This still
+  ;; doesn't work with filladapt but it's better than nothing.
+  (make-local-variable 'fill-paragraph-function)
+  (setq fill-paragraph-function 'c-fill-paragraph)
+
   ;; Set `require-final-newline' only if we should.
   (let ((rfn (assq mode c-require-final-newline)))
     (when rfn