From 5f204775bf9eac0dbda8363eb3bde8923f61771f Mon Sep 17 00:00:00 2001 From: Barry Warsaw Date: Mon, 25 Mar 1996 21:24:26 +0000 Subject: (py-indent-right, py-outdent-left): Watch out for (mark) returning nil. --- Misc/python-mode.el | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/Misc/python-mode.el b/Misc/python-mode.el index 854e3f9..7f59c31 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))) -- cgit v0.12