/[emacs]/emacs/lisp/progmodes/perl-mode.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/perl-mode.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.50 by rms, Fri Dec 31 14:55:01 2004 UTC revision 1.51 by monnier, Mon Jan 3 20:46:21 2005 UTC
# Line 1  Line 1 
1  ;;; perl-mode.el --- Perl code editing commands for GNU Emacs  ;;; perl-mode.el --- Perl code editing commands for GNU Emacs
2    
3  ;; Copyright (C) 1990, 1994, 2003  Free Software Foundation, Inc.  ;; Copyright (C) 1990, 1994, 2003, 2005  Free Software Foundation, Inc.
4    
5  ;; Author: William F. Mann  ;; Author: William F. Mann
6  ;; Maintainer: FSF  ;; Maintainer: FSF
# Line 408  existing comment, moves to end-of-line, Line 408  existing comment, moves to end-of-line,
408  create a new comment."  create a new comment."
409    :type 'boolean)    :type 'boolean)
410    
411  (defcustom perl-nochange ";?#\\|\f\\|\\s(\\|\\(\\w\\|\\s_\\)+:"  (defcustom perl-nochange ";?#\\|\f\\|\\s(\\|\\(\\w\\|\\s_\\)+:[^:]"
412    "*Lines starting with this regular expression are not auto-indented."    "*Lines starting with this regular expression are not auto-indented."
413    :type 'regexp)    :type 'regexp)
414    
# Line 769  Optional argument PARSE-START should be Line 769  Optional argument PARSE-START should be
769                             (skip-chars-forward " \t\f\n")                             (skip-chars-forward " \t\f\n")
770                             (cond ((looking-at ";?#")                             (cond ((looking-at ";?#")
771                                    (forward-line 1) t)                                    (forward-line 1) t)
772                                   ((looking-at "\\(\\w\\|\\s_\\)+:")                                   ((looking-at "\\(\\w\\|\\s_\\)+:[^:]")
773                                    (save-excursion                                    (save-excursion
774                                      (end-of-line)                                      (end-of-line)
775                                      (setq colon-line-end (point)))                                      (setq colon-line-end (point)))
# Line 929  With argument, repeat that many times; n Line 929  With argument, repeat that many times; n
929    
930  (provide 'perl-mode)  (provide 'perl-mode)
931    
932  ;;; arch-tag: 8c7ff68d-15f3-46a2-ade2-b7c41f176826  ;; arch-tag: 8c7ff68d-15f3-46a2-ade2-b7c41f176826
933  ;;; perl-mode.el ends here  ;;; perl-mode.el ends here

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.51

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26