diff lisp/emulation/crisp.el @ 50062:b43d8c1413de

* man.el (Man-getpage-in-background): Always use `setenv' for environment variables, instead of modifying process-environment directly. The previous version let-bound process-environment -- the let-binding is skipped for GROFF_NO_SGR because there is already a let-binding in effect in some outer scope. * emulation/crisp.el (top-level): Interoperate with cua.

--- a/lisp/emulation/crisp.el	Sat Mar 08 19:38:02 2003 +0000
+++ b/lisp/emulation/crisp.el	Sun Mar 09 14:05:25 2003 +0000
@@ -385,6 +385,12 @@
       (setq minor-mode-map-alist (cons (cons 'crisp-mode crisp-mode-map)
 				       minor-mode-map-alist))))
 
+;; Interaction with other packages.
+(eval-after-load 'cua
+  (progn
+    (add-to-list 'cua--standard-movement-commands 'crisp-home)
+    (add-to-list 'cua--standard-movement-commands 'crisp-end)))
+
 (run-hooks 'crisp-load-hook)
 (provide 'crisp)