Mercurial > emacs
comparison 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.
| author | Kai Großjohann <kgrossjo@eu.uu.net> |
|---|---|
| date | Sun, 09 Mar 2003 14:05:25 +0000 |
| parents | 0d8b17d428b5 |
| children | 95fdaebcdfcb |
comparison
equal
deleted
inserted
replaced
| 50061:16f19efe98b2 | 50062:b43d8c1413de |
|---|---|
| 383 (cons '(crisp-mode crisp-mode-modeline-string) minor-mode-alist))) | 383 (cons '(crisp-mode crisp-mode-modeline-string) minor-mode-alist))) |
| 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. | |
| 389 (eval-after-load 'cua | |
| 390 (progn | |
| 391 (add-to-list 'cua--standard-movement-commands 'crisp-home) | |
| 392 (add-to-list 'cua--standard-movement-commands 'crisp-end))) | |
| 393 | |
| 388 (run-hooks 'crisp-load-hook) | 394 (run-hooks 'crisp-load-hook) |
| 389 (provide 'crisp) | 395 (provide 'crisp) |
| 390 | 396 |
| 391 ;;; crisp.el ends here | 397 ;;; crisp.el ends here |