This bug report will be sent to the Free Software Foundation, not to your local site managers! Please write in English if possible, because the Emacs maintainers usually do not have translators to read other languages for them.
Your bug report will be posted to the address@hidden mailing list.
Please describe exactly what actions triggered the bug and the precise symptoms of the bug:
* put the content between the === lines into bug.pl: ======================================== { # yadda yadda # yadda yadda } ======================================== * Start emacs with `runemacs -q' * C-x C-f bug.pl * M-x cperl-mode RET * M-< * C-n * M-q
Note that the buffer now looks like ======================================== { # yadda yadda yadda yadda } ========================================
This is a bug: the `#' character is missing from the third line.
The following patch (I can't remember where I got it from) fixes this, and perhaps other problems (I've been using it for months with no problems)
@@ -1086,7 +1080,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] @@ -4346,9 +4340,12 @@ (let ((c (save-excursion (beginning-of-line) (cperl-to-comment-or-eol) (point))) (s (memq (following-char) '(?\ ?\t))) marker) - (if (>= c (point)) nil + + (if (>= c (point)) + ;; Don't break line inside code: only inside comment. + nil (setq marker (point-marker)) - (cperl-fill-paragraph) + (fill-paragraph nil) (goto-char marker) ;; Is not enough, sometimes marker is a start of line (if (bolp) (progn (re-search-forward "#+[ \t]*")
In GNU Emacs 21.3.50.1 (i386-mingw-nt5.0.2195) of 2004-01-29 on SLOP configured using `configure --with-gcc (3.2)'
Important settings: value of $LC_ALL: nil value of $LC_COLLATE: nil value of $LC_CTYPE: nil value of $LC_MESSAGES: nil value of $LC_MONETARY: nil value of $LC_NUMERIC: nil value of $LC_TIME: nil value of $LANG: nil locale-coding-system: iso-latin-1 default-enable-multibyte-characters: t
Major mode: CPerl
Minor modes in effect: display-time-mode: t auto-compression-mode: t iswitchb-mode: t mouse-wheel-mode: t global-font-lock-mode: t font-lock-mode: t unify-8859-on-encoding-mode: t line-number-mode: t
Recent input: C-y C-y C-y C-y C-y C-y C-y C-y C-y C-y C-y C-y C-y C-y C-y M-q C-p M-q C-a C-M-o C-x C-o C-p M-q C-a C-p C-M-o { M-> } C-M-p C-M-q C-n M-q C-x u M-q C-x u C-n C-k C-x C-o C-p M-q C-p C-e M-q C-p C-e M-b M-b M-b M-b M-b M-b # SPC M-q C-x u M-f M-f C-k C-p C-k M-> M-x r e p l o r c p e r l - m o d e C-g C-h c M-q M-x r e M-p
Recent messages: Mark set Indenting... (100%) Undo! [3 times] Mark set Loading emacsbug...done Quit M-q runs the command cperl-fill-paragraph Loading dabbrev...done dabbrev-expand: No dynamic expansion for `cperl-fill' found dabbrev-expand: No dynamic expansion for `cperl-fill-pa' found
-- The one thing that unites all human beings, regardless of age, gender, religion, economic status or ethnic background, is that deep down inside, we all believe that we are above average drivers. -- Dave Barry