Mercurial > hg > xemacs-beta

comparison lisp/modes/perl-mode.el @ 153:25f70ba0133c r20-3b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b3
author cvs
date Mon, 13 Aug 2007 09:38:25 +0200
parents 360340f9fd5f
children 28f395d8dc7a
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
118 (define-key perl-mode-map ":" 'electric-perl-terminator) 118 (define-key perl-mode-map ":" 'electric-perl-terminator)
119 (define-key perl-mode-map "\e\C-a" 'perl-beginning-of-function) 119 (define-key perl-mode-map "\e\C-a" 'perl-beginning-of-function)
120 (define-key perl-mode-map "\e\C-e" 'perl-end-of-function) 120 (define-key perl-mode-map "\e\C-e" 'perl-end-of-function)
121 (define-key perl-mode-map "\e\C-h" 'mark-perl-function) 121 (define-key perl-mode-map "\e\C-h" 'mark-perl-function)
122 (define-key perl-mode-map "\e\C-q" 'indent-perl-exp) 122 (define-key perl-mode-map "\e\C-q" 'indent-perl-exp)
123 (define-key perl-mode-map "\177" 'backward-delete-char-untabify) 123 ;; GDF - Don't rebind the delete key
124 ;; (define-key perl-mode-map "\177" 'backward-delete-char-untabify)
124 (define-key perl-mode-map "\t" 'perl-indent-command)) 125 (define-key perl-mode-map "\t" 'perl-indent-command))
125 126
126 (autoload 'c-macro-expand "cmacexp" 127 (autoload 'c-macro-expand "cmacexp"
127 "Display the result of expanding all C macros occurring in the region. 128 "Display the result of expanding all C macros occurring in the region.
128 The expansion is entirely correct because it uses the C preprocessor." 129 The expansion is entirely correct because it uses the C preprocessor."