replace-match has its second argument negated in Edwin when compared

to GNU Emacs.

diff --git a/v7/src/edwin/dabbrev.scm b/v7/src/edwin/dabbrev.scm
index 10dbc4c2cf11f56bcd695a0fdc74017dcb80b6ae..dbc418ac2d5e16ea40026f4650d015ae0ca83ba2 100644 (file)
--- a/v7/src/edwin/dabbrev.scm
+++ b/v7/src/edwin/dabbrev.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: dabbrev.scm,v 1.2 1992/12/01 14:12:44 gjr Exp $
+;;;    $Id: dabbrev.scm,v 1.3 1992/12/01 14:53:10 gjr Exp $
 ;;;
 ;;;    Copyright (c) 1992 Massachusetts Institute of Technology
 ;;;
@@ -157,14 +157,14 @@ with the next possible expansion not yet tried."
                                   (string-length expansion)))))
                ;; First put back the original abbreviation with its original
                ;; case pattern.
-               (replace-match abbrev true true)
+               (replace-match abbrev false true)
                (search-forward abbrev
                                place
                                (buffer-end (current-buffer)))
                (replace-match (if do-case
                                   (string-downcase expansion)
                                   expansion)
-                              (not do-case)
+                              do-case
                               true)
                ;; Save state for re-expand.
                (set-variable! last-dabbrevs-abbreviation abbrev)