# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 791718481 0
# Node ID 3e851e5cab1f0ade462736e6b2c09ceaec1befba
# Parent  2c9bdcab7052b0568e145a06bcfce6694196d7d1
(c-mode-map): No binding for c-fill-paragraph
(c-fill-paragraph): Return t.
(c-mode): Put c-fill-paragraph in fill-paragraph-function.

diff -r 2c9bdcab7052 -r 3e851e5cab1f lisp/progmodes/c-mode.el
--- a/lisp/progmodes/c-mode.el	Thu Feb 02 09:44:38 1995 +0000
+++ b/lisp/progmodes/c-mode.el	Thu Feb 02 09:48:01 1995 +0000
@@ -45,7 +45,6 @@
 (define-key c-mode-map "\e\C-q" 'indent-c-exp)
 (define-key c-mode-map "\ea" 'c-beginning-of-statement)
 (define-key c-mode-map "\ee" 'c-end-of-statement)
-(define-key c-mode-map "\eq" 'c-fill-paragraph)
 (define-key c-mode-map "\C-c\C-n" 'c-forward-conditional)
 (define-key c-mode-map "\C-c\C-p" 'c-backward-conditional)
 (define-key c-mode-map "\C-c\C-u" 'c-up-conditional)
@@ -226,6 +225,8 @@
   (setq paragraph-separate paragraph-start)
   (make-local-variable 'paragraph-ignore-fill-prefix)
   (setq paragraph-ignore-fill-prefix t)
+  (make-local-variable 'fill-paragraph-function)
+  (setq fill-paragraph-function 'c-fill-paragraph)
   (make-local-variable 'indent-line-function)
   (setq indent-line-function 'c-indent-line)
   (make-local-variable 'indent-region-function)
@@ -476,7 +477,8 @@
 		      (forward-line -1)
 		      (fill-region-as-paragraph (point) (point-max)))))))
 	;; Outside of comments: do ordinary filling.
-	(fill-paragraph arg)))))
+	(fill-paragraph arg)))
+    t))
 
 (defun electric-c-brace (arg)
   "Insert character and correct line's indentation."