diff options
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | 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 <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 --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)) |