Fix thinko.

diff --git a/v7/src/edwin/abbrev.scm b/v7/src/edwin/abbrev.scm
index e5c0c063888deb1c4d620bf8eb1ddbe90bf86c5c..03531d1b745760e5af3c2ba6d054945d711913b2 100644 (file)
--- a/v7/src/edwin/abbrev.scm
+++ b/v7/src/edwin/abbrev.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: abbrev.scm,v 1.1 2000/02/28 22:50:55 cph Exp $
+;;; $Id: abbrev.scm,v 1.2 2000/02/29 01:34:47 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -420,7 +420,7 @@ and be replaced by its expansion."
   (lambda (argument)
     (let ((mode (ref-mode-object abbrev)))
       (if (if argument
-             (> (command-argument-value argument) 0)
+             (> (command-argument-numeric-value argument) 0)
              (not (current-minor-mode? mode)))
          (enable-current-minor-mode! mode)
          (disable-current-minor-mode! mode)))))

diff --git a/v7/src/edwin/basic.scm b/v7/src/edwin/basic.scm
index 4b2b411186bcc5a444d38405bd94fde09ec31abc..3b3e5bc21698426cd011bbddd18a69c85beda423 100644 (file)
--- a/v7/src/edwin/basic.scm
+++ b/v7/src/edwin/basic.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: basic.scm,v 1.136 2000/02/28 22:50:14 cph Exp $
+;;; $Id: basic.scm,v 1.137 2000/02/29 01:34:38 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -25,12 +25,12 @@
 (define-command self-insert-command
   "Insert the character you type.
 Whichever character you type to run this command is inserted."
-  "p"
-  (lambda (n)
+  "P"
+  (lambda (argument)
     (let ((char (last-command-key)))
       (if (not (char? char))
          (editor-error "self-insert-command only works on character keys."))
-      (self-insert char n #t))))
+      (self-insert char (command-argument-numeric-value argument) #t))))
 
 (define (self-insert char n allow-auto-fill?)
   (and (> n 0)
@@ -97,7 +97,7 @@ With an argument, inserts several newlines."
   "P"
   (lambda (argument)
     (let ((m* (mark-right-inserting (current-point))))
-      (insert-newlines (or (command-argument-value argument) 1))
+      (insert-newlines (command-argument-numeric-value argument))
       (set-current-point! m*))))
 \f
 (define-command narrow-to-region

diff --git a/v7/src/edwin/comred.scm b/v7/src/edwin/comred.scm
index 280a6e04f06d4701fad9e7bf8afee373572a6583..d3b01c76efeead9186afb798ac005202416240e6 100644 (file)
--- a/v7/src/edwin/comred.scm
+++ b/v7/src/edwin/comred.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: comred.scm,v 1.116 2000/02/28 22:50:03 cph Exp $
+;;; $Id: comred.scm,v 1.117 2000/02/29 01:34:55 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -432,7 +432,7 @@
        (or (command-argument-value (command-argument))
            (prompt-for-number prompt false))))
       ((#\p)
-       (prefix (or (command-argument-value (command-argument)) 1)))
+       (prefix (command-argument-numeric-value (command-argument))))
       ((#\P)
        (prefix (command-argument)))
       ((#\r)