Function: mh-mark-active-p

mh-mark-active-p is an autoloaded macro defined in mh-acros.el.

Signature

(mh-mark-active-p CHECK-TRANSIENT-MARK-MODE-FLAG)

Documentation

A macro that expands into appropriate code in XEmacs and nil in GNU Emacs.

In GNU Emacs if CHECK-TRANSIENT-MARK-MODE-FLAG is non-nil then check if variable transient-mark-mode(var)/transient-mark-mode(fun) is active.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-acros.el
;;;###mh-autoload
(defmacro mh-mark-active-p (check-transient-mark-mode-flag)
  "A macro that expands into appropriate code in XEmacs and nil in GNU Emacs.
In GNU Emacs if CHECK-TRANSIENT-MARK-MODE-FLAG is non-nil then
check if variable `transient-mark-mode' is active."
  (cond ((featurep 'xemacs)             ;XEmacs
         '(and (boundp 'zmacs-regions) zmacs-regions (region-active-p)))
        ((not check-transient-mark-mode-flag) ;GNU Emacs
         '(and (boundp 'mark-active) mark-active))
        (t                              ;GNU Emacs
         '(and (boundp 'transient-mark-mode) transient-mark-mode
               (boundp 'mark-active) mark-active))))