Mercurial > hg > xemacs-beta

comparison lisp/modes/perl-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 25f70ba0133c
children 850242ba4a81
comparison
equal deleted inserted replaced
160:1c55655d6702 161:28f395d8dc7a
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 ;; GDF - Don't rebind the delete key
124 ;; (define-key perl-mode-map "\177" 'backward-delete-char-untabify)
125 (define-key perl-mode-map "\t" 'perl-indent-command)) 123 (define-key perl-mode-map "\t" 'perl-indent-command))
126 124
127 (autoload 'c-macro-expand "cmacexp" 125 (autoload 'c-macro-expand "cmacexp"
128 "Display the result of expanding all C macros occurring in the region. 126 "Display the result of expanding all C macros occurring in the region.
129 The expansion is entirely correct because it uses the C preprocessor." 127 The expansion is entirely correct because it uses the C preprocessor."