[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: cperl-fill-paragraph broken
From: |
Stefan Monnier |
Subject: |
Re: cperl-fill-paragraph broken |
Date: |
03 Nov 2003 10:00:46 -0500 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.3.50 |
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]