Mercurial > hg > xemacs-beta

comparison lisp/modes/eiffel3.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 54cc21c15cbb
children
comparison
equal deleted inserted replaced
152:4c132ee2d62b 153:25f70ba0133c
1 ;;; $Id: eiffel3.el,v 1.1.1.2 1996/12/21 20:47:49 steve Exp $ 1 ;;; $Id: eiffel3.el,v 1.2 1997/05/29 23:49:51 steve Exp $
2 ;;;-------------------------------------------------------------------------- 2 ;;;--------------------------------------------------------------------------
3 ;;; TowerEiffel -- Copyright (c) 1993-1996 Tower Technology Corporation. 3 ;;; TowerEiffel -- Copyright (c) 1993-1996 Tower Technology Corporation.
4 ;;; All Rights Reserved. 4 ;;; All Rights Reserved.
5 ;;; 5 ;;;
6 ;;; Use, duplication, or disclosure is subject to restrictions as set forth 6 ;;; Use, duplication, or disclosure is subject to restrictions as set forth
1783 (define-key eiffel-mode-map "\t" 'eif-indent-line) 1783 (define-key eiffel-mode-map "\t" 'eif-indent-line)
1784 (define-key eiffel-mode-map "\C-j" 'eif-newline) 1784 (define-key eiffel-mode-map "\C-j" 'eif-newline)
1785 (if (and (boundp 'eif-cr-function) eif-cr-function) 1785 (if (and (boundp 'eif-cr-function) eif-cr-function)
1786 (define-key eiffel-mode-map "\C-m" eif-cr-function) 1786 (define-key eiffel-mode-map "\C-m" eif-cr-function)
1787 ) 1787 )
1788 (define-key eiffel-mode-map "\177" 'backward-delete-char-untabify)
1789 (define-key eiffel-mode-map "\M-\C-q" 'eif-indent-construct) 1788 (define-key eiffel-mode-map "\M-\C-q" 'eif-indent-construct)
1790 (define-key eiffel-mode-map "\M-'" 'eif-feature-quote) 1789 (define-key eiffel-mode-map "\M-'" 'eif-feature-quote)
1791 (define-key eiffel-mode-map "\M-q" 'eif-fill-paragraph) 1790 (define-key eiffel-mode-map "\M-q" 'eif-fill-paragraph)
1792 ) 1791 )
1793 1792