[Emacs-diffs] emacs/lisp ChangeLog progmodes/python.el

[Martin Rudalics]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Martin Rudalics <m061211>       09/02/20 16:30:56

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : python.el 

Log message:
        (python-shift-left, python-shift-right):
        When the mark is not active shift the current line.  (Bug#2381)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15371&r2=1.15372
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/python.el?cvsroot=emacs&r1=1.94&r2=1.95

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15371
retrieving revision 1.15372
diff -u -b -r1.15371 -r1.15372
--- ChangeLog   20 Feb 2009 14:24:55 -0000      1.15371
+++ ChangeLog   20 Feb 2009 16:30:53 -0000      1.15372
@@ -1,3 +1,9 @@
+2009-02-20  Martin Rudalics  <address@hidden>
+
+       * 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 <address@hidden>
+
 2009-02-20  Andreas Schwab  <address@hidden>
 
        * startup.el (command-line): Don't match an empty argument as an

Index: progmodes/python.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/python.el,v
retrieving revision 1.94
retrieving revision 1.95
diff -u -b -r1.94 -r1.95
--- progmodes/python.el 12 Feb 2009 18:16:30 -0000      1.94
+++ progmodes/python.el 20 Feb 2009 16:30:56 -0000      1.95
@@ -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
+  (interactive
+   (if mark-active
                   (list (region-beginning) (region-end) current-prefix-arg)
-                (list (point) (point) 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
+  (interactive
+   (if mark-active
                   (list (region-beginning) (region-end) current-prefix-arg)
-                (list (point) (point) 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))