Mercurial > emacs
comparison lisp/emulation/tpu-edt.el @ 89909:68c22ea6027c
Sync to HEAD
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 16 Apr 2004 12:51:06 +0000 |
| parents | 375f2633d815 |
| children | f2ebccfa87d4 |
comparison
equal
deleted
inserted
replaced
| 89908:ee1402f7b568 | 89909:68c22ea6027c |
|---|---|
| 549 (cond (tpu-lucid-emacs19-p (mark (not zmacs-regions))) | 549 (cond (tpu-lucid-emacs19-p (mark (not zmacs-regions))) |
| 550 (tpu-emacs19-p (and mark-active (mark (not transient-mark-mode)))) | 550 (tpu-emacs19-p (and mark-active (mark (not transient-mark-mode)))) |
| 551 (t (mark)))) | 551 (t (mark)))) |
| 552 | 552 |
| 553 (defun tpu-set-mark (pos) | 553 (defun tpu-set-mark (pos) |
| 554 "TPU-edt verion of the `set-mark' function. | 554 "TPU-edt version of the `set-mark' function. |
| 555 Sets the mark at POS and activates the region according to the | 555 Sets the mark at POS and activates the region according to the |
| 556 current version of Emacs." | 556 current version of Emacs." |
| 557 (set-mark pos) | 557 (set-mark pos) |
| 558 (and tpu-lucid-emacs19-p pos (zmacs-activate-region))) | 558 (and tpu-lucid-emacs19-p pos (zmacs-activate-region))) |
| 559 | 559 |
| 2520 (use-global-map global-map) | 2520 (use-global-map global-map) |
| 2521 (setq tpu-edt-mode nil)))) | 2521 (setq tpu-edt-mode nil)))) |
| 2522 | 2522 |
| 2523 (provide 'tpu-edt) | 2523 (provide 'tpu-edt) |
| 2524 | 2524 |
| 2525 ;;; arch-tag: f3dfe61c-2cbd-4f73-b9cc-eb215020b857 | |
| 2525 ;;; tpu-edt.el ends here | 2526 ;;; tpu-edt.el ends here |