[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog progmodes/python.el
From: |
Martin Rudalics |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog progmodes/python.el |
Date: |
Fri, 20 Feb 2009 16:30:57 +0000 |
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))