Mercurial > hg > xemacs-beta

comparison lisp/modes/cperl-mode.el @ 157:6b37e6ddd302 r20-3b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b5
author cvs
date Mon, 13 Aug 2007 09:40:41 +0200
parents 43dd3413c7c7
children 3bb7ccffb0c0
comparison
equal deleted inserted replaced
156:60baf0b43294 157:6b37e6ddd302
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.8 1997/06/06 00:57:17 steve Exp $ 35 ;; $Id: cperl-mode.el,v 1.9 1997/06/10 03:19: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 "\177" 'cperl-electric-backspace) 716 (cperl-define-key 'delete 'cperl-electric-backspace)
717 (cperl-define-key "\t" 'cperl-indent-command) 717 (cperl-define-key "\t" 'cperl-indent-command)
718 ;; don't clobber the backspace binding: 718 ;; don't clobber the backspace binding:
719 (cperl-define-key "\C-hf" 'cperl-info-on-command [(control h) f]) 719 (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 720 (cperl-define-key "\C-c\C-hf" 'cperl-info-on-current-command
721 [(control c) (control h) f]) 721 [(control c) (control h) f])