Re: cperl-fill-paragraph broken

[Stefan Monnier]

A shot in the dark: does the following patch help?


        Stefan


--- cperl-mode.el.~1.47.~       2003-09-08 19:10:26.000000000 -0400
+++ cperl-mode.el       2003-11-03 09:58:15.000000000 -0500
@@ -1023,6 +1023,6 @@
   (cperl-define-key [?\C-\M-\|] 'cperl-lineup
                    [(control meta |)])
-  ;;(cperl-define-key "\M-q" 'cperl-fill-paragraph)
+  (set (make-local-variable 'fill-paragraph-function) 'cperl-fill-paragraph)
   ;;(cperl-define-key "\e;" 'cperl-indent-for-comment)
   (cperl-define-key "\177" 'cperl-electric-backspace)
   (cperl-define-key "\t" 'cperl-indent-command)
@@ -1063,9 +1064,6 @@
     (substitute-key-definition
      'indent-sexp 'cperl-indent-exp
      cperl-mode-map global-map)
-    (substitute-key-definition
-     'fill-paragraph 'cperl-fill-paragraph
-     cperl-mode-map global-map)
     (substitute-key-definition
      'indent-region 'cperl-indent-region
      cperl-mode-map global-map)
@@ -1086,7 +1087,7 @@
          ["End of function" end-of-defun t]
          ["Mark function" mark-defun t]
          ["Indent expression" cperl-indent-exp t]
-         ["Fill paragraph/comment" cperl-fill-paragraph t]
+         ["Fill paragraph/comment" fill-paragraph t]
          "----"
          ["Line up a construction" cperl-lineup (cperl-use-region-p)]
          ["Invert if/unless/while etc" cperl-invert-if-unless t]