From 724aa6c022b3090c6e7ddfaeaffa5f7bc5e7c6a0 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 9 Apr 1992 17:22:26 +0000 Subject: [PATCH] Add occurrence commands. --- v7/src/edwin/decls.scm | 3 ++- v7/src/edwin/ed-ffi.scm | 2 ++ v7/src/edwin/edwin.ldr | 3 ++- v7/src/edwin/edwin.pkg | 19 +++++++++++++++++-- 4 files changed, 23 insertions(+), 4 deletions(-) diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm index bd6070b12..947b7c70e 100644 --- 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 f4353fa6d..ad44e13fb 100644 --- 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 c413c484b..93e0daebe 100644 --- 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 18bf14d9e..7ce9620c7 100644 --- 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 -- 2.25.1