Mercurial > emacs
comparison lisp/emulation/crisp.el @ 90182:f042e7c0fe20
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-53
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 302-319)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 69)
- Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 20 May 2005 04:22:05 +0000 |
parents | 68c22ea6027c 68429718056c |
children | f9a65d7ebd29 |
comparison
equal
deleted
inserted
replaced
90181:0c828e2b0b6f | 90182:f042e7c0fe20 |
---|---|
1 ;;; crisp.el --- CRiSP/Brief Emacs emulator | 1 ;;; crisp.el --- CRiSP/Brief Emacs emulator |
2 | 2 |
3 ;; Copyright (C) 1997, 1998, 1999 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1997, 1998, 1999, 2005 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Gary D. Foster <Gary.Foster@Corp.Sun.COM> | 5 ;; Author: Gary D. Foster <Gary.Foster@Corp.Sun.COM> |
6 ;; Keywords: emulations brief crisp | 6 ;; Keywords: emulations brief crisp |
7 | 7 |
8 ;; This file is part of GNU Emacs. | 8 ;; This file is part of GNU Emacs. |
384 (or (assq 'crisp-mode minor-mode-map-alist) | 384 (or (assq 'crisp-mode minor-mode-map-alist) |
385 (setq minor-mode-map-alist (cons (cons 'crisp-mode crisp-mode-map) | 385 (setq minor-mode-map-alist (cons (cons 'crisp-mode crisp-mode-map) |
386 minor-mode-map-alist)))) | 386 minor-mode-map-alist)))) |
387 | 387 |
388 ;; Interaction with other packages. | 388 ;; Interaction with other packages. |
389 (eval-after-load 'cua | 389 (put 'crisp-home 'CUA 'move) |
390 '(progn | 390 (put 'crisp-end 'CUA 'move) |
391 (add-to-list 'cua--standard-movement-commands 'crisp-home) | |
392 (add-to-list 'cua--standard-movement-commands 'crisp-end))) | |
393 | 391 |
394 (run-hooks 'crisp-load-hook) | 392 (run-hooks 'crisp-load-hook) |
395 (provide 'crisp) | 393 (provide 'crisp) |
396 | 394 |
397 ;;; arch-tag: e5369375-fafb-4240-b7ae-4cb460ef05ee | 395 ;;; arch-tag: e5369375-fafb-4240-b7ae-4cb460ef05ee |