From: Barry Warsaw <barry@python.org>
Date: Wed, 8 Mar 1995 22:05:16 +0000 (+0000)
Subject: (py-keep-region-active): new function.
X-Git-Tag: v1.2b4~97
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=74d9cc5b7371c1d6907a1cc525a8212723b81c26;p=thirdparty%2FPython%2Fcpython.git

(py-keep-region-active): new function.
---

diff --git a/Misc/python-mode.el b/Misc/python-mode.el
index 29d61a8396e2..43a43e374bf8 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$"