From 74d9cc5b7371c1d6907a1cc525a8212723b81c26 Mon Sep 17 00:00:00 2001
From: Barry Warsaw <barry@python.org>
Date: Wed, 8 Mar 1995 22:05:16 +0000
Subject: (py-keep-region-active): new function.

---
 Misc/python-mode.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/Misc/python-mode.el b/Misc/python-mode.el
index 29d61a8..43a43e3 100644
--- a/Misc/python-mode.el
+++ b/Misc/python-mode.el
@@ -1553,7 +1553,6 @@ local bindings to py-newline-and-indent."))
 
 
 ;; Helper functions
-
 (defvar py-parse-state-re
   (concat
    "^[ \t]*\\(if\\|elif\\|else\\|while\\|def\\|class\\)\\>"
@@ -1795,6 +1794,13 @@ local bindings to py-newline-and-indent."))
     (set-buffer cbuf))
   (sit-for 0))
 
+(defun py-keep-region-active ()
+  ;; do whatever is necessary to keep the region active in XEmacs.
+  ;; Ignore byte-compiler warnings you might see.  Also note that
+  ;; FSF's Emacs 19 does it differently and doesn't its policy doesn't
+  ;; require us to take explicit action.
+  (and (boundp 'zmacs-region-stays)
+       (setq zmacs-region-stays t)))
 
 
 (defconst py-version "$Revision$"
-- 
cgit v0.12