# HG changeset patch
# User Martin Rudalics <rudalics@gmx.at>
# Date 1235147453 0
# Node ID 603bb57bb5428cc2606d9b8898bab6a47caa8a39
# Parent  c526d585a71540e38feed78885fef71423946f0d
(python-shift-left, python-shift-right):
When the mark is not active shift the current line.  (Bug#2381)

diff -r c526d585a715 -r 603bb57bb542 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Feb 20 14:24:55 2009 +0000
+++ b/lisp/ChangeLog	Fri Feb 20 16:30:53 2009 +0000
@@ -1,3 +1,9 @@
+2009-02-20  Martin Rudalics  <rudalics@gmx.at>
+
+	* progmodes/python.el (python-shift-left, python-shift-right):
+	When the mark is not active shift the current line.  (Bug#2381)
+	Suggested by Guillaume Salagnac <guillaume.salagnac@gmail.com>
+
 2009-02-20  Andreas Schwab  <schwab@suse.de>
 
 	* startup.el (command-line): Don't match an empty argument as an
diff -r c526d585a715 -r 603bb57bb542 lisp/progmodes/python.el
--- a/lisp/progmodes/python.el	Fri Feb 20 14:24:55 2009 +0000
+++ b/lisp/progmodes/python.el	Fri Feb 20 16:30:53 2009 +0000
@@ -2008,9 +2008,10 @@
 current line.  The region shifted includes the lines in which START and
 END lie.  It is an error if any lines in the region are indented less than
 COUNT columns."
-  (interactive (if mark-active
-		   (list (region-beginning) (region-end) current-prefix-arg)
-		 (list (point) (point) current-prefix-arg)))
+  (interactive
+   (if mark-active
+       (list (region-beginning) (region-end) current-prefix-arg)
+     (list (line-beginning-position) (line-end-position) current-prefix-arg)))
   (if count
       (setq count (prefix-numeric-value count))
     (setq count python-indent))
@@ -2031,9 +2032,10 @@
 COUNT defaults to `python-indent'.  If region isn't active, just shift
 current line.  The region shifted includes the lines in which START and
 END lie."
-  (interactive (if mark-active
-		   (list (region-beginning) (region-end) current-prefix-arg)
-		 (list (point) (point) current-prefix-arg)))
+  (interactive
+   (if mark-active
+       (list (region-beginning) (region-end) current-prefix-arg)
+     (list (line-beginning-position) (line-end-position) current-prefix-arg)))
   (if count
       (setq count (prefix-numeric-value count))
     (setq count python-indent))