Mercurial > hg > xemacs-beta

comparison lisp/modes/cperl-mode.el @ 159:3bb7ccffb0c0 r20-3b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b6
author cvs
date Mon, 13 Aug 2007 09:41:43 +0200
parents 6b37e6ddd302
children 28f395d8dc7a
comparison
equal deleted inserted replaced
158:558dfa75ffb3 159:3bb7ccffb0c0
30 30
31 31
32 ;;; Corrections made by Ilya Zakharevich ilya@math.mps.ohio-state.edu 32 ;;; Corrections made by Ilya Zakharevich ilya@math.mps.ohio-state.edu
33 ;;; XEmacs changes by Peter Arius arius@informatik.uni-erlangen.de 33 ;;; XEmacs changes by Peter Arius arius@informatik.uni-erlangen.de
34 34
35 ;; $Id: cperl-mode.el,v 1.9 1997/06/10 03:19:09 steve Exp $ 35 ;; $Id: cperl-mode.el,v 1.10 1997/06/11 19:25:59 steve Exp $
36 36
37 ;;; To use this mode put the following into your .emacs file: 37 ;;; To use this mode put the following into your .emacs file:
38 38
39 ;; (autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl programs" t) 39 ;; (autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl programs" t)
40 40
1558 (if (eq last-command 'cperl-electric-lbrace) 1558 (if (eq last-command 'cperl-electric-lbrace)
1559 (skip-chars-forward " \t\n")) 1559 (skip-chars-forward " \t\n"))
1560 (setq p (point)) 1560 (setq p (point))
1561 (skip-chars-backward " \t\n") 1561 (skip-chars-backward " \t\n")
1562 (delete-region (point) p)) 1562 (delete-region (point) p))
1563 (if (fboundp 'backspace-or-delete) 1563 (if (fboundp 'backward-or-forward-delete-char)
1564 (backspace-or-delete (prefix-numeric-value arg)) 1564 (backward-or-forward-delete-char (prefix-numeric-value arg))
1565 (backward-delete-char-untabify (prefix-numeric-value arg))))) 1565 (backward-delete-char-untabify (prefix-numeric-value arg)))))
1566 1566
1567 (defun cperl-inside-parens-p () 1567 (defun cperl-inside-parens-p ()
1568 (condition-case () 1568 (condition-case ()
1569 (save-excursion 1569 (save-excursion