Mercurial > hg > xemacs-beta

comparison lisp/modes/icon.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 1856695b1fa9
children 28f395d8dc7a
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
44 (define-key icon-mode-map "}" 'electric-icon-brace) 44 (define-key icon-mode-map "}" 'electric-icon-brace)
45 (define-key icon-mode-map "\e\C-h" 'mark-icon-function) 45 (define-key icon-mode-map "\e\C-h" 'mark-icon-function)
46 (define-key icon-mode-map "\e\C-a" 'beginning-of-icon-defun) 46 (define-key icon-mode-map "\e\C-a" 'beginning-of-icon-defun)
47 (define-key icon-mode-map "\e\C-e" 'end-of-icon-defun) 47 (define-key icon-mode-map "\e\C-e" 'end-of-icon-defun)
48 (define-key icon-mode-map "\e\C-q" 'indent-icon-exp) 48 (define-key icon-mode-map "\e\C-q" 'indent-icon-exp)
49 (define-key icon-mode-map "\177" 'backward-delete-char-untabify) 49 ;; GDF - Don't rebind the DEL key
50 ;; (define-key icon-mode-map "\177" 'backward-delete-char-untabify)
50 (define-key icon-mode-map "\t" 'icon-indent-command)) 51 (define-key icon-mode-map "\t" 'icon-indent-command))
51 52
52 (defvar icon-mode-syntax-table nil 53 (defvar icon-mode-syntax-table nil
53 "Syntax table in use in Icon-mode buffers.") 54 "Syntax table in use in Icon-mode buffers.")
54 55