From 3ba6d4ed56d9d9b6d4c570d057ad9ce11e3ae0ff Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Fri, 20 Feb 2009 16:30:53 +0000 Subject: [PATCH] (python-shift-left, python-shift-right): When the mark is not active shift the current line. (Bug#2381) --- lisp/ChangeLog | 6 ++++++ lisp/progmodes/python.el | 14 ++++++++------ 2 files changed, 14 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9064658ab96..478544f77ff 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2009-02-20 Martin Rudalics + + * 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 + 2009-02-20 Andreas Schwab * startup.el (command-line): Don't match an empty argument as an diff --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el index cacd56b6639..7221d8ecb73 100644 --- a/lisp/progmodes/python.el +++ b/lisp/progmodes/python.el @@ -2008,9 +2008,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. 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 columns." 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)) -- 2.39.5