perl-mode problem in C-x ; comment-set-column

[Warren L Dodge]

I use the C-x ; runs the command comment-set-column command to format my
comments in the perl code I write. I have noticed in the last couple of years
of moving up to emacs-22.0.990 that the consistant operation I observed back
in 21.3 is gone. I usually put this line at the top of the file

# -*-mode: Perl; fill-column: 180; comment-column: 101; -*-

I then do a code macro to search for a # and do <esc>; to set the comments
position across the entire buffer. Many of the line align properly. Many do
not. In one file I shortened the comment back to position 60. Someof the
lines stayed out at 101. I then went in and remove all of the spaces between
the ; .. # and reexecuted the <esc>; and the comment moved out to 60.

I see other times where I moved the curse by habd up and do <esc>; on each
line and the comment lands all over the place. They won't line up.

Here is an example of one the did not move back in from 100 to 80

  if ( $argv_info_ref->{had_e_switch} ne "" )                                   
# did the user give a -E switch
  {
    $E_Switch .= " ; " . "$argv_info_ref->{had_e_switch}";                      
# add theirs to mine
  }
  push @{$argv_info_ref->{array_bsub_switches}},"-E";                           
                    # push -E onto bsub command switches
  push @{$argv_info_ref->{array_bsub_switches}},"$E_Switch";                    
                    # push cmd on
  
  for( $tmp=0; $tmp <= $#{$argv_info_ref->{array_bsub_switches}}; $tmp++)       
# scan all the args

All was tested with emacs -Q

Hopefully somethign can be done. I can help if needed.



In GNU Emacs 22.0.990.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2007-07-09 on zephyr
Windowing system distributor `Sun Microsystems, Inc.', version 11.0.6620
configured using `configure  '--prefix=/tools/wdtgnu/emacs-22.0.990' 
'--disable-nls''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: C
  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: C
  locale-coding-system: nil
  default-enable-multibyte-characters: t

Major mode: Help

Minor modes in effect:
  display-time-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: identity
  view-mode: t

Recent input:
<escape> x d e s c r i b e - k e y <return> C-x ; <down-mouse-1> 
<mouse-1> <double-down-mouse-1> <double-mouse-1> <triple-down-mouse-1> 
<triple-mouse-1> <escape> x r e p o r t - e <tab> 
<return>

Recent messages:
Loading icomplete...done
Loading complete...
Loading advice...done
Loading complete...done
Loading unique...done
Loading gnuserv...done
Loading /login/warrend/.emacs22...done
For information about the GNU Project and its goals, type <f1> C-p.
Type C-x 1 to remove help window.  
Loading emacsbug...done