Allow null replacement string in replacement commands.

diff --git a/v7/src/edwin/replaz.scm b/v7/src/edwin/replaz.scm
index a097cf556f168cd437af88a51a6cf14f71b634cd..cfd8deff2f3bb785fdbf22aa8fa50e426abc49d2 100644 (file)
--- a/v7/src/edwin/replaz.scm
+++ b/v7/src/edwin/replaz.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/replaz.scm,v 1.69 1991/05/02 01:14:17 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/replaz.scm,v 1.70 1991/05/04 20:14:19 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -54,7 +54,9 @@
 (define (replace-string-arguments name)
   (let ((source (prompt-for-string name false)))
     (list source
-         (prompt-for-string (string-append name " " source " with") false)
+         (prompt-for-string (string-append name " " source " with")
+                            false
+                            'NULL-DEFAULT)
          (command-argument))))
 
  (define-command replace-string

diff --git a/v7/src/edwin/tagutl.scm b/v7/src/edwin/tagutl.scm
index a1afa88cb1a3a4200264a8f8e6c79e0b29df8365..1904781fbaac2ab5c12c0cbf4faa370fc7959540 100644 (file)
--- a/v7/src/edwin/tagutl.scm
+++ b/v7/src/edwin/tagutl.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/tagutl.scm,v 1.39 1991/05/02 01:14:40 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/tagutl.scm,v 1.40 1991/05/04 20:14:04 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -227,7 +227,8 @@ See documentation of variable tags-file-name."
       (list source
            (prompt-for-string
             (string-append "Tags query replace " source " with")
-            false)
+            false
+            'NULL-DEFAULT)
            (command-argument))))
   (lambda (source target delimited)
     (set! tags-loop-continuation