Function: tpu-mark

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

Signature

(tpu-mark)

Documentation

TPU-edt version of the mark function.

Return the appropriate value of the mark for the current version of Emacs.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/tpu-edt.el.gz
;;;
;;;  Utilities
;;;

(defun tpu-mark nil
  "TPU-edt version of the mark function.
Return the appropriate value of the mark for the current
version of Emacs."
  (cond ((featurep 'xemacs) (mark (not zmacs-regions)))
	(t (and mark-active (mark (not transient-mark-mode))))))