From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 29 Feb 2000 01:34:55 +0000 (+0000)
Subject: Fix thinko.
X-Git-Tag: 20090517-FFI~4223
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f1301eaeeb150f3fe2a8e2ff902fb43a9d883b1c;p=mit-scheme.git

Fix thinko.
---

diff --git a/v7/src/edwin/abbrev.scm b/v7/src/edwin/abbrev.scm
index e5c0c0638..03531d1b7 100644
--- 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 4b2b41118..3b3e5bc21 100644
--- 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*))))
 
 (define-command narrow-to-region
diff --git a/v7/src/edwin/comred.scm b/v7/src/edwin/comred.scm
index 280a6e04f..d3b01c76e 100644
--- 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)