Drop usual-integrations and clean up whitespace

2021-04-26 14:57:47 +03:00 · 2021-04-26 14:57:47 +03:00 · d5291fa353
parent fd63f63d32
commit d5291fa353
160 changed files with 369 additions and 370 deletions
--- a/edwin.ldr
+++ b/edwin.ldr
@ -27,7 +27,7 @@ USA.
 ;;; program to load package contents
 ;;; **** This program (unlike most .ldr files) is not generated by a program.

-(declare (usual-integrations))
+

 (lambda (package/loader key-alist)
  (let ((to-avoid-list (if (file-exists? "edwin.bad")
--- a/edwin/abbrev.scm
+++ b/edwin/abbrev.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Abbrev Mode

-(declare (usual-integrations))
+

 ;;;; Low-level data structures

--- a/edwin/adapters.scm
+++ b/edwin/adapters.scm
@ -40,7 +40,7 @@ USA.
 ;;; string) package, which contains a copy of the runtime's old string
 ;;; implementation.  Other things, like file I/O, are handled here.

-(declare (usual-integrations))
+

 (define (call-with-file-adapter procedure)
  (lambda (pathname receiver)
--- a/edwin/ansi.scm
+++ b/edwin/ansi.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Hard-coded ANSI terminal type for lack of termcap on DOS/NT

-(declare (usual-integrations))
+

 (define (make-ansi-terminal-description columns lines)
  (define (get-numstring base-name)
--- a/edwin/argred.scm
+++ b/edwin/argred.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Command Argument Reader

-(declare (usual-integrations))
+

 (define-command universal-argument
  "Begin a numeric argument for the following command.
--- a/edwin/artdebug.scm
+++ b/edwin/artdebug.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Continuation Browser

-(declare (usual-integrations))
+

 #| TO DO

--- a/edwin/autold.scm
+++ b/edwin/autold.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Autoloads for Edwin

-(declare (usual-integrations))
+

 ;;;; Definitions

--- a/edwin/autosv.scm
+++ b/edwin/autosv.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Auto Save

-(declare (usual-integrations))
+

 (define-variable auto-save-visited-file-name
  "True says auto-save a buffer in the file it is visiting, when practical.
--- a/edwin/basic.scm
+++ b/edwin/basic.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Basic Commands

-(declare (usual-integrations))
+

 (define-command self-insert-command
  "Insert the character you type.
--- a/edwin/bios.scm
+++ b/edwin/bios.scm
@ -27,7 +27,7 @@ USA.
 ;;;; IBM-PC BIOS Screen Implementation
 ;;; package: (edwin screen console-screen)

-(declare (usual-integrations))
+

 (define (make-bios-screen)
  ;; What is the baud rate needed for?  It's not even meaningful.
--- a/edwin/bufcom.scm
+++ b/edwin/bufcom.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Buffer Commands

-(declare (usual-integrations))
+

 (define (prompt-for-select-buffer prompt)
  (lambda ()
--- a/edwin/buffer.scm
+++ b/edwin/buffer.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Buffer Abstraction

-(declare (usual-integrations))
+

 (define-structure (buffer
 		   (constructor %make-buffer (%name %default-directory))
--- a/edwin/buffrm.scm
+++ b/edwin/buffrm.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Buffer Frames

-(declare (usual-integrations))
+

 (define-class buffer-frame combination-leaf-window
  (
--- a/edwin/bufinp.scm
+++ b/edwin/bufinp.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Buffer Input Ports

-(declare (usual-integrations))
+

 (define (with-input-from-mark mark thunk #!optional receiver)
  (let ((port (make-buffer-input-port mark (group-end mark))))
--- a/edwin/bufmnu.scm
+++ b/edwin/bufmnu.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Buffer Menu

-(declare (usual-integrations))
+

 (define-variable buffer-menu-kill-on-quit
  "If not false, kill the *Buffer-List* buffer when leaving it."
--- a/edwin/bufout.scm
+++ b/edwin/bufout.scm
@ -27,7 +27,7 @@ USA.
 ;;;; Buffer Output Ports
 ;;; Package: (edwin buffer-output-port)

-(declare (usual-integrations))
+

 (define (with-output-to-mark mark thunk)
  (call-with-output-mark mark
--- a/edwin/bufset.scm
+++ b/edwin/bufset.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Buffer Set Abstraction

-(declare (usual-integrations))
+

 (define-structure (bufferset (constructor %make-bufferset))
  buffer-list
--- a/edwin/bufwfs.scm
+++ b/edwin/bufwfs.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Buffer Windows: Fill and Scroll

-(declare (usual-integrations))
+

 (define (fill-top window start)
  (let ((group (%window-group window))
--- a/edwin/bufwin.scm
+++ b/edwin/bufwin.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Buffer Windows: Base

-(declare (usual-integrations))
+

 ;;; The following instance variables contain permanent marks, which
 ;;; must be copied if they are passed to someone outside the buffer
--- a/edwin/bufwiu.scm
+++ b/edwin/bufwiu.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Buffer Windows: Image Update

-(declare (usual-integrations))
+

 ;;;; Insert/Delete

--- a/edwin/bufwmc.scm
+++ b/edwin/bufwmc.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Buffer Windows: Mark <-> Coordinate Maps

-(declare (usual-integrations))
+

 (define-integrable (buffer-window/mark->x window mark)
  (buffer-window/index->x window (mark-index mark)))
--- a/edwin/c-mode.scm
+++ b/edwin/c-mode.scm
@ -26,7 +26,7 @@ USA.

 ;;;; C Mode (from GNU Emacs)

-(declare (usual-integrations))
+

 (define-major-mode c fundamental "C"
  "Major mode for editing C code.
--- a/edwin/calias.scm
+++ b/edwin/calias.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Alias Keys

-(declare (usual-integrations))
+

 (define alias-keys '())

--- a/edwin/cinden.scm
+++ b/edwin/cinden.scm
@ -26,7 +26,7 @@ USA.

 ;;;; C Indentation (from GNU Emacs)

-(declare (usual-integrations))
+

 (define-variable c-indent-level
  "Indentation of C statements with respect to containing block."
--- a/edwin/class.scm
+++ b/edwin/class.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Class/Object System

-(declare (usual-integrations))
+

 ;;; ******************************************************************
 ;;; This software is intended for use in the Edwin window system only.
--- a/edwin/clscon.scm
+++ b/edwin/clscon.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Class/Object System: Class Constructor

-(declare (usual-integrations))
+

 ;;; ******************************************************************
 ;;; This software is intended for use in the Edwin window system only.
--- a/edwin/clsmac.scm
+++ b/edwin/clsmac.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Class/Object System

-(declare (usual-integrations))
+

 ;;; ******************************************************************
 ;;; This software is intended for use in the Edwin window system only.
--- a/edwin/comatch.scm
+++ b/edwin/comatch.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Combinatoric Matcher

-(declare (usual-integrations))
+

 ;;; This matcher allows compex matching patterns to be built up from
 ;;; primitives using combinators.  With this implementation, the
--- a/edwin/comhst.scm
+++ b/edwin/comhst.scm
@ -27,7 +27,7 @@ USA.
 ;;;; Command interpreter history
 ;;; Translated from "comint.el", by Olin Shivers.

-(declare (usual-integrations))
+

 (define-variable-per-buffer comint-input-ring-size
  "Size of input history ring."
--- a/edwin/comint.scm
+++ b/edwin/comint.scm
@ -27,7 +27,7 @@ USA.
 ;;;; Command interpreter subprocess control
 ;;; Translated from "comint.el", by Olin Shivers.

-(declare (usual-integrations))
+

 (define (make-comint mode buffer program . switches)
  (let ((buffer
--- a/edwin/comman.scm
+++ b/edwin/comman.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Commands and Variables

-(declare (usual-integrations))
+

 (define-structure (command
 		   (constructor %make-command ())
--- a/edwin/compile.scm
+++ b/edwin/compile.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Compilation Subprocess

-(declare (usual-integrations))
+

 (define-variable compile-command
  "Initial contents of \\[compile] prompt."
--- a/edwin/comred.scm
+++ b/edwin/comred.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Command Reader

-(declare (usual-integrations))
+

 (define *command-key*)		;Key read to find current command
 (define *command*)		;The current command
--- a/edwin/comtab.scm
+++ b/edwin/comtab.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Command Tables

-(declare (usual-integrations))
+

 (define-structure (comtab (constructor make-comtab ()))
  (vector 0)
--- a/edwin/comwin.scm
+++ b/edwin/comwin.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Combination Windows

-(declare (usual-integrations))
+

 ;;; Combination windows are used to split a window into vertically or
 ;;; horizontally divided areas.  That window's initial superior must
--- a/edwin/curren.scm
+++ b/edwin/curren.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Current State

-(declare (usual-integrations))
+

 ;;;; Screens

--- a/edwin/dabbrev.scm
+++ b/edwin/dabbrev.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Dynamic Abbrev

-(declare (usual-integrations))
+

 (define-variable dabbrevs-backward-only
  "If true, dabbrevs-expand only looks backwards."
--- a/edwin/debian-changelog.scm
+++ b/edwin/debian-changelog.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Debian changelog mode

-(declare (usual-integrations))
+

 (define-command debian-changelog-mode
  "Enter Debian changelog mode."
--- a/edwin/debug.scm
+++ b/edwin/debug.scm
@ -27,7 +27,7 @@ USA.
 ;;;; Browser-style Debug and Where
 ;;; Package: (edwin debugger)

-(declare (usual-integrations))
+

 ;;;; Text prop setup stuff

--- a/edwin/debuge.scm
+++ b/edwin/debuge.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Debugging Stuff

-(declare (usual-integrations))
+

 (define (debug-save-files)
  (for-each debug-save-buffer
--- a/edwin/decls.scm
+++ b/edwin/decls.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Edwin: Syntaxing Declarations

-(declare (usual-integrations))
+

 (let* ((sf-names (lambda (file) (sf/pathname-defaulting file #f #f)))
       (scm-file (lambda (file) (receive (scm bin spec) (sf-names file) scm)))
--- a/edwin/diff.scm
+++ b/edwin/diff.scm
@ -11,7 +11,7 @@ Domain.  All warranties are disclaimed.
 ;;; bells & whistles for converting between unified and context diffs,
 ;;; like in GNU Emacs.  Some day.

-(declare (usual-integrations))
+

 (define-variable diff-program
  "The name of the diff program."
--- a/edwin/dired.scm
+++ b/edwin/dired.scm
@ -27,7 +27,7 @@ USA.
 ;;;; Directory Editor
 ;; package: (edwin dired)

-(declare (usual-integrations))
+

 (define-variable dired-trivial-filenames
  "Regexp of files to skip when finding first file of a directory.
--- a/edwin/dirunx.scm
+++ b/edwin/dirunx.scm
@ -27,7 +27,7 @@ USA.
 ;;;; Directory Editor (Unix Customizations)
 ;;; package: (edwin dired)

-(declare (usual-integrations))
+

 (define (dired-change-inode program)
  (lambda (attribute argument)
--- a/edwin/dirw32.scm
+++ b/edwin/dirw32.scm
@ -27,7 +27,7 @@ USA.
 ;;;; Directory Editor (Win32 Customizations)
 ;;; package: (edwin dired)

-(declare (usual-integrations))
+

 (define-key 'dired #\Z 'dired-do-compress)
 (define-key 'dired #\S 'dired-hidden-toggle)
--- a/edwin/display.scm
+++ b/edwin/display.scm
@ -27,7 +27,7 @@ USA.
 ;;;; Display-Type Abstraction
 ;;; package: (edwin display-type)

-(declare (usual-integrations))
+

 (define-structure (display-type
 		   (conc-name display-type/)
--- a/edwin/docstr.scm
+++ b/edwin/docstr.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Documentation Strings

-(declare (usual-integrations))
+

 (define *external-doc-strings?* #t)
 (define *external-doc-strings-file* #f)
--- a/edwin/dos.scm
+++ b/edwin/dos.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Win32 Customizations for Edwin

-(declare (usual-integrations))
+

 (define (os/set-file-modes-writeable! pathname)
  (set-file-modes! pathname
--- a/edwin/doscom.scm
+++ b/edwin/doscom.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Shell commands for DOS

-(declare (usual-integrations))
+

 (load-option 'DOSPROCESS)

--- a/edwin/dosfile.scm
+++ b/edwin/dosfile.scm
@ -26,7 +26,7 @@ USA.

 ;;;; DOS-Syntax File Customizations

-(declare (usual-integrations))
+

 (define-variable version-control
  "Control use of version numbers for backup files.
--- a/edwin/dosproc.scm
+++ b/edwin/dosproc.scm
@ -27,7 +27,7 @@ USA.
 ;;;; Dummy subprocess support
 ;; package: (edwin process)

-(declare (usual-integrations))
+

 (define subprocesses-available?
  #f)
--- a/edwin/dosshell.scm
+++ b/edwin/dosshell.scm
@ -27,7 +27,7 @@ USA.
 ;;;; Pseudo Shell subprocess in a buffer
 ;;; Inspired by "cmushell.el", by Olin Shivers.

-(declare (usual-integrations))
+

 (load-option 'DOSPROCESS)

--- a/edwin/ed-ffi.scm
+++ b/edwin/ed-ffi.scm
@ -24,7 +24,7 @@ USA.

 |#

-(declare (usual-integrations))
+

 ;; This list must be kept in alphabetical order by filename.

--- a/edwin/editor.scm
+++ b/edwin/editor.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Editor Top Level

-(declare (usual-integrations))
+

 (define (edit . args)
  (call-with-current-continuation
--- a/edwin/edtfrm.scm
+++ b/edwin/edtfrm.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Editor Frame

-(declare (usual-integrations))
+

 ;;; Editor Frame

--- a/edwin/edtstr.scm
+++ b/edwin/edtstr.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Editor Data Abstraction

-(declare (usual-integrations))
+

 (define-structure (editor (constructor %make-editor))
  (name #f read-only #t)
--- a/edwin/evlcom.scm
+++ b/edwin/evlcom.scm
@ -27,7 +27,7 @@ USA.
 ;;;; Evaluation Commands
 ;;; Package: (edwin)

-(declare (usual-integrations))
+

 ;;;; Variables

--- a/edwin/eystep.scm
+++ b/edwin/eystep.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Edwin Interface to YStep

-(declare (usual-integrations))
+

 (define-command step-expression
  "Single-step an expression."
--- a/edwin/filcom.scm
+++ b/edwin/filcom.scm
@ -26,7 +26,7 @@ USA.

 ;;;; File Commands

-(declare (usual-integrations))
+

 (define (find-file filename)
  (select-buffer (find-file-noselect filename #t)))
--- a/edwin/fileio.scm
+++ b/edwin/fileio.scm
@ -26,7 +26,7 @@ USA.

 ;;;; File <-> Buffer I/O

-(declare (usual-integrations))
+

 ;;;; Encrypted files

--- a/edwin/fill.scm
+++ b/edwin/fill.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Text Fill Commands

-(declare (usual-integrations))
+

 (define-variable-per-buffer fill-column
  "Column beyond which automatic line-wrapping should happen.
--- a/edwin/hlpcom.scm
+++ b/edwin/hlpcom.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Help Commands

-(declare (usual-integrations))
+

 (define-command help-prefix
  "This is a prefix for more commands.
--- a/edwin/htmlmode.scm
+++ b/edwin/htmlmode.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Major Mode for XML

-(declare (usual-integrations))
+

 (define-major-mode xml text "XML"
  "Major mode for editing XML.
--- a/edwin/image.scm
+++ b/edwin/image.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Display Imaging

-(declare (usual-integrations))
+

 (define (group-columns group start end column tab-width char-image-strings)
  (let ((text       (group-text group))
@ -412,4 +412,3 @@ USA.
 		  (begin
 		    (string-set! image image-index (string-ref picture i))
 		    (loop (fix:+ i 1) (fix:+ image-index 1))))))))))
-
--- a/edwin/info.scm
+++ b/edwin/info.scm
@ -27,7 +27,7 @@ USA.
 ;;;; Info Mode
 ;;; Shamelessly copied from GNU Emacs.

-(declare (usual-integrations))
+

 (define-command info
  "Create a buffer for Info, the documentation browser program."
--- a/edwin/input.scm
+++ b/edwin/input.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Keyboard Input

-(declare (usual-integrations))
+

 #|

--- a/edwin/intmod.scm
+++ b/edwin/intmod.scm
@ -27,7 +27,7 @@ USA.
 ;;;; Inferior REPL Mode
 ;;; Package: (edwin inferior-repl)

-(declare (usual-integrations))
+

 (define-variable repl-enable-transcript-buffer
  "If true, record input and output from inferior REPLs in transcript buffer.
--- a/edwin/iserch.scm
+++ b/edwin/iserch.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Incremental Search

-(declare (usual-integrations))
+

 (define (isearch forward? regexp?)
  (reset-command-prompt!)
--- a/edwin/javamode.scm
+++ b/edwin/javamode.scm
@ -35,7 +35,7 @@ USA.
 ;;; could be done using the keyparser, but that would be much more
 ;;; work than this was.

-(declare (usual-integrations))
+

 (define-major-mode java c "Java"
  "Major mode for editing Java code.
--- a/edwin/key-w32.scm
+++ b/edwin/key-w32.scm
@ -27,7 +27,7 @@ USA.
 ;;;; Windows Keys
 ;;; Package: (edwin win32-keys)

-(declare (usual-integrations))
+

 (define (initialize-package!)
  (set! end (make-special-key 'END 0))
--- a/edwin/keymap.scm
+++ b/edwin/keymap.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Command Summary

-(declare (usual-integrations))
+

 (define-command describe-bindings
  "Show a list of all defined keys, and their definitions.
--- a/edwin/keyparse.scm
+++ b/edwin/keyparse.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Keyword Syntax Parser

-(declare (usual-integrations))
+

 (define-structure (description
 		   (keyword-constructor make-keyparser-description)
--- a/edwin/kilcom.scm
+++ b/edwin/kilcom.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Kill Commands

-(declare (usual-integrations))
+

 ;;;; Deletion

--- a/edwin/kmacro.scm
+++ b/edwin/kmacro.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Keyboard Macros

-(declare (usual-integrations))
+

 (define *defining-keyboard-macro?* #f)
 (define *executing-keyboard-macro?* #f)
--- a/edwin/lincom.scm
+++ b/edwin/lincom.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Line/Indentation Commands

-(declare (usual-integrations))
+

 ;;;; Lines

--- a/edwin/linden.scm
+++ b/edwin/linden.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Lisp Indentation

-(declare (usual-integrations))
+

 (define-variable lisp-indent-offset
  "If not false, the number of extra columns to indent a subform."
--- a/edwin/loadef.scm
+++ b/edwin/loadef.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Autoload Definitions

-(declare (usual-integrations))
+

 ;;; ****************

--- a/edwin/lspcom.scm
+++ b/edwin/lspcom.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Lisp Commands

-(declare (usual-integrations))
+

 ;;;; S-expression Commands

--- a/edwin/macros.scm
+++ b/edwin/macros.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Editor Macros

-(declare (usual-integrations))
+

 ;; Upwards compatibility:
 (define edwin-syntax-table (->environment '(EDWIN)))
--- a/edwin/make.scm
+++ b/edwin/make.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Edwin: System Construction

-(declare (usual-integrations))
+

 (load-option 'xml)
 (with-loader-base-uri (system-library-uri "edwin/")
--- a/edwin/malias.scm
+++ b/edwin/malias.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Mail Aliases

-(declare (usual-integrations))
+

 (define-command define-mail-alias
  "Define NAME as a mail-alias that translates to DEFINITION."
--- a/edwin/manual.scm
+++ b/edwin/manual.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Display Manual Pages

-(declare (usual-integrations))
+

 (define-command manual-entry
  "Display the Unix manual entry for TOPIC.
--- a/edwin/midas.scm
+++ b/edwin/midas.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Midas Mode

-(declare (usual-integrations))
+

 (define-command midas-mode
  "Enter Midas mode."
--- a/edwin/modefs.scm
+++ b/edwin/modefs.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Fundamental Mode

-(declare (usual-integrations))
+

 (define-command fundamental-mode
  "Make the current mode be Fundamental Mode.
--- a/edwin/modes.scm
+++ b/edwin/modes.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Modes

-(declare (usual-integrations))
+

 (define-structure (mode
 		   (constructor %make-mode
--- a/edwin/modlin.scm
+++ b/edwin/modlin.scm
@ -27,7 +27,7 @@ USA.
 ;;;; Modeline Format
 ;;; package: (edwin mode-line-format)

-(declare (usual-integrations))
+

 (define-variable-per-buffer mode-line-format
  "Template for displaying mode line for current buffer.
--- a/edwin/modwin.scm
+++ b/edwin/modwin.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Modeline Window

-(declare (usual-integrations))
+

 (define-class modeline-window vanilla-window
  (shows-buffer-modified?))
--- a/edwin/motcom.scm
+++ b/edwin/motcom.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Motion Commands

-(declare (usual-integrations))
+

 (define-command beginning-of-line
  "Move point to beginning of line."
--- a/edwin/motion.scm
+++ b/edwin/motion.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Motion within Groups

-(declare (usual-integrations))
+

 ;;;; Motion by Characters

--- a/edwin/mousecom.scm
+++ b/edwin/mousecom.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Mouse Commands

-(declare (usual-integrations))
+

 (define-command mouse-select
  "Select window the mouse is on."
--- a/edwin/nntp.scm
+++ b/edwin/nntp.scm
@ -36,7 +36,7 @@ USA.
 ;;; it contains, and the headers in each group.  It also provides a
 ;;; method for combining headers into conversation threads.

-(declare (usual-integrations))
+

 ;;;; NNTP Connection

--- a/edwin/notify.scm
+++ b/edwin/notify.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Mode-line notifications (e.g. presence of mail, load average)

-(declare (usual-integrations))
+

 (define-variable notify-show-time
  "If true, the notifier displays the current time."
--- a/edwin/nvector.scm
+++ b/edwin/nvector.scm
@ -26,7 +26,7 @@ USA.

 ;;;; New Vector Operations

-(declare (usual-integrations))
+

 (define (vector-delq! vector index item)
  (vector-set! vector index (delq! item (vector-ref vector index))))
--- a/edwin/occur.scm
+++ b/edwin/occur.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Occurrence Commands

-(declare (usual-integrations))
+

 (define-command keep-lines
  "Delete all lines except those containing matches for REGEXP.
--- a/edwin/outline.scm
+++ b/edwin/outline.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Outline minor mode

-(declare (usual-integrations))
+

 (define (%forward-up-topic start end outline-pattern)
  (if (not (mark<= start end)) (error "Marks incorrectly related:" start end))
--- a/edwin/paredit.scm
+++ b/edwin/paredit.scm
@ -7,7 +7,7 @@ Domain.  All warranties are disclaimed.

 ;;;; Paredit: Parenthesis-Editing Minor Mode (based on paredit.el)

-(declare (usual-integrations))
+

 (define-command paredit-mode
  "Toggle pseudo-structural editing of Lisp code.
--- a/edwin/pasmod.scm
+++ b/edwin/pasmod.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Pascal Mode

-(declare (usual-integrations))
+

 (define-command pascal-mode
  "Enter Pascal mode."
--- a/edwin/paths.scm
+++ b/edwin/paths.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Edwin Pathnames

-(declare (usual-integrations))
+

 (define (edwin-library-directory-pathname envvar required?)
  (let ((envval (get-environment-variable envvar)))
--- a/edwin/print.scm
+++ b/edwin/print.scm
@ -26,7 +26,7 @@ USA.

 ;;;; Print Buffers and Regions

-(declare (usual-integrations))
+

 (define-command lpr-buffer
  "Print buffer contents as with Unix command `lpr'.
--- a/edwin/process.scm
+++ b/edwin/process.scm
@ -27,7 +27,7 @@ USA.
 ;;;; Subprocess Support
 ;; package: (edwin process)

-(declare (usual-integrations))
+

 (define subprocesses-available? #t)

--- a/Show More
+++ b/Show More