Mercurial > hg > xemacs-beta

comparison lisp/modes/cperl-mode.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children b82b59fe008d
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
27 ;;; Synched up with: Not in FSF. 27 ;;; Synched up with: Not in FSF.
28 28
29 ;;; Corrections made by Ilya Zakharevich ilya@math.mps.ohio-state.edu 29 ;;; Corrections made by Ilya Zakharevich ilya@math.mps.ohio-state.edu
30 ;;; XEmacs changes by Peter Arius arius@informatik.uni-erlangen.de 30 ;;; XEmacs changes by Peter Arius arius@informatik.uni-erlangen.de
31 31
32 ;; $Id: cperl-mode.el,v 1.1.1.1 1996/12/18 03:31:06 steve Exp $ 32 ;; $Id: cperl-mode.el,v 1.1.1.2 1996/12/18 03:44:44 steve Exp $
33 33
34 ;;; To use this mode put the following into your .emacs file: 34 ;;; To use this mode put the following into your .emacs file:
35 35
36 ;; (autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl programs" t) 36 ;; (autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl programs" t)
37 37
1646 ;; possibly a different line 1646 ;; possibly a different line
1647 (progn 1647 (progn
1648 (if (eq (preceding-char) ?\)) 1648 (if (eq (preceding-char) ?\))
1649 (forward-sexp -1)) 1649 (forward-sexp -1))
1650 ;; In the case it starts a subroutine, indent with 1650 ;; In the case it starts a subroutine, indent with
1651 ;; respect to `sub', not with respect to the the 1651 ;; respect to `sub', not with respect to the
1652 ;; first thing on the line, say in the case of 1652 ;; first thing on the line, say in the case of
1653 ;; anonymous sub in a hash. 1653 ;; anonymous sub in a hash.
1654 ;; 1654 ;;
1655 (skip-chars-backward " \t") 1655 (skip-chars-backward " \t")
1656 (if (and (eq (preceding-char) ?b) 1656 (if (and (eq (preceding-char) ?b)