Mercurial > emacs

changeset 87396:1073cad4beee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(region-active-p): New function.
author Richard M. Stallman <rms@gnu.org>
date Tue, 25 Dec 2007 22:43:44 +0000
parents 0bcb1aa03dad
children 6bf362c56364
files lisp/simple.el
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Tue Dec 25 22:14:07 2007 +0000
+++ b/lisp/simple.el	Tue Dec 25 22:43:44 2007 +0000
@@ -3377,6 +3377,10 @@
   (and transient-mark-mode mark-active
        (or use-empty-active-region (> (region-end) (region-beginning)))))
 
+(defun region-active-p ()
+  "Return t if Transient Mark mode is enabled and the mark is active."
+  (and transient-mark-mode mark-active))
+
 (defvar mark-ring nil
   "The list of former marks of the current buffer, most recent first.")
 (make-variable-buffer-local 'mark-ring)