Add occurrence commands.

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index bd6070b127705e1a3593e300182c24a4164f0432..947b7c70e78a1aa66746187c67fa2cf0d2da0572 100644 (file)
--- a/v7/src/edwin/decls.scm
+++ b/v7/src/edwin/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.33 1992/03/24 23:31:57 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.34 1992/04/09 17:22:24 cph Exp $
 
 Copyright (c) 1989-92 Massachusetts Institute of Technology
 
@@ -156,6 +156,7 @@ MIT in each case. |#
                "motcom"
                "motion"
                "notify"
+               "occur"
                "pasmod"
                "print"
                "process"

diff --git a/v7/src/edwin/ed-ffi.scm b/v7/src/edwin/ed-ffi.scm
index f4353fa6d5227ed39430537e1c8b49b2d60ae8a1..ad44e13fb9929007e9c2ae0f59226442a0faef45 100644 (file)
--- a/v7/src/edwin/ed-ffi.scm
+++ b/v7/src/edwin/ed-ffi.scm
@@ -139,6 +139,8 @@
               edwin-syntax-table)
     ("nvector" (edwin)
               syntax-table/system-internal)
+    ("occur"   (edwin occurrence)
+              edwin-syntax-table)
     ("pasmod"  (edwin)
               edwin-syntax-table)
     ("paths"   (edwin)

diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr
index c413c484b5c6eb8845dee15901d09e71378d7e39..93e0daebe5a6ea94800f3c57a46f786aa2d1d817 100644 (file)
--- a/v7/src/edwin/edwin.ldr
+++ b/v7/src/edwin/edwin.ldr
@@ -1,5 +1,5 @@
 ;;; -*-Scheme-*-
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.ldr,v 1.25 1992/03/24 23:32:11 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.ldr,v 1.26 1992/04/09 17:22:25 cph Exp $
 ;;; program to load package contents
 ;;; **** This program (unlike most .ldr files) is not generated by a program.
 
@@ -104,6 +104,7 @@
     (load "lspcom" environment)
     (load "malias" (->environment '(EDWIN MAIL-ALIAS)))
     (load "motcom" environment)
+    (load "occur" (->environment '(EDWIN OCCURRENCE)))
     (load "rcs" (->environment '(EDWIN RCS)))
     (load "reccom" (->environment '(EDWIN RECTANGLE)))
     (load "regcom" (->environment '(EDWIN REGISTER-COMMAND)))

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 18bf14d9e2bd13c8e1f3bb4272709a02ff6411d2..7ce9620c73a9644c5e68dacb487a0f46c1e2f0c6 100644 (file)
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.85 1992/04/08 17:57:40 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.86 1992/04/09 17:22:26 cph Exp $
 
 Copyright (c) 1989-92 Massachusetts Institute of Technology
 
@@ -1031,4 +1031,19 @@ MIT in each case. |#
          edwin-variable$bindings-window-fraction)
   (import (runtime debugger-utilities)
          show-environment-bindings)
-  (initialization (initialize-bochser-mode!)))
\ No newline at end of file
+  (initialization (initialize-bochser-mode!)))
+
+(define-package (edwin occurrence)
+  (files "occur")
+  (parent (edwin))
+  (export (edwin)
+         edwin-command$count-matches
+         edwin-command$delete-matching-lines
+         edwin-command$delete-non-matching-lines
+         edwin-command$flush-lines
+         edwin-command$how-many
+         edwin-command$keep-lines
+         edwin-command$occur
+         edwin-command$occur-mode-goto-occurrence
+         edwin-mode$occur
+         edwin-variable$list-matching-lines-default-context-lines))
\ No newline at end of file