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 |