Mercurial > hg > xemacs-beta

comparison lisp/modes/cperl-mode.el @ 161:28f395d8dc7a r20-3b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b7
author cvs
date Mon, 13 Aug 2007 09:42:26 +0200
parents 3bb7ccffb0c0
children 85ec50267440
comparison
equal deleted inserted replaced
160:1c55655d6702 161:28f395d8dc7a
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.10 1997/06/11 19:25:59 steve Exp $ 35 ;; $Id: cperl-mode.el,v 1.11 1997/06/14 20:31:09 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
711 (cperl-define-key "\C-c\C-k" 'cperl-toggle-abbrev) 711 (cperl-define-key "\C-c\C-k" 'cperl-toggle-abbrev)
712 (cperl-define-key "\C-c\C-e" 'cperl-toggle-electric) 712 (cperl-define-key "\C-c\C-e" 'cperl-toggle-electric)
713 (cperl-define-key "\e\C-q" 'cperl-indent-exp) ; Usually not bound 713 (cperl-define-key "\e\C-q" 'cperl-indent-exp) ; Usually not bound
714 ;;(cperl-define-key "\M-q" 'cperl-fill-paragraph) 714 ;;(cperl-define-key "\M-q" 'cperl-fill-paragraph)
715 ;;(cperl-define-key "\e;" 'cperl-indent-for-comment) 715 ;;(cperl-define-key "\e;" 'cperl-indent-for-comment)
716 (cperl-define-key 'delete 'cperl-electric-backspace) 716 (cperl-define-key 'backspace 'cperl-electric-backspace)
717 (cperl-define-key 'delete 'cperl-electric-delete)
717 (cperl-define-key "\t" 'cperl-indent-command) 718 (cperl-define-key "\t" 'cperl-indent-command)
718 ;; don't clobber the backspace binding: 719 ;; don't clobber the backspace binding:
719 (cperl-define-key "\C-hf" 'cperl-info-on-command [(control h) f]) 720 (cperl-define-key "\C-hf" 'cperl-info-on-command [(control h) f])
720 (cperl-define-key "\C-c\C-hf" 'cperl-info-on-current-command 721 (cperl-define-key "\C-c\C-hf" 'cperl-info-on-current-command
721 [(control c) (control h) f]) 722 [(control c) (control h) f])
1546 (self-insert-command (prefix-numeric-value arg))) 1547 (self-insert-command (prefix-numeric-value arg)))
1547 (self-insert-command (prefix-numeric-value arg))))) 1548 (self-insert-command (prefix-numeric-value arg)))))
1548 1549
1549 (defun cperl-electric-backspace (arg) 1550 (defun cperl-electric-backspace (arg)
1550 "Backspace-untabify, or remove the whitespace inserted by an electric key." 1551 "Backspace-untabify, or remove the whitespace inserted by an electric key."
1551 (interactive "*P") 1552 (interactive "*p")
1553 (if (and cperl-auto-newline
1554 (memq last-command '(cperl-electric-semi
1555 cperl-electric-terminator
1556 cperl-electric-lbrace))
1557 (memq (preceding-char) '(? ?\t ?\n)))
1558 (let (p)
1559 (if (eq last-command 'cperl-electric-lbrace)
1560 (skip-chars-forward " \t\n"))
1561 (setq p (point))
1562 (skip-chars-backward " \t\n")
1563 (delete-region (point) p))
1564 (backward-delete-char-untabify arg)))
1565
1566 (defun cperl-electric-delete (arg)
1567 "Backspace-untabify, or remove the whitespace inserted by an electric key."
1568 (interactive "*p")
1552 (if (and cperl-auto-newline 1569 (if (and cperl-auto-newline
1553 (memq last-command '(cperl-electric-semi 1570 (memq last-command '(cperl-electric-semi
1554 cperl-electric-terminator 1571 cperl-electric-terminator
1555 cperl-electric-lbrace)) 1572 cperl-electric-lbrace))
1556 (memq (preceding-char) '(? ?\t ?\n))) 1573 (memq (preceding-char) '(? ?\t ?\n)))
1559 (skip-chars-forward " \t\n")) 1576 (skip-chars-forward " \t\n"))
1560 (setq p (point)) 1577 (setq p (point))
1561 (skip-chars-backward " \t\n") 1578 (skip-chars-backward " \t\n")
1562 (delete-region (point) p)) 1579 (delete-region (point) p))
1563 (if (fboundp 'backward-or-forward-delete-char) 1580 (if (fboundp 'backward-or-forward-delete-char)
1564 (backward-or-forward-delete-char (prefix-numeric-value arg)) 1581 (backward-or-forward-delete-char arg)
1565 (backward-delete-char-untabify (prefix-numeric-value arg))))) 1582 (backward-delete-char-untabify arg))))
1566 1583
1567 (defun cperl-inside-parens-p () 1584 (defun cperl-inside-parens-p ()
1568 (condition-case () 1585 (condition-case ()
1569 (save-excursion 1586 (save-excursion
1570 (save-restriction 1587 (save-restriction