# HG changeset patch # User Stefan Monnier # Date 1104785182 0 # Node ID 7f974399bee1dc8aba619ea1b7496955b61d73a2 # Parent 6535aefcfd51afbbaedb6b7378ced66c16955ded (perl-nochange, perl-calculate-indent): Don't confuse module-prefixed identifiers for labels. Reported by Juan-Leon Lahoz Garcia . diff -r 6535aefcfd51 -r 7f974399bee1 lisp/ChangeLog --- a/lisp/ChangeLog Mon Jan 03 16:56:28 2005 +0000 +++ b/lisp/ChangeLog Mon Jan 03 20:46:22 2005 +0000 @@ -1,3 +1,9 @@ +2005-01-03 Stefan Monnier + + * progmodes/perl-mode.el (perl-nochange, perl-calculate-indent): + Don't confuse module-prefixed identifiers for labels. + Reported by Juan-Leon Lahoz Garcia . + 2005-01-02 Richard M. Stallman * files.el (basic-save-buffer-1): Fix previous change. diff -r 6535aefcfd51 -r 7f974399bee1 lisp/progmodes/perl-mode.el --- a/lisp/progmodes/perl-mode.el Mon Jan 03 16:56:28 2005 +0000 +++ b/lisp/progmodes/perl-mode.el Mon Jan 03 20:46:22 2005 +0000 @@ -1,6 +1,6 @@ ;;; perl-mode.el --- Perl code editing commands for GNU Emacs -;; Copyright (C) 1990, 1994, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1990, 1994, 2003, 2005 Free Software Foundation, Inc. ;; Author: William F. Mann ;; Maintainer: FSF @@ -408,7 +408,7 @@ create a new comment." :type 'boolean) -(defcustom perl-nochange ";?#\\|\f\\|\\s(\\|\\(\\w\\|\\s_\\)+:" +(defcustom perl-nochange ";?#\\|\f\\|\\s(\\|\\(\\w\\|\\s_\\)+:[^:]" "*Lines starting with this regular expression are not auto-indented." :type 'regexp) @@ -769,7 +769,7 @@ (skip-chars-forward " \t\f\n") (cond ((looking-at ";?#") (forward-line 1) t) - ((looking-at "\\(\\w\\|\\s_\\)+:") + ((looking-at "\\(\\w\\|\\s_\\)+:[^:]") (save-excursion (end-of-line) (setq colon-line-end (point))) @@ -929,5 +929,5 @@ (provide 'perl-mode) -;;; arch-tag: 8c7ff68d-15f3-46a2-ade2-b7c41f176826 +;; arch-tag: 8c7ff68d-15f3-46a2-ade2-b7c41f176826 ;;; perl-mode.el ends here