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

nil.
This commit is contained in:
Barry Warsaw 1996-03-25 21:24:26 +00:00
parent cce074e273
commit 5f204775bf
1 changed files with 10 additions and 4 deletions

View File

@ -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)))