[Emacs-diffs] Changes to emacs/lisp/progmodes/perl-mode.el

[Stefan Monnier]

Index: emacs/lisp/progmodes/perl-mode.el
diff -c emacs/lisp/progmodes/perl-mode.el:1.50 
emacs/lisp/progmodes/perl-mode.el:1.51
*** emacs/lisp/progmodes/perl-mode.el:1.50      Fri Dec 31 14:55:01 2004
--- emacs/lisp/progmodes/perl-mode.el   Mon Jan  3 20:46:21 2005
***************
*** 1,6 ****
  ;;; perl-mode.el --- Perl code editing commands for GNU Emacs
  
! ;; Copyright (C) 1990, 1994, 2003  Free Software Foundation, Inc.
  
  ;; Author: William F. Mann
  ;; Maintainer: FSF
--- 1,6 ----
  ;;; perl-mode.el --- Perl code editing commands for GNU Emacs
  
! ;; Copyright (C) 1990, 1994, 2003, 2005  Free Software Foundation, Inc.
  
  ;; Author: William F. Mann
  ;; Maintainer: FSF
***************
*** 408,414 ****
  create a new comment."
    :type 'boolean)
  
! (defcustom perl-nochange ";?#\\|\f\\|\\s(\\|\\(\\w\\|\\s_\\)+:"
    "*Lines starting with this regular expression are not auto-indented."
    :type 'regexp)
  
--- 408,414 ----
  create a new comment."
    :type 'boolean)
  
! (defcustom perl-nochange ";?#\\|\f\\|\\s(\\|\\(\\w\\|\\s_\\)+:[^:]"
    "*Lines starting with this regular expression are not auto-indented."
    :type 'regexp)
  
***************
*** 769,775 ****
                           (skip-chars-forward " \t\f\n")
                           (cond ((looking-at ";?#")
                                  (forward-line 1) t)
!                                ((looking-at "\\(\\w\\|\\s_\\)+:")
                                  (save-excursion
                                    (end-of-line)
                                    (setq colon-line-end (point)))
--- 769,775 ----
                           (skip-chars-forward " \t\f\n")
                           (cond ((looking-at ";?#")
                                  (forward-line 1) t)
!                                ((looking-at "\\(\\w\\|\\s_\\)+:[^:]")
                                  (save-excursion
                                    (end-of-line)
                                    (setq colon-line-end (point)))
***************
*** 929,933 ****
  
  (provide 'perl-mode)
  
! ;;; arch-tag: 8c7ff68d-15f3-46a2-ade2-b7c41f176826
  ;;; perl-mode.el ends here
--- 929,933 ----
  
  (provide 'perl-mode)
  
! ;; arch-tag: 8c7ff68d-15f3-46a2-ade2-b7c41f176826
  ;;; perl-mode.el ends here