Fix bug preventing INDENT-RIGIDLY from accepting multiplier

autoarguments.

diff --git a/v7/src/edwin/lincom.scm b/v7/src/edwin/lincom.scm
index 44583ed29280ea0e4c39d4e335af5d97cef020f3..43072be73cff5bbb3e068546892b0a7c2ad64f40 100644 (file)
--- a/v7/src/edwin/lincom.scm
+++ b/v7/src/edwin/lincom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/lincom.scm,v 1.113 1991/05/14 21:20:52 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/lincom.scm,v 1.114 1991/09/17 19:03:27 arthur Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -335,8 +335,11 @@ With argument COLUMN, indent each line to that column."
   "Indent all lines starting in the region sideways by ARG columns."
   "r\nP"
   (lambda (region argument)
-    (if argument
-       (indent-rigidly (region-start region) (region-end region) argument))))
+    (let ((argument (command-argument-numeric-value argument)))
+      (if argument
+         (indent-rigidly (region-start region)
+                         (region-end region)
+                         argument)))))
 
 (define (indent-rigidly start end n-columns)
   (for-each-line-in-region start end