From: Barry Warsaw <barry@python.org>
Date: Mon, 25 Mar 1996 21:24:26 +0000 (+0000)
Subject: (py-indent-right, py-outdent-left): Watch out for (mark) returning
X-Git-Tag: v1.4b1~262
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=5f204775bf9eac0dbda8363eb3bde8923f61771f;p=python

(py-indent-right, py-outdent-left): Watch out for (mark) returning
nil.
---

diff --git a/Misc/python-mode.el b/Misc/python-mode.el
index 854e3f945c..7f59c3198e 100644
--- a/Misc/python-mode.el
+++ b/Misc/python-mode.el
@@ -502,8 +502,11 @@ farther right than the distance the line would be indented by
 current line."
   (interactive
    (let ((p (point))
-	 (m (mark)))
-     (list (min p m) (max p m) (prefix-numeric-value current-prefix-arg))))
+	 (m (mark))
+	 (arg (prefix-numeric-value current-prefix-arg)))
+     (if m
+	 (list (min p m) (max p m) arg)
+       (list p m arg))))
   (let ((pos (- (point-max) (point)))
 	(end (save-excursion
 	       (goto-char (or end (1+ start)))
@@ -535,8 +538,11 @@ farther left than column zero.  With no active region, outdent only
 the current line."
   (interactive
    (let ((p (point))
-	 (m (mark)))
-     (list (min p m) (max p m) (prefix-numeric-value current-prefix-arg))))
+	 (m (mark))
+	 (arg (prefix-numeric-value current-prefix-arg)))
+     (if m
+	 (list (min p m) (max p m) arg)
+       (list p m arg))))
   (let ((pos (- (point-max) (point)))
 	(end (save-excursion
 	       (goto-char (or end (1+ start)))