Mercurial > hg > xemacs-beta

comparison lisp/emulators/crisp.el @ 74:54cc21c15cbb r20-0b32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents b82b59fe008d
children cca96a509cfe
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
1 ;; @(#) crisp.el -- Crisp/Brief Emacs emulator 1 ;; @(#) crisp.el -- Crisp/Brief Emacs emulator
2 2
3 ;; Author: Gary D. Foster <Gary.Foster@corp.sun.com> 3 ;; Author: Gary D. Foster <Gary.Foster@corp.sun.com>
4 ;; $Revision: 1.1.1.1 $ 4 ;; $Revision: 1.1.1.2 $
5 ;; Keywords: emulations brief crisp 5 ;; Keywords: emulations brief crisp
6 6
7 ;; This file is part of GNU Emacs. 7 ;; This file is part of GNU Emacs.
8 8
9 ;; GNU Emacs is free software; you can redistribute it and/or modify 9 ;; GNU Emacs is free software; you can redistribute it and/or modify
125 125
126 (define-key crisp-mode-map [(f10)] 'execute-extended-command) 126 (define-key crisp-mode-map [(f10)] 'execute-extended-command)
127 (define-key crisp-mode-map [(meta f10)] 'compile) 127 (define-key crisp-mode-map [(meta f10)] 'compile)
128 128
129 (define-key crisp-mode-map [(SunF37)] 'kill-buffer) 129 (define-key crisp-mode-map [(SunF37)] 'kill-buffer)
130 (define-key crisp-mode-map [(kp_add)] 'x-copy-primary-selection) 130 (define-key crisp-mode-map [(kp-add)] 'x-copy-primary-selection)
131 (define-key crisp-mode-map [(kp_subtract)] 'x-kill-primary-selection) 131 (define-key crisp-mode-map [(kp-subtract)] 'x-kill-primary-selection)
132 (define-key crisp-mode-map [(insert)] 'x-yank-clipboard-selection) 132 (define-key crisp-mode-map [(insert)] 'x-yank-clipboard-selection)
133 (define-key crisp-mode-map [(f16)] 'x-copy-primary-selection) ; copy on Sun5 kbd 133 (define-key crisp-mode-map [(f16)] 'x-copy-primary-selection) ; copy on Sun5 kbd
134 (define-key crisp-mode-map [(f20)] 'x-kill-primary-selection) ; cut on Sun5 kbd 134 (define-key crisp-mode-map [(f20)] 'x-kill-primary-selection) ; cut on Sun5 kbd
135 (define-key crisp-mode-map [(f18)] 'x-yank-clipboard-selection) ; paste on Sun5 kbd 135 (define-key crisp-mode-map [(f18)] 'x-yank-clipboard-selection) ; paste on Sun5 kbd
136 136