Mercurial > hg > xemacs-beta

comparison lisp/modes/cperl-mode.el @ 167:85ec50267440 r20-3b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b10
author cvs
date Mon, 13 Aug 2007 09:45:46 +0200
parents 28f395d8dc7a
children f53b5ca2e663
comparison
equal deleted inserted replaced
166:7a77eb660975 167:85ec50267440
29 ;; Boston, MA 02111-1307, USA. 29 ;; Boston, MA 02111-1307, USA.
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 ;;; XEmacs 'delete key behavior handling added for XEmacs 20.x by
35 ;; $Id: cperl-mode.el,v 1.11 1997/06/14 20:31:09 steve Exp $ 35 ;;; Gary D. Foster <Gary.Foster@corp.sun.com>
36
37 ;; $Id: cperl-mode.el,v 1.12 1997/06/29 23:12:54 steve Exp $
36 38
37 ;;; To use this mode put the following into your .emacs file: 39 ;;; To use this mode put the following into your .emacs file:
38 40
39 ;; (autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl programs" t) 41 ;; (autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl programs" t)
40 42
1561 (setq p (point)) 1563 (setq p (point))
1562 (skip-chars-backward " \t\n") 1564 (skip-chars-backward " \t\n")
1563 (delete-region (point) p)) 1565 (delete-region (point) p))
1564 (backward-delete-char-untabify arg))) 1566 (backward-delete-char-untabify arg)))
1565 1567
1568 ;; helper function for deletion, which honors the desired delete direction
1569 ;; behavior. Added by Gary D. Foster, <Gary.Foster@corp.sun.com> and bound
1570 ;; to the 'delete keysym by default.
1571
1566 (defun cperl-electric-delete (arg) 1572 (defun cperl-electric-delete (arg)
1567 "Backspace-untabify, or remove the whitespace inserted by an electric key." 1573 "Delete, or remove the whitespace inserted by an electric key.
1574 Delete direction is controlled by the setting of `delete-key-deletes-forward'."
1568 (interactive "*p") 1575 (interactive "*p")
1569 (if (and cperl-auto-newline 1576 (if (and cperl-auto-newline
1570 (memq last-command '(cperl-electric-semi 1577 (memq last-command '(cperl-electric-semi
1571 cperl-electric-terminator 1578 cperl-electric-terminator
1572 cperl-electric-lbrace)) 1579 cperl-electric-lbrace))