Drop usual-integrations and clean up whitespace

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")
@@ -258,4 +258,4 @@ USA.
 	(if (access *external-doc-strings?* environment)
 	    (begin
 	      (set! (access *external-doc-strings?* environment) false)
-	      (warn "Remember to use ``dump-doc-strings''!")))))))
+	      (warn "Remember to use ``dump-doc-strings''!")))))))

edwin/abbrev.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Abbrev Mode
 
-(declare (usual-integrations))
+
 
 ;;;; Low-level data structures
 
@@ -631,4 +631,4 @@ The argument FILENAME is the file name to write."
 	     ((ref-command write-abbrev-file) #f))
 	 ;; Don't keep bothering user if he says no.
 	 (set! abbrevs-changed? #f)
-	 #t)))
+	 #t)))

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)
@@ -61,4 +61,4 @@ USA.
 
 (define char-set:graphic
   (char-set-union (ucs-range->char-set #x20 #x7F)
-		  (ucs-range->char-set #xA0 #x100)))
+		  (ucs-range->char-set #xA0 #x100)))

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)
@@ -150,4 +150,4 @@ USA.
        false				; ts-set-window
        false				; ts-visible-bell
        '()                              ; termcap-description-keys
-       ))))
+       ))))

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.
@@ -140,4 +140,4 @@ Otherwise, the character inserts itself."
 	(else argument)))
 
 (define (command-argument-numeric-value argument)
-  (or (command-argument-value argument) 1))
+  (or (command-argument-value argument) 1))

edwin/artdebug.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Continuation Browser
 
-(declare (usual-integrations))
+
 
 #| TO DO
 
@@ -1353,4 +1353,4 @@ Prefix argument means do not kill the debugger buffer."
      (DEBUGGER-PRESENTATION ,debugger-presentation)
      (PROMPT-FOR-EXPRESSION ,operation/prompt-for-expression)
      (PROMPT-FOR-CONFIRMATION ,operation/prompt-for-confirmation))
-   #f))
+   #f))

edwin/autold.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Autoloads for Edwin
 
-(declare (usual-integrations))
+
 
 ;;;; Definitions
 
@@ -236,4 +236,4 @@ Second arg PURIFY? means purify the file's contents after loading;
 	 evaluation-error-handler
        (lambda ()
 	 (parameterize ((param:suppress-loading-message? #t))
-	   (load filename environment 'DEFAULT purify?)))))))
+	   (load filename environment 'DEFAULT purify?)))))))

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.
@@ -177,4 +177,4 @@ This file is not the file you visited; that changes only when you save."
 		   #f
 		   'DEFAULT)
      (set-buffer-save-length! buffer)
-     (set-buffer-auto-saved! buffer))))
+     (set-buffer-auto-saved! buffer))))

edwin/basic.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Basic Commands
 
-(declare (usual-integrations))
+
 
 (define-command self-insert-command
   "Insert the character you type.
@@ -161,7 +161,7 @@ This command followed by an = is equivalent to a Control-=."
        (merge-bucky-bits char char-bit:control)))))
 
 (define-command meta-prefix
-  "Sets Meta-bit of following character. 
+  "Sets Meta-bit of following character.
 Turns a following A into a Meta-A.
 If the Metizer character is Altmode, it turns ^A
 into Control-Meta-A.  Otherwise, it turns ^A into plain Meta-A."
@@ -570,4 +570,4 @@ In addition, if the first character of the string is '*' then an error is
  signaled if the buffer is read-only.
  This happens before reading any arguments."
   ()
-  (lambda () (editor-error "DEFINE-COMMAND shouldn't be invoked")))
+  (lambda () (editor-error "DEFINE-COMMAND shouldn't be invoked")))

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.
@@ -184,4 +184,4 @@ USA.
 (define (bios-console-scroll-lines-up! screen xl xu yl yu amount)
   screen
   (bios:scroll-lines-up! xl (fix:-1+ xu) yl (fix:-1+ yu) amount)
-  'CLEARED)
+  'CLEARED)

edwin/bufcom.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Buffer Commands
 
-(declare (usual-integrations))
+
 
 (define (prompt-for-select-buffer prompt)
   (lambda ()
@@ -336,4 +336,4 @@ This variable has no effect if select-buffer-create is false."
 	 (and default-buffer (buffer-name default-buffer))
 	 (buffer-names)
 	 'DEFAULT-TYPE (if default-buffer 'VISIBLE-DEFAULT 'NO-DEFAULT)
-	 options))
+	 options))

edwin/buffer.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Buffer Abstraction
 
-(declare (usual-integrations))
+
 
 (define-structure (buffer
 		   (constructor %make-buffer (%name %default-directory))
@@ -563,4 +563,4 @@ The buffer is guaranteed to be deselected at that time."
 				  (delq! (minor-mode-comtab mode)
 					 (buffer-comtabs buffer)))
 	     (remove-minor-mode-line-entry! buffer mode)
-	     (buffer-modeline-event! buffer 'buffer-modes)))))))
+	     (buffer-modeline-event! buffer 'buffer-modes)))))))

edwin/buffrm.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Buffer Frames
 
-(declare (usual-integrations))
+
 
 (define-class buffer-frame combination-leaf-window
   (
@@ -332,7 +332,7 @@ Automatically becomes local when set in any fashion."
 	       (and (string? (vector-ref object i))
 		    (<= 1 (string-length (vector-ref object i)) 255)
 		    (loop (+ i 1))))))))
-	 
+
 (let ((setup-truncate-lines!
        (lambda (buffer variable)
 	 variable			;ignore
@@ -529,4 +529,4 @@ Automatically becomes local when set in any fashion."
       (set! restore-saved-continuation? #f))
   unspecific)
 
-(define restore-saved-continuation?)
+(define restore-saved-continuation?)

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))))
@@ -113,4 +113,4 @@ USA.
       ,(lambda (port output)
 	 (write-string " from buffer at " output)
 	 (write (input-port/mark port) output))))
-   #f))
+   #f))

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."
@@ -429,4 +429,4 @@ and then move up one line."
 	    ((char=? (mark-right-char (mark+ lstart column)) char)
 	     (cons (mark-permanent! lstart) (loop next)))
 	    (else (loop next)))))
-  (loop (line-start (buffer-start (current-buffer)) 2)))
+  (loop (line-start (buffer-start (current-buffer)) 2)))

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
@@ -107,4 +107,4 @@ USA.
 		    (WRITE-SELF ,operation/write-self)
 		    (WRITE-SUBSTRING ,operation/write-substring)
 		    (X-SIZE ,operation/x-size))
-		  #f))
+		  #f))

edwin/bufset.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Buffer Set Abstraction
 
-(declare (usual-integrations))
+
 
 (define-structure (bufferset (constructor %make-bufferset))
   buffer-list
@@ -103,4 +103,4 @@ USA.
   (let ((names (bufferset-names bufferset)))
     (string-table-remove! names (buffer-name buffer))
     (set-buffer-name! buffer new-name)
-    (string-table-put! names new-name buffer)))
+    (string-table-put! names new-name buffer)))

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))
@@ -212,7 +212,7 @@ USA.
 							     end-index
 							     'HIGHLIGHTED)
 			      end-index))
-			 ;; If line is clipped off top of window, draw it 
+			 ;; If line is clipped off top of window, draw it
 			 ;; anyway so that index and column calculations
 			 ;; get done. Use first visible line for image
 			 ;; output so as to avoid consing a dummy image
@@ -429,4 +429,4 @@ USA.
 	    (deallocate-outlines! window (o3-outline start) (o3-outline end))
 	    (deallocate-o3! window start)
 	    (deallocate-o3! window end)
-	    false)))))
+	    false)))))

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
@@ -1261,4 +1261,4 @@ If this is zero, point is always centered after it moves off screen."
 	  (update-cursor! window)))))
 
 (define point-not-visible-error?
-  #f)
+  #f)

edwin/bufwiu.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Buffer Windows: Image Update
 
-(declare (usual-integrations))
+
 
 ;;;; Insert/Delete
 
@@ -546,4 +546,4 @@ USA.
       (%set-inferior-y-start! (%window-cursor-inferior window) end-y))
     (update-modified-tick! window)
     (set-interrupt-enables! mask)
-    unspecific))
+    unspecific))

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)))
@@ -585,4 +585,4 @@ USA.
 	   (fix:quotient column x-max)))))
 
 (define-integrable (coordinates->column x y x-size)
-  (fix:+ x (fix:* y (fix:- x-size 1))))
+  (fix:+ x (fix:* y (fix:- x-size 1))))

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.
@@ -271,4 +271,4 @@ The relative indentation among the lines of the expression are preserved."
   "Indent each line of the C grouping following point."
   ()
   (lambda ()
-    (c-indent-expression (current-point))))
+    (c-indent-expression (current-point))))

edwin/calias.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Alias Keys
 
-(declare (usual-integrations))
+
 
 (define alias-keys '())
 
@@ -287,4 +287,4 @@ USA.
 (define-special-key left)
 (define-special-key right)
 (define-special-key select)
-(define-special-key print)
+(define-special-key print)

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."
@@ -413,4 +413,4 @@ This is in addition to c-continued-statement-offset."
 	 (let loop ((depth-delta depth-delta) (stack stack))
 	   (if (= -1 depth-delta)
 	       (cdr stack)
-	       (loop (+ depth-delta 1) (cdr stack)))))))
+	       (loop (+ depth-delta 1) (cdr stack)))))))

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.
@@ -108,4 +108,4 @@ USA.
     (and method (apply method object args))))
 
 (define (send-usual class object operation . args)
-  (apply (usual-method class operation) object args))
+  (apply (usual-method class operation) object args))

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.
@@ -96,4 +96,4 @@ USA.
     (cdr entry)))
 
 (define class-descriptors
-  '())
+  '())

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.
@@ -120,4 +120,4 @@ USA.
   (syntax-rules ()
     ((usual==> object operation argument ...)
      (let ((temp object))
-       ((usual-method (object-class temp) 'operation) temp argument ...)))))
+       ((usual-method (object-class temp) 'operation) temp argument ...)))))

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
@@ -148,4 +148,4 @@ USA.
       (comatch:general
        (lambda (start end)
 	 (and (comatch-apply c1 start end)
-	      (comatch-apply c2 start end)))))))
+	      (comatch-apply c2 start end)))))))

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."
@@ -78,7 +78,7 @@ USA.
 					 (mark-right-inserting-copy point)))))
 	      (set-command-message! comint-input-ring-tag
 				    index point point)))))))
-	 
+
 (define-command comint-next-input
   "Cycle forwards through input history."
   "*p"
@@ -127,4 +127,4 @@ USA.
 		     (set-variable! comint-last-input-match string)
 		     ((ref-command comint-previous-input) (- index start)))
 		    (else
-		     (loop index))))))))))
+		     (loop index))))))))))

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
@@ -116,7 +116,7 @@ the appropriate regular expression.
 An input history is maintained of size comint-input-ring-size, and
 can be accessed with the commands comint-next-input [\\[comint-next-input]] and
 comint-previous-input [\\[comint-previous-input]].  Commands not keybound by
-default are send-invisible, comint-dynamic-complete, and 
+default are send-invisible, comint-dynamic-complete, and
 comint-list-dynamic-completions.
 
 If you accidentally suspend your process, use \\[comint-continue-subjob]
@@ -227,7 +227,7 @@ history list.  Default is to save anything that isn't all whitespace."
 
 (define-command send-invisible
   "Read a string without echoing, and send it to the process running
-in the current buffer.  A new-line is additionally sent.  
+in the current buffer.  A new-line is additionally sent.
 String is not saved on comint input history list.
 Security bug: your string can still be temporarily recovered with
 \\[view-lossage]."
@@ -425,7 +425,7 @@ See also \\[comint-dynamic-complete]."
 (define (comint-dynamic-complete-filename)
   "Complete the filename at point.
 This function is similar to \\[comint-replace-by-expanded-filename], except
-that it won't change parts of the filename already entered in the buffer; 
+that it won't change parts of the filename already entered in the buffer;
 it just adds completion characters to the end of the filename."
   (let ((region (comint-current-filename-region)))
     (let ((pathname
@@ -493,4 +493,4 @@ assumed to have occurred."
     (let loop ((thunks (ref-variable comint-dynamic-complete-functions)))
       (if (not (null? thunks))
 	  (if (not ((car thunks)))
-	      (loop (cdr thunks)))))))
+	      (loop (cdr thunks)))))))

edwin/comman.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Commands and Variables
 
-(declare (usual-integrations))
+
 
 (define-structure (command
 		   (constructor %make-command ())
@@ -203,4 +203,4 @@ USA.
   (hash-table-ref/default permanent-local-variables variable #f))
 
 (define permanent-local-variables
-  (make-key-weak-eq-hash-table))
+  (make-key-weak-eq-hash-table))

edwin/compile.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Compilation Subprocess
 
-(declare (usual-integrations))
+
 
 (define-variable compile-command
   "Initial contents of \\[compile] prompt."
@@ -136,4 +136,4 @@ with output going to the buffer *compilation*."
 	   unspecific)))))
 
 (define compilation-process
-  #f)
+  #f)

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
@@ -519,4 +519,4 @@ USA.
 	  (string? sexp)
 	  (char? sexp))
       sexp
-      `(QUOTE ,sexp)))
+      `(QUOTE ,sexp)))

edwin/comtab.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Command Tables
 
-(declare (usual-integrations))
+
 
 (define-structure (comtab (constructor make-comtab ()))
   (vector 0)
@@ -418,4 +418,4 @@ USA.
 		    ((comtab-alias? datum)
 		     (datum-loop (comtab-alias/dereference datum) keys))
 		    (else
-		     (error "Illegal comtab datum:" datum)))))))))
+		     (error "Illegal comtab datum:" datum)))))))))

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
@@ -687,4 +687,4 @@ USA.
   (inferior-containing-coordinates combination x y leaf?))
 
 (define-method combination-leaf-window (:leaf-containing-coordinates leaf x y)
-  (values leaf x y))
+  (values leaf x y))

edwin/curren.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Current State
 
-(declare (usual-integrations))
+
 
 ;;;; Screens
 
@@ -744,4 +744,4 @@ If false, don't display any message."
   (enable-buffer-minor-mode! (selected-buffer) mode))
 
 (define (disable-current-minor-mode! mode)
-  (disable-buffer-minor-mode! (selected-buffer) mode))
+  (disable-buffer-minor-mode! (selected-buffer) mode))

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."
@@ -205,7 +205,7 @@ with the next possible expansion not yet tried."
 		   (ref-variable last-dabbrevs-direction))
 	(do-from-scratch))))
 
-;; Search function used by dabbrevs library.  
+;; Search function used by dabbrevs library.
 ;; pattern is string to find as prefix of word.
 ;; reverse? is true for reverse search, false for forward.
 ;; Variable abbrevs-limit controls the maximum search region size.
@@ -245,4 +245,4 @@ with the next possible expansion not yet tried."
 				       example)))
 		       (ref-variable last-dabbrev-table))
 		  (loop (if reverse? start end))
-		  (values end result))))))))
+		  (values end result))))))))

edwin/debian-changelog.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Debian changelog mode
 
-(declare (usual-integrations))
+
 
 (define-command debian-changelog-mode
   "Enter Debian changelog mode."
@@ -146,7 +146,7 @@ Key bindings:
 			     (map (lambda (s) (cons s s))
 				  '("stable"
 				    "frozen"
-				    "unstable" 
+				    "unstable"
 				    "stable frozen unstable"
 				    "stable unstable frozen"
 				    "unstable stable frozen"
@@ -270,4 +270,4 @@ address and release date) so that new entries can be made."
 (define title-regexp-index:package-name 1)
 (define title-regexp-index:version 2)
 (define title-regexp-index:distribution 3)
-(define title-regexp-index:urgency 5)
+(define title-regexp-index:urgency 5)

edwin/debug.scm

@@ -27,7 +27,7 @@ USA.
 ;;;; Browser-style Debug and Where
 ;;; Package: (edwin debugger)
 
-(declare (usual-integrations))
+
 
 ;;;; Text prop setup stuff
 
@@ -1785,4 +1785,4 @@ once it has been renamed, it will not be deleted automatically.")
 					     (string-length separator))))
 				  (lambda () (write value)))
 		port)))))
-    (debugger-newline port)))
+    (debugger-newline port)))

edwin/debuge.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Debugging Stuff
 
-(declare (usual-integrations))
+
 
 (define (debug-save-files)
   (for-each debug-save-buffer
@@ -174,4 +174,4 @@ USA.
     (set-screen-debug-trace! screen false)
     (let ((result trace-output))
       (set! trace-output '())
-      (map list->vector (reverse! result)))))
+      (map list->vector (reverse! result)))))

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)))
@@ -242,4 +242,4 @@ USA.
   (sf-class "bufwfs" "bufwin" "window" "class" "buffer" "struct")
   (sf-class "bufwiu" "bufwin" "window" "class" "buffer" "struct")
   (sf-class "bufwmc" "bufwin" "window" "class" "buffer" "struct")
-  (sf-class "buffrm" "bufwin" "window" "class" "struct"))
+  (sf-class "buffrm" "bufwin" "window" "class" "struct"))

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."

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.
@@ -432,7 +432,7 @@ negative numeric arg overrides kept-old-versions with minus the arg."
 
 (define-command dired-unmark-all-files
   "Remove a specific mark (or any mark) from every file.
-After this command, type the mark character to remove, 
+After this command, type the mark character to remove,
 or type RET to remove all marks.
 With prefix arg, query for each marked file.
 Type \\[help-command] at that time for help."
@@ -1061,4 +1061,4 @@ Actions controlled by variables list-directory-brief-switches
 		      (procedure (car filename) (cdr filename))
 		      (mark-temporary! (cdr filename)))
 		    filenames)))
-    (length filenames)))
+    (length filenames)))

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)
@@ -108,4 +108,4 @@ with the same names that the files currently have."
   "P"
   (lambda (argument)
     ))
-|#
+|#

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)
@@ -123,4 +123,4 @@ The files are compressed or uncompressed using gzip."
 			      mask))
 		unspecific)
 	      letters)
-    mask))
+    mask))

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/)
@@ -93,4 +93,4 @@ USA.
 	 (find (lambda (display-type)
 		 (eq? name (display-type/name display-type)))
 	       display-types)))
-    display-type))
+    display-type))

edwin/docstr.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Documentation Strings
 
-(declare (usual-integrations))
+
 
 (define *external-doc-strings?* #t)
 (define *external-doc-strings-file* #f)
@@ -199,4 +199,4 @@ USA.
 	  string))))
 
 (define (description-append . descriptions)
-  (lambda () (apply string-append (map description->string descriptions))))
+  (lambda () (apply string-append (map description->string descriptions))))

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
@@ -155,4 +155,4 @@ USA.
 (define (os/rmail-spool-directory) #f)
 (define (os/rmail-primary-inbox-list system-mailboxes) system-mailboxes '())
 (define (os/sendmail-program) "sendmail.exe")
-(define (os/rmail-pop-procedure) #f)
+(define (os/rmail-pop-procedure) #f)

edwin/doscom.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Shell commands for DOS
 
-(declare (usual-integrations))
+
 
 (load-option 'DOSPROCESS)
 
@@ -105,4 +105,4 @@ Prefix arg means replace the region with it."
 	(if input-region
 	    (core (make-buffer-input-port (region-start input-region)
 					  (region-end input-region)))
-	    (call-with-input-file "\\dev\\nul" core))))))
+	    (call-with-input-file "\\dev\\nul" core))))))

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.
@@ -565,4 +565,4 @@ filename suffix \".gz\"."
 		 (apply string-append
 			(map (lambda (argument)
 			       (string-append " " argument))
-			     arguments))))
+			     arguments))))

edwin/dosproc.scm

@@ -27,7 +27,7 @@ USA.
 ;;;; Dummy subprocess support
 ;; package: (edwin process)
 
-(declare (usual-integrations))
+
 
 (define subprocesses-available?
   #f)
@@ -54,4 +54,4 @@ USA.
   #f)
 
 (define (process-output-available?)
-  #f)
+  #f)

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)
 
@@ -123,7 +123,7 @@ and tracking directories."
 (define (insert-pseudo-shell-prompt! #!optional point)
   ;; This corresponds to the $p$g prompt pattern.
   (insert-string (string-append
-		  (pseudo-directory-namestring 
+		  (pseudo-directory-namestring
 		   (buffer-default-directory (current-buffer)))
 		  ">")
 		 (if (default-object? point)
@@ -326,4 +326,4 @@ With argument, don't skip the prompt -- go straight to column 0."
 	    (define-variable-local-value! (mark-buffer output-mark)
 	      (ref-variable-object pseudo-shell-active?)
 	      false)
-	    (message "Pseudo exitted"))))))
+	    (message "Pseudo exitted"))))))

edwin/ed-ffi.scm

@@ -24,7 +24,7 @@ USA.
 
 |#
 
-(declare (usual-integrations))
+
 
 ;; This list must be kept in alphabetical order by filename.
 
@@ -185,4 +185,4 @@ USA.
     ("window"	(edwin window))
     ("winout"	(edwin window-output-port))
     ("xform"	(edwin class-macros transform-instance-variables))
-    ("xterm"	(edwin screen x-screen))))
+    ("xterm"	(edwin screen x-screen))))

edwin/editor.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Editor Top Level
 
-(declare (usual-integrations))
+
 
 (define (edit . args)
   (call-with-current-continuation
@@ -156,7 +156,7 @@ USA.
     (if (null? display-type-names)
 	(find-any)
 	(let ((next (name->display-type (car display-type-names))))
-	  (if (and next 
+	  (if (and next
 		   (display-type/available? next))
 	      next
 	      (find-preferred (cdr display-type-names))))))
@@ -660,4 +660,4 @@ TRANSCRIPT    messages appear in transcript buffer, if it is enabled;
 	 (with-interrupt-mask interrupt-mask
 	   (lambda (interrupt-mask)
 	     interrupt-mask
-	     (processor))))))))
+	     (processor))))))))

edwin/edtfrm.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Editor Frame
 
-(declare (usual-integrations))
+
 
 ;;; Editor Frame
 
@@ -187,4 +187,4 @@ USA.
 			  (make-button-event frame relative-x relative-y)
 			(lambda () (execute-command command)))))
 		((button-down? button)
-		 (editor-beep)))))))
+		 (editor-beep)))))))

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)
@@ -158,4 +158,4 @@ USA.
        unspecific)
      thunk
      (lambda ()
-       (set-editor-button-event! current-editor old-button-event)))))
+       (set-editor-button-event! current-editor old-button-event)))))

edwin/evlcom.scm

@@ -27,7 +27,7 @@ USA.
 ;;;; Evaluation Commands
 ;;; Package: (edwin)
 
-(declare (usual-integrations))
+
 
 ;;;; Variables
 
@@ -567,4 +567,4 @@ Set by Scheme evaluation code to update the mode line."
 			(local-set-variable! evaluate-in-inferior-repl #f
 					     buffer)
 			(local-set-variable! run-light #f buffer))))
-	      buffer)))))
+	      buffer)))))

edwin/eystep.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Edwin Interface to YStep
 
-(declare (usual-integrations))
+
 
 (define-command step-expression
   "Single-step an expression."
@@ -128,7 +128,7 @@ c	contract the step under the cursor")
 (define-command stepper-contract
   "Contract the current step."
   ()
-  (lambda () 
+  (lambda ()
     (let ((state (current-stepper-state))
 	  (node (current-node)))
       (ynode-contract! node)
@@ -286,4 +286,4 @@ c	contract the step under the cursor")
     (if region-munger (region-munger (make-region start point)))
     (mark-temporary! start)))
 
-(initialize-package!)
+(initialize-package!)

edwin/filcom.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; File Commands
 
-(declare (usual-integrations))
+
 
 (define (find-file filename)
   (select-buffer (find-file-noselect filename #t)))
@@ -896,4 +896,4 @@ Prefix arg means treat the plaintext file as binary data."
   (sort filenames string<?))
 
 (define (completion-ignore-filename? filename)
-  (os/completion-ignore-filename? (->namestring filename)))
+  (os/completion-ignore-filename? (->namestring filename)))

edwin/fileio.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; File <-> Buffer I/O
 
-(declare (usual-integrations))
+
 
 ;;;; Encrypted files
 
@@ -173,7 +173,7 @@ of the predicates is satisfied, the file is written in the usual way."
 
 (define (insert-file mark filename)
   (%insert-file
-   mark 
+   mark
    (bind-condition-handler (list condition-type:file-error)
        (lambda (condition)
 	 condition
@@ -795,4 +795,4 @@ Otherwise, a message is written both before and after long file writes."
 	(file-chase-links
 	 (pathname-simplify
 	  (merge-pathnames contents (directory-pathname pathname))))
-	pathname)))
+	pathname)))

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.
@@ -581,4 +581,4 @@ With argument, turn auto-fill mode on iff argument is positive."
 	    (begin
 	      (move-mark-to! m (line-end m 1 'ERROR))
 	      (loop)))))
-    (mark-temporary! m)))
+    (mark-temporary! m)))

edwin/hlpcom.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Help Commands
 
-(declare (usual-integrations))
+
 
 (define-command help-prefix
   "This is a prefix for more commands.
@@ -439,4 +439,4 @@ If you want VALUE to be a string, you must surround it with doublequotes."
     (define (finish start)
       (list (substring string start end)))
 
-    (apply string-append (find-escape 0 (buffer-comtabs buffer)))))
+    (apply string-append (find-escape 0 (buffer-comtabs buffer)))))

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.
@@ -104,4 +104,4 @@ USA.
 (define-editor-alias command html-mode xml-mode)
 (define-editor-alias variable html-mode-hook xml-mode-hook)
 (define-editor-alias variable html-mode-abbrev-table xml-mode-abbrev-table)
-(define html-syntax-table xml-syntax-table)
+(define html-syntax-table xml-syntax-table)

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))))))))))
-

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."
@@ -1268,4 +1268,4 @@ The name may be an abbreviation of the reference name."
 	  (if (and (integer? index)
 		   (positive? index))
 	      (-1+ index)
-	      (lose)))))))
+	      (lose)))))))

edwin/input.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Keyboard Input
 
-(declare (usual-integrations))
+
 
 #|
 
@@ -290,4 +290,4 @@ B 3BAB8C
 		     (set-current-message! command-prompt-string))
 		   (clear-current-message!))))
 	(reader)))
-    discard?)))
+    discard?)))

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.
@@ -1183,4 +1183,4 @@ If this is an error, the debugger examines the error condition."
      (READ ,operation/read)
      (CURRENT-EXPRESSION-CONTEXT ,operation/current-expression-context)
      (WRITE-VALUES ,operation/write-values))
-   #f))
+   #f))

edwin/iserch.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Incremental Search
 
-(declare (usual-integrations))
+
 
 (define (isearch forward? regexp?)
   (reset-command-prompt!)
@@ -364,4 +364,4 @@ USA.
 		    (let ((end (group-start start)))
 		      (if regexp?
 			  (re-search-backward text start end)
-			  (search-backward text start end)))))))))))))
+			  (search-backward text start end)))))))))))))

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.
@@ -132,4 +132,4 @@ This is just like C mode, except that
 (define php-syntax-table
   (let ((syntax-table (make-char-syntax-table java-syntax-table)))
     (set-char-syntax! syntax-table #\$ ". p")
-    syntax-table))
+    syntax-table))

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))
@@ -151,4 +151,4 @@ USA.
 		(VK_NONAME         #xFC)
 		(VK_PA1            #xFD)
 		(VK_OEM_CLEAR      #xFE)))
-    v))
+    v))

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.
@@ -210,4 +210,4 @@ Previous contents of that buffer are killed first."
 					 (caar last))
 			  command-name)
 		    (group-elements (cdr last))))
-	    (cons (car elements) (group-elements (cdr elements)))))))
+	    (cons (car elements) (group-elements (cdr elements)))))))

edwin/keyparse.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Keyword Syntax Parser
 
-(declare (usual-integrations))
+
 
 (define-structure (description
 		   (keyword-constructor make-keyparser-description)
@@ -174,7 +174,7 @@ See \\[complete-keyword]."
   "Perform completion on keyword preceding point."
   ()
   (lambda ()
-    (let ((end 
+    (let ((end
 	   (let ((point (current-point)))
 	     (let ((end (group-end point)))
 	       (or (re-match-forward "\\sw+" point end #f)
@@ -518,4 +518,4 @@ See \\[complete-keyword]."
 	 (let ((match-header (keyparser-fragment/match-header fragment)))
 	   (if match-header
 	       (match-header end stack)
-	       end)))))
+	       end)))))

edwin/kilcom.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Kill Commands
 
-(declare (usual-integrations))
+
 
 ;;;; Deletion
 
@@ -71,7 +71,7 @@ Negative args kill characters backward."
 (define-command kill-line
   "Kill to end of line, or kill an end of line.
 At the end of a line (only blanks following) kill through the newline.
-Otherwise, kill the rest of the line but not the newline.  
+Otherwise, kill the rest of the line but not the newline.
 With argument (positive or negative), kill specified number of lines.
 An argument of zero means kill to beginning of line, nothing if at beginning.
 Killed text is pushed onto the kill ring for retrieval."
@@ -430,4 +430,4 @@ are transposed."
     (let ((char (extract-left-char m1)))
       (delete-left-char m1)
       (insert-char char m*))
-    (set-current-point! m*)))
+    (set-current-point! m*)))

edwin/kmacro.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Keyboard Macros
 
-(declare (usual-integrations))
+
 
 (define *defining-keyboard-macro?* #f)
 (define *executing-keyboard-macro?* #f)
@@ -254,4 +254,4 @@ Without argument, reads a character.  Your options are:
 			(loop))
 		       (else
 			(editor-beep)
-			(loop))))))))))
+			(loop))))))))))

edwin/lincom.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Line/Indentation Commands
 
-(declare (usual-integrations))
+
 
 ;;;; Lines
 
@@ -379,7 +379,7 @@ With argument COLUMN, indent each line to that column."
 Inserts a newline, and then enough tabs/spaces so that
 what had been the rest of the current line is indented as much as
 it had been.  Point does not move, except to skip over indentation
-that originally followed it. 
+that originally followed it.
 With argument, makes extra blank lines in between."
   "p"
   (lambda (argument)
@@ -519,4 +519,4 @@ The variable tab-width controls the action."
 	(delete-string start (re-match-end 0))
 	(insert-horizontal-space end-column start tab-width)))
     (mark-temporary! start)
-    (mark-temporary! end)))
+    (mark-temporary! end)))

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."
@@ -361,4 +361,4 @@ is used to calculate the indentation for that form."
   (if (= -1 n) (cdr stack) (down-stack (1+ n) (cdr stack))))
 
 (define (up-stack n stack)
-  (if (= 1 n) (cons false stack) (up-stack (-1+ n) (cons false stack))))
+  (if (= 1 n) (cons false stack) (up-stack (-1+ n) (cons false stack))))

edwin/loadef.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Autoload Definitions
 
-(declare (usual-integrations))
+
 
 ;;; ****************
 
@@ -139,7 +139,7 @@ Otherwise, a new buffer is created for each topic."
   boolean?)
 
 (define-variable manual-command
-  "A string containing the manual page formatting command.  
+  "A string containing the manual page formatting command.
 Section (if any) and topic strings are appended (with space separators)
 and the resulting string is provided to a shell running in a subprocess."
   false
@@ -425,4 +425,4 @@ This defaults to the value of `user-mail-address'."
 	'DOSSHELL
 	"Major mode for executing DOS commands.")
       (define-autoload-command 'shell 'DOSSHELL
-	"Run an inferior pseudo shell, with I/O through buffer *shell*.")))
+	"Run an inferior pseudo shell, with I/O through buffer *shell*.")))

edwin/lspcom.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Lisp Commands
 
-(declare (usual-integrations))
+
 
 ;;;; S-expression Commands
 
@@ -299,4 +299,4 @@ No argument is equivalent to zero: just insert () and leave point between."
   (lambda (f b)
     (set! forward-definition-end f)
     (set! backward-definition-end b)
-    unspecific))
+    unspecific))

edwin/macros.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Editor Macros
 
-(declare (usual-integrations))
+
 
 ;; Upwards compatibility:
 (define edwin-syntax-table (->environment '(EDWIN)))
@@ -261,4 +261,4 @@ USA.
 	 (ill-formed-syntax form)))))
 
 (define (mode-name->scheme-name name)
-  (symbol 'edwin-mode$ name))
+  (symbol 'edwin-mode$ name))

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/")
@@ -34,4 +34,4 @@ USA.
     (load-package-set "edwin"
       `((alternate-package-loader
 	 . ,(load "edwin.bld" system-global-environment))))))
-(add-subsystem-identification! "Edwin" '(3 117))
+(add-subsystem-identification! "Edwin" '(3 117))

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."
@@ -172,4 +172,4 @@ USA.
 
 (define char-set:newline (char-set #\newline))
 (define char-set:blank (char-set #\space #\tab))
-(define char-set:nonblank (char-set-invert char-set:blank))
+(define char-set:nonblank (char-set-invert char-set:blank))

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.
@@ -202,4 +202,4 @@ The current buffer should contain a formatted manual entry."
 					     (group-right-char group index)))
 				(find-end (fix:+ index 1))
 				(group-delete! group nl+2 index))))
-		      (loop nl+2))))))))))
+		      (loop nl+2))))))))))

edwin/midas.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Midas Mode
 
-(declare (usual-integrations))
+
 
 (define-command midas-mode
   "Enter Midas mode."
@@ -62,4 +62,4 @@ USA.
   (if (match-forward ";;;" mark)
       0
       (max (+ (mark-column (horizontal-space-start mark)) 1)
-	   (ref-variable comment-column mark))))
+	   (ref-variable comment-column mark))))

edwin/modefs.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Fundamental Mode
 
-(declare (usual-integrations))
+
 
 (define-command fundamental-mode
   "Make the current mode be Fundamental Mode.
@@ -395,4 +395,4 @@ Like Fundamental mode, but no self-inserting characters.")
       (define-key 'fundamental '(#\c-x #\v #\v) 'vc-next-action)
       (define-key 'fundamental '(#\c-x #\v #\=) 'vc-diff)
       (define-key 'fundamental '(#\c-x #\v #\~) 'vc-version-other-window)
-      ))
+      ))

edwin/modes.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Modes
 
-(declare (usual-integrations))
+
 
 (define-structure (mode
 		   (constructor %make-mode
@@ -138,4 +138,4 @@ USA.
     (let ((m1 (mode-super-mode m1)))
       (and m1
 	   (or (eq? m1 m2)
-	       (loop m1))))))
+	       (loop m1))))))

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.
@@ -368,4 +368,4 @@ If #F, the normal method is used."
     (set-variable-local-value!
      buffer
      minor-mode-alist
-     (del-assq predicate (variable-local-value buffer minor-mode-alist)))))
+     (del-assq predicate (variable-local-value buffer minor-mode-alist)))))

edwin/modwin.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Modeline Window
 
-(declare (usual-integrations))
+
 
 (define-class modeline-window vanilla-window
   (shows-buffer-modified?))
@@ -79,4 +79,4 @@ USA.
   (if (not (boolean=? (buffer-modified?
 		       (window-buffer (window-superior window)))
 		      (modeline-window/shows-buffer-modified? window)))
-      (window-needs-redisplay! window)))
+      (window-needs-redisplay! window)))

edwin/motcom.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Motion Commands
 
-(declare (usual-integrations))
+
 
 (define-command beginning-of-line
   "Move point to beginning of line."
@@ -186,4 +186,4 @@ Continuation lines are skipped."
   "Deliver super menu joke."
   ()
   (lambda ()
-    (message "Big Mac, Medium Fries, Small Coke")))
+    (message "Big Mac, Medium Fries, Small Coke")))

edwin/motion.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Motion within Groups
 
-(declare (usual-integrations))
+
 
 ;;;; Motion by Characters
 
@@ -195,4 +195,4 @@ USA.
 				      column
 				      (group-tab-width group)
 				      (group-char-image-strings group))
-		 0))))
+		 0))))

edwin/mousecom.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Mouse Commands
 
-(declare (usual-integrations))
+
 
 (define-command mouse-select
   "Select window the mouse is on."
@@ -121,4 +121,4 @@ Display cursor at that position for a second."
 (define button2-up (make-up-button 1))
 (define button3-up (make-up-button 2))
 (define button4-up (make-up-button 3))
-(define button5-up (make-up-button 4))
+(define button5-up (make-up-button 4))

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
 
@@ -1869,4 +1869,4 @@ USA.
 	(loop (cdr items)
 	      (if (memq (car items) result)
 		  result
-		  (cons (car items) result))))))
+		  (cons (car items) result))))))

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."
@@ -73,7 +73,7 @@ USA.
       (let ((result
 	     (if (re-search-forward
 		  ".*load average:[ ]*\\([0-9.]*\\),"
-		  start 
+		  start
 		  (buffer-end temporary-buffer))
 		 (extract-string (re-match-start 1)
 				 (re-match-end 1))
@@ -213,4 +213,4 @@ which can show various things including time, load average, and mail status."
 	     (set! notifier-thread-registration #f)
 	     unspecific))))
     (update-notifier-strings! "" "")
-    (set-variable! global-mode-string override-notifier-mail-string #f)))
+    (set-variable! global-mode-string override-notifier-mail-string #f)))

edwin/nvector.scm

@@ -26,10 +26,10 @@ USA.
 
 ;;;; New Vector Operations
 
-(declare (usual-integrations))
+
 
 (define (vector-delq! vector index item)
   (vector-set! vector index (delq! item (vector-ref vector index))))
 
 (define (vector-push! vector index item)
-  (vector-set! vector index (cons item (vector-ref vector index))))
+  (vector-set! vector index (cons item (vector-ref vector index))))

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.
@@ -277,4 +277,4 @@ It serves as a menu to find any of the occurrences in this buffer.
 		  (insert-region ls le output)
 		  (insert-newline output)
 		  (if (and (not (group-end? le)) (> n 1))
-		      (loop (mark1+ le) (- n 1))))))))))
+		      (loop (mark1+ le) (- n 1))))))))))

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))
@@ -286,4 +286,4 @@ With argument, turn outline mode on iff argument is positive."
 (define-key 'outline '(#\C-c #\C-n) 'narrow-to-topic)
 (define-key 'outline '(#\C-c #\C-a) 'forward-up-topic)
 (define-key 'outline '(#\C-c #\C-u) 'backward-up-topic)
-(define-key 'outline '(#\C-c #\C-d) 'forward-down-topic)
+(define-key 'outline '(#\C-c #\C-d) 'forward-down-topic)

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.
@@ -585,7 +585,7 @@ With a numerical prefix argument N, kill N S-expressions backward in
     (if argument (paredit-kill-surrounding-sexps-for-splice argument))
     (let* ((before-open (backward-up-list (current-point) 1 'ERROR))
            (before-close
-            (mark-1+ (forward-sexp before-open 1 'ERROR)))) 
+            (mark-1+ (forward-sexp before-open 1 'ERROR))))
       (delete-right-char before-close)
       (delete-right-char before-open)
       (with-current-point before-open

edwin/pasmod.scm

@@ -26,7 +26,7 @@ USA.
 
 ;;;; Pascal Mode
 
-(declare (usual-integrations))
+
 
 (define-command pascal-mode
   "Enter Pascal mode."
@@ -164,4 +164,4 @@ With an argument, shifts left that many times."
 				start))
 			  (+ indentation
 			     (ref-variable pascal-shift-increment))
-			  indentation))))))))))
+			  indentation))))))))))

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)))
@@ -60,4 +60,4 @@ USA.
 (define default-homedir-pathname
   ;; This binding exists to allow uses of the "home" directory as a
   ;; default directory to be overridden.
-  user-homedir-pathname)
+  user-homedir-pathname)

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'.
@@ -157,4 +157,4 @@ Variable LPR-SWITCHES is a list of extra switches (strings) to pass to lpr."
 		 false
 		 (begin
 		   (set! most-recent-name job-name)
-		   job-name)))))))
+		   job-name)))))))

edwin/process.scm

@@ -27,7 +27,7 @@ USA.
 ;;;; Subprocess Support
 ;; package: (edwin process)
 
-(declare (usual-integrations))
+
 
 (define subprocesses-available? #t)
 
@@ -700,4 +700,4 @@ Prefix arg means replace the region with it."
   (apply run-synchronous-process
 	 input-region output-mark directory pty?
 	 (ref-variable shell-file-name)
-	 (os/form-shell-command command)))
+	 (os/form-shell-command command)))