Importing patch file: python-mode.patch

RCS file: /cvsroot/aquamacs/aquamacs/patches.23/python-mode.patch,v
Working file: python-mode.patch
head: 1.3
branch:
locks: strict
access list:
keyword substitution: kv
total revisions: 3;	selected revisions: 3
description:
----------------------------
revision 1.3
date: 2009-03-19 14:31:03 +0000;  author: sid;  state: Exp;  lines: +6 -6;  commitid: KNDNyxPaSuqqsEGt;
regeneration of patches for Aquamacs 23
----------------------------
revision 1.2
date: 2009-01-02 01:08:22 +0000;  author: sid;  state: Exp;  lines: +12 -17;  commitid: iJovLwgHISLtsOwt;
Patch files for emacs23 updated to be against current emacs CVS head. Not tested for functionality, just regenerated using regen-patches-23.sh script to get them up to date as patch files
----------------------------
revision 1.1
date: 2008-12-29 04:22:01 +0000;  author: davidswelt;  state: Exp;  commitid: hamOL8j1I7uSEjwt;
branching off from the trunk, these are the 23-enabled patches for Cocoa Aquamacs
=============================================================================

RCS file: /cvsroot/aquamacs/aquamacs/patches/python-mode.patch,v
Working file: python-mode.patch
head: 1.1
branch:
locks: strict
access list:
keyword substitution: kv
total revisions: 1;	selected revisions: 1
description:
----------------------------
revision 1.1
date: 2007-03-14 11:13:55 +0000;  author: davidswelt;  state: Exp;
do not deactivate the mark when indenting region
=============================================================================

lisp/progmodes/python.el

@@ -2023,7 +2023,8 @@ COUNT columns."
 		 (not (looking-at "[ \t]*$")))
 	    (error "Can't shift all lines enough"))
 	(forward-line))
-      (indent-rigidly start end (- count)))))
+      (indent-rigidly start end (- count))))
+  (setq deactivate-mark nil))
 
 (add-to-list 'debug-ignored-errors "^Can't shift all lines enough")
 
@@ -2039,7 +2040,8 @@ END lie."
   (if count
       (setq count (prefix-numeric-value count))
     (setq count python-indent))
-  (indent-rigidly start end count))
+  (indent-rigidly start end count)
+  (setq deactivate-mark nil))
 
 (defun python-outline-level ()
   "`outline-level' function for Python mode.