Function: tpu-set-mark

tpu-set-mark is a byte-compiled function defined in tpu-edt.el.gz.

Signature

(tpu-set-mark POS)

Documentation

TPU-edt version of the set-mark function.

Sets the mark at POS and activates the region according to the current version of Emacs.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/tpu-edt.el.gz
(defun tpu-set-mark (pos)
  "TPU-edt version of the `set-mark' function.
Sets the mark at POS and activates the region according to the
current version of Emacs."
  (set-mark pos)
  (when (featurep 'xemacs) (when pos (zmacs-activate-region))))