Mercurial > emacs

comparison lisp/emulation/crisp.el @ 90182:f042e7c0fe20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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