Commits

Anonymous committed 75ff6f3

2001-12-05 Vaclav Barta <vbar@comp.cz>

* cperl-mode.pl: Got fill-paragraph-or-region to use
cperl-fill-paragraph.

Comments (0)

Files changed (2)

+2001-12-05  Vaclav Barta  <vbar@comp.cz>
+
+	* cperl-mode.pl: Got fill-paragraph-or-region to use
+	cperl-fill-paragraph.
+
 2001-12-02  Steve Youngs  <youngs@xemacs.org>
 
 	* mode-compile.el (python-dbg-flags): Typo fix.
 		  '(t (cperl-fontify-syntaxically))
 		'(t)))))
   (make-local-variable 'cperl-old-style)
+  (setq fill-paragraph-function 'cperl-fill-paragraph)
   (or (fboundp 'cperl-old-auto-fill-mode)
       (progn
 	(fset 'cperl-old-auto-fill-mode (symbol-function 'auto-fill-mode))
 		  (delete-char -1))))))))
 
 ;; Stolen from lisp-mode with a lot of improvements
-
+;; 5Dec2001: modified to always return t
 (defun cperl-fill-paragraph (&optional justify iteration)
   "Like \\[fill-paragraph], but handle CPerl comments.
 If any of the current line is a comment, fill the comment or the
 	      (setq comment-column c)
 	      (indent-for-comment)
 	      ;; Repeat once more, flagging as iteration
-	      (cperl-fill-paragraph justify t)))))))
+	      (cperl-fill-paragraph justify t))))))
+  t)
 
 (defun cperl-do-auto-fill ()
   ;; Break out if the line is short enough