lassik
/
scratch
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Drop usual-integrations and clean up whitespace

This commit is contained in:
Lassi Kortela 2021-04-26 14:57:47 +03:00
parent fd63f63d32
commit d5291fa353
160 changed files with 369 additions and 370 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
edwin.ldr
View File

@ -27,7 +27,7 @@ USA.
;;; program to load package contents ;;; program to load package contents
;;; **** This program (unlike most .ldr files) is not generated by a program. ;;; **** This program (unlike most .ldr files) is not generated by a program.
(declare (usual-integrations))
(lambda (package/loader key-alist) (lambda (package/loader key-alist)
(let ((to-avoid-list (if (file-exists? "edwin.bad") (let ((to-avoid-list (if (file-exists? "edwin.bad")

2
edwin/abbrev.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Abbrev Mode ;;;; Abbrev Mode
(declare (usual-integrations))
;;;; Low-level data structures ;;;; Low-level data structures

2
edwin/adapters.scm
View File

@ -40,7 +40,7 @@ USA.
;;; string) package, which contains a copy of the runtime's old string ;;; string) package, which contains a copy of the runtime's old string
;;; implementation. Other things, like file I/O, are handled here. ;;; implementation. Other things, like file I/O, are handled here.
(declare (usual-integrations))
(define (call-with-file-adapter procedure) (define (call-with-file-adapter procedure)
(lambda (pathname receiver) (lambda (pathname receiver)

2
edwin/ansi.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Hard-coded ANSI terminal type for lack of termcap on DOS/NT ;;;; Hard-coded ANSI terminal type for lack of termcap on DOS/NT
(declare (usual-integrations))
(define (make-ansi-terminal-description columns lines) (define (make-ansi-terminal-description columns lines)
(define (get-numstring base-name) (define (get-numstring base-name)

2
edwin/argred.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Command Argument Reader ;;;; Command Argument Reader
(declare (usual-integrations))
(define-command universal-argument (define-command universal-argument
"Begin a numeric argument for the following command. "Begin a numeric argument for the following command.

2
edwin/artdebug.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Continuation Browser ;;;; Continuation Browser
(declare (usual-integrations))
#| TO DO #| TO DO

2
edwin/autold.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Autoloads for Edwin ;;;; Autoloads for Edwin
(declare (usual-integrations))
;;;; Definitions ;;;; Definitions

2
edwin/autosv.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Auto Save ;;;; Auto Save
(declare (usual-integrations))
(define-variable auto-save-visited-file-name (define-variable auto-save-visited-file-name
"True says auto-save a buffer in the file it is visiting, when practical. "True says auto-save a buffer in the file it is visiting, when practical.

2
edwin/basic.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Basic Commands ;;;; Basic Commands
(declare (usual-integrations))
(define-command self-insert-command (define-command self-insert-command
"Insert the character you type. "Insert the character you type.

2
edwin/bios.scm
View File

@ -27,7 +27,7 @@ USA.
;;;; IBM-PC BIOS Screen Implementation ;;;; IBM-PC BIOS Screen Implementation
;;; package: (edwin screen console-screen) ;;; package: (edwin screen console-screen)
(declare (usual-integrations))
(define (make-bios-screen) (define (make-bios-screen)
;; What is the baud rate needed for? It's not even meaningful. ;; What is the baud rate needed for? It's not even meaningful.

2
edwin/bufcom.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Buffer Commands ;;;; Buffer Commands
(declare (usual-integrations))
(define (prompt-for-select-buffer prompt) (define (prompt-for-select-buffer prompt)
(lambda () (lambda ()

2
edwin/buffer.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Buffer Abstraction ;;;; Buffer Abstraction
(declare (usual-integrations))
(define-structure (buffer (define-structure (buffer
(constructor %make-buffer (%name %default-directory)) (constructor %make-buffer (%name %default-directory))

2
edwin/buffrm.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Buffer Frames ;;;; Buffer Frames
(declare (usual-integrations))
(define-class buffer-frame combination-leaf-window (define-class buffer-frame combination-leaf-window
( (

2
edwin/bufinp.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Buffer Input Ports ;;;; Buffer Input Ports
(declare (usual-integrations))
(define (with-input-from-mark mark thunk #!optional receiver) (define (with-input-from-mark mark thunk #!optional receiver)
(let ((port (make-buffer-input-port mark (group-end mark)))) (let ((port (make-buffer-input-port mark (group-end mark))))

2
edwin/bufmnu.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Buffer Menu ;;;; Buffer Menu
(declare (usual-integrations))
(define-variable buffer-menu-kill-on-quit (define-variable buffer-menu-kill-on-quit
"If not false, kill the *Buffer-List* buffer when leaving it." "If not false, kill the *Buffer-List* buffer when leaving it."

2
edwin/bufout.scm
View File

@ -27,7 +27,7 @@ USA.
;;;; Buffer Output Ports ;;;; Buffer Output Ports
;;; Package: (edwin buffer-output-port) ;;; Package: (edwin buffer-output-port)
(declare (usual-integrations))
(define (with-output-to-mark mark thunk) (define (with-output-to-mark mark thunk)
(call-with-output-mark mark (call-with-output-mark mark

2
edwin/bufset.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Buffer Set Abstraction ;;;; Buffer Set Abstraction
(declare (usual-integrations))
(define-structure (bufferset (constructor %make-bufferset)) (define-structure (bufferset (constructor %make-bufferset))
buffer-list buffer-list

2
edwin/bufwfs.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Buffer Windows: Fill and Scroll ;;;; Buffer Windows: Fill and Scroll
(declare (usual-integrations))
(define (fill-top window start) (define (fill-top window start)
(let ((group (%window-group window)) (let ((group (%window-group window))

2
edwin/bufwin.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Buffer Windows: Base ;;;; Buffer Windows: Base
(declare (usual-integrations))
;;; The following instance variables contain permanent marks, which ;;; The following instance variables contain permanent marks, which
;;; must be copied if they are passed to someone outside the buffer ;;; must be copied if they are passed to someone outside the buffer

2
edwin/bufwiu.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Buffer Windows: Image Update ;;;; Buffer Windows: Image Update
(declare (usual-integrations))
;;;; Insert/Delete ;;;; Insert/Delete

2
edwin/bufwmc.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Buffer Windows: Mark <-> Coordinate Maps ;;;; Buffer Windows: Mark <-> Coordinate Maps
(declare (usual-integrations))
(define-integrable (buffer-window/mark->x window mark) (define-integrable (buffer-window/mark->x window mark)
(buffer-window/index->x window (mark-index mark))) (buffer-window/index->x window (mark-index mark)))

2
edwin/c-mode.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; C Mode (from GNU Emacs) ;;;; C Mode (from GNU Emacs)
(declare (usual-integrations))
(define-major-mode c fundamental "C" (define-major-mode c fundamental "C"
"Major mode for editing C code. "Major mode for editing C code.

2
edwin/calias.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Alias Keys ;;;; Alias Keys
(declare (usual-integrations))
(define alias-keys '()) (define alias-keys '())

2
edwin/cinden.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; C Indentation (from GNU Emacs) ;;;; C Indentation (from GNU Emacs)
(declare (usual-integrations))
(define-variable c-indent-level (define-variable c-indent-level
"Indentation of C statements with respect to containing block." "Indentation of C statements with respect to containing block."

2
edwin/class.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Class/Object System ;;;; Class/Object System
(declare (usual-integrations))
;;; ****************************************************************** ;;; ******************************************************************
;;; This software is intended for use in the Edwin window system only. ;;; This software is intended for use in the Edwin window system only.

2
edwin/clscon.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Class/Object System: Class Constructor ;;;; Class/Object System: Class Constructor
(declare (usual-integrations))
;;; ****************************************************************** ;;; ******************************************************************
;;; This software is intended for use in the Edwin window system only. ;;; This software is intended for use in the Edwin window system only.

2
edwin/clsmac.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Class/Object System ;;;; Class/Object System
(declare (usual-integrations))
;;; ****************************************************************** ;;; ******************************************************************
;;; This software is intended for use in the Edwin window system only. ;;; This software is intended for use in the Edwin window system only.

2
edwin/comatch.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Combinatoric Matcher ;;;; Combinatoric Matcher
(declare (usual-integrations))
;;; This matcher allows compex matching patterns to be built up from ;;; This matcher allows compex matching patterns to be built up from
;;; primitives using combinators. With this implementation, the ;;; primitives using combinators. With this implementation, the

2
edwin/comhst.scm
View File

@ -27,7 +27,7 @@ USA.
;;;; Command interpreter history ;;;; Command interpreter history
;;; Translated from "comint.el", by Olin Shivers. ;;; Translated from "comint.el", by Olin Shivers.
(declare (usual-integrations))
(define-variable-per-buffer comint-input-ring-size (define-variable-per-buffer comint-input-ring-size
"Size of input history ring." "Size of input history ring."

2
edwin/comint.scm
View File

@ -27,7 +27,7 @@ USA.
;;;; Command interpreter subprocess control ;;;; Command interpreter subprocess control
;;; Translated from "comint.el", by Olin Shivers. ;;; Translated from "comint.el", by Olin Shivers.
(declare (usual-integrations))
(define (make-comint mode buffer program . switches) (define (make-comint mode buffer program . switches)
(let ((buffer (let ((buffer

2
edwin/comman.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Commands and Variables ;;;; Commands and Variables
(declare (usual-integrations))
(define-structure (command (define-structure (command
(constructor %make-command ()) (constructor %make-command ())

2
edwin/compile.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Compilation Subprocess ;;;; Compilation Subprocess
(declare (usual-integrations))
(define-variable compile-command (define-variable compile-command
"Initial contents of \\[compile] prompt." "Initial contents of \\[compile] prompt."

2
edwin/comred.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Command Reader ;;;; Command Reader
(declare (usual-integrations))
(define *command-key*) ;Key read to find current command (define *command-key*) ;Key read to find current command
(define *command*) ;The current command (define *command*) ;The current command

2
edwin/comtab.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Command Tables ;;;; Command Tables
(declare (usual-integrations))
(define-structure (comtab (constructor make-comtab ())) (define-structure (comtab (constructor make-comtab ()))
(vector 0) (vector 0)

2
edwin/comwin.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Combination Windows ;;;; Combination Windows
(declare (usual-integrations))
;;; Combination windows are used to split a window into vertically or ;;; Combination windows are used to split a window into vertically or
;;; horizontally divided areas. That window's initial superior must ;;; horizontally divided areas. That window's initial superior must

2
edwin/curren.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Current State ;;;; Current State
(declare (usual-integrations))
;;;; Screens ;;;; Screens

2
edwin/dabbrev.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Dynamic Abbrev ;;;; Dynamic Abbrev
(declare (usual-integrations))
(define-variable dabbrevs-backward-only (define-variable dabbrevs-backward-only
"If true, dabbrevs-expand only looks backwards." "If true, dabbrevs-expand only looks backwards."

2
edwin/debian-changelog.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Debian changelog mode ;;;; Debian changelog mode
(declare (usual-integrations))
(define-command debian-changelog-mode (define-command debian-changelog-mode
"Enter Debian changelog mode." "Enter Debian changelog mode."

2
edwin/debug.scm
View File

@ -27,7 +27,7 @@ USA.
;;;; Browser-style Debug and Where ;;;; Browser-style Debug and Where
;;; Package: (edwin debugger) ;;; Package: (edwin debugger)
(declare (usual-integrations))
;;;; Text prop setup stuff ;;;; Text prop setup stuff

2
edwin/debuge.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Debugging Stuff ;;;; Debugging Stuff
(declare (usual-integrations))
(define (debug-save-files) (define (debug-save-files)
(for-each debug-save-buffer (for-each debug-save-buffer

2
edwin/decls.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Edwin: Syntaxing Declarations ;;;; Edwin: Syntaxing Declarations
(declare (usual-integrations))
(let* ((sf-names (lambda (file) (sf/pathname-defaulting file #f #f))) (let* ((sf-names (lambda (file) (sf/pathname-defaulting file #f #f)))
(scm-file (lambda (file) (receive (scm bin spec) (sf-names file) scm))) (scm-file (lambda (file) (receive (scm bin spec) (sf-names file) scm)))

2
edwin/diff.scm
View File

@ -11,7 +11,7 @@ Domain. All warranties are disclaimed.
;;; bells & whistles for converting between unified and context diffs, ;;; bells & whistles for converting between unified and context diffs,
;;; like in GNU Emacs. Some day. ;;; like in GNU Emacs. Some day.
(declare (usual-integrations))
(define-variable diff-program (define-variable diff-program
"The name of the diff program." "The name of the diff program."

2
edwin/dired.scm
View File

@ -27,7 +27,7 @@ USA.
;;;; Directory Editor ;;;; Directory Editor
;; package: (edwin dired) ;; package: (edwin dired)
(declare (usual-integrations))
(define-variable dired-trivial-filenames (define-variable dired-trivial-filenames
"Regexp of files to skip when finding first file of a directory. "Regexp of files to skip when finding first file of a directory.

2
edwin/dirunx.scm
View File

@ -27,7 +27,7 @@ USA.
;;;; Directory Editor (Unix Customizations) ;;;; Directory Editor (Unix Customizations)
;;; package: (edwin dired) ;;; package: (edwin dired)
(declare (usual-integrations))
(define (dired-change-inode program) (define (dired-change-inode program)
(lambda (attribute argument) (lambda (attribute argument)

2
edwin/dirw32.scm
View File

@ -27,7 +27,7 @@ USA.
;;;; Directory Editor (Win32 Customizations) ;;;; Directory Editor (Win32 Customizations)
;;; package: (edwin dired) ;;; package: (edwin dired)
(declare (usual-integrations))
(define-key 'dired #\Z 'dired-do-compress) (define-key 'dired #\Z 'dired-do-compress)
(define-key 'dired #\S 'dired-hidden-toggle) (define-key 'dired #\S 'dired-hidden-toggle)

2
edwin/display.scm
View File

@ -27,7 +27,7 @@ USA.
;;;; Display-Type Abstraction ;;;; Display-Type Abstraction
;;; package: (edwin display-type) ;;; package: (edwin display-type)
(declare (usual-integrations))
(define-structure (display-type (define-structure (display-type
(conc-name display-type/) (conc-name display-type/)

2
edwin/docstr.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Documentation Strings ;;;; Documentation Strings
(declare (usual-integrations))
(define *external-doc-strings?* #t) (define *external-doc-strings?* #t)
(define *external-doc-strings-file* #f) (define *external-doc-strings-file* #f)

2
edwin/dos.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Win32 Customizations for Edwin ;;;; Win32 Customizations for Edwin
(declare (usual-integrations))
(define (os/set-file-modes-writeable! pathname) (define (os/set-file-modes-writeable! pathname)
(set-file-modes! pathname (set-file-modes! pathname

2
edwin/doscom.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Shell commands for DOS ;;;; Shell commands for DOS
(declare (usual-integrations))
(load-option 'DOSPROCESS) (load-option 'DOSPROCESS)

2
edwin/dosfile.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; DOS-Syntax File Customizations ;;;; DOS-Syntax File Customizations
(declare (usual-integrations))
(define-variable version-control (define-variable version-control
"Control use of version numbers for backup files. "Control use of version numbers for backup files.

2
edwin/dosproc.scm
View File

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

2
edwin/dosshell.scm
View File

@ -27,7 +27,7 @@ USA.
;;;; Pseudo Shell subprocess in a buffer ;;;; Pseudo Shell subprocess in a buffer
;;; Inspired by "cmushell.el", by Olin Shivers. ;;; Inspired by "cmushell.el", by Olin Shivers.
(declare (usual-integrations))
(load-option 'DOSPROCESS) (load-option 'DOSPROCESS)

2
edwin/ed-ffi.scm
View File

@ -24,7 +24,7 @@ USA.
|# |#
(declare (usual-integrations))
;; This list must be kept in alphabetical order by filename. ;; This list must be kept in alphabetical order by filename.

2
edwin/editor.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Editor Top Level ;;;; Editor Top Level
(declare (usual-integrations))
(define (edit . args) (define (edit . args)
(call-with-current-continuation (call-with-current-continuation

2
edwin/edtfrm.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Editor Frame ;;;; Editor Frame
(declare (usual-integrations))
;;; Editor Frame ;;; Editor Frame

2
edwin/edtstr.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Editor Data Abstraction ;;;; Editor Data Abstraction
(declare (usual-integrations))
(define-structure (editor (constructor %make-editor)) (define-structure (editor (constructor %make-editor))
(name #f read-only #t) (name #f read-only #t)

2
edwin/evlcom.scm
View File

@ -27,7 +27,7 @@ USA.
;;;; Evaluation Commands ;;;; Evaluation Commands
;;; Package: (edwin) ;;; Package: (edwin)
(declare (usual-integrations))
;;;; Variables ;;;; Variables

2
edwin/eystep.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Edwin Interface to YStep ;;;; Edwin Interface to YStep
(declare (usual-integrations))
(define-command step-expression (define-command step-expression
"Single-step an expression." "Single-step an expression."

2
edwin/filcom.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; File Commands ;;;; File Commands
(declare (usual-integrations))
(define (find-file filename) (define (find-file filename)
(select-buffer (find-file-noselect filename #t))) (select-buffer (find-file-noselect filename #t)))

2
edwin/fileio.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; File <-> Buffer I/O ;;;; File <-> Buffer I/O
(declare (usual-integrations))
;;;; Encrypted files ;;;; Encrypted files

2
edwin/fill.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Text Fill Commands ;;;; Text Fill Commands
(declare (usual-integrations))
(define-variable-per-buffer fill-column (define-variable-per-buffer fill-column
"Column beyond which automatic line-wrapping should happen. "Column beyond which automatic line-wrapping should happen.

2
edwin/hlpcom.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Help Commands ;;;; Help Commands
(declare (usual-integrations))
(define-command help-prefix (define-command help-prefix
"This is a prefix for more commands. "This is a prefix for more commands.

2
edwin/htmlmode.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Major Mode for XML ;;;; Major Mode for XML
(declare (usual-integrations))
(define-major-mode xml text "XML" (define-major-mode xml text "XML"
"Major mode for editing XML. "Major mode for editing XML.

3
edwin/image.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Display Imaging ;;;; Display Imaging
(declare (usual-integrations))
(define (group-columns group start end column tab-width char-image-strings) (define (group-columns group start end column tab-width char-image-strings)
(let ((text (group-text group)) (let ((text (group-text group))
@ -412,4 +412,3 @@ USA.
(begin (begin
(string-set! image image-index (string-ref picture i)) (string-set! image image-index (string-ref picture i))
(loop (fix:+ i 1) (fix:+ image-index 1)))))))))) (loop (fix:+ i 1) (fix:+ image-index 1))))))))))

2
edwin/info.scm
View File

@ -27,7 +27,7 @@ USA.
;;;; Info Mode ;;;; Info Mode
;;; Shamelessly copied from GNU Emacs. ;;; Shamelessly copied from GNU Emacs.
(declare (usual-integrations))
(define-command info (define-command info
"Create a buffer for Info, the documentation browser program." "Create a buffer for Info, the documentation browser program."

2
edwin/input.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Keyboard Input ;;;; Keyboard Input
(declare (usual-integrations))
#| #|

2
edwin/intmod.scm
View File

@ -27,7 +27,7 @@ USA.
;;;; Inferior REPL Mode ;;;; Inferior REPL Mode
;;; Package: (edwin inferior-repl) ;;; Package: (edwin inferior-repl)
(declare (usual-integrations))
(define-variable repl-enable-transcript-buffer (define-variable repl-enable-transcript-buffer
"If true, record input and output from inferior REPLs in transcript buffer. "If true, record input and output from inferior REPLs in transcript buffer.

2
edwin/iserch.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Incremental Search ;;;; Incremental Search
(declare (usual-integrations))
(define (isearch forward? regexp?) (define (isearch forward? regexp?)
(reset-command-prompt!) (reset-command-prompt!)

2
edwin/javamode.scm
View File

@ -35,7 +35,7 @@ USA.
;;; could be done using the keyparser, but that would be much more ;;; could be done using the keyparser, but that would be much more
;;; work than this was. ;;; work than this was.
(declare (usual-integrations))
(define-major-mode java c "Java" (define-major-mode java c "Java"
"Major mode for editing Java code. "Major mode for editing Java code.

2
edwin/key-w32.scm
View File

@ -27,7 +27,7 @@ USA.
;;;; Windows Keys ;;;; Windows Keys
;;; Package: (edwin win32-keys) ;;; Package: (edwin win32-keys)
(declare (usual-integrations))
(define (initialize-package!) (define (initialize-package!)
(set! end (make-special-key 'END 0)) (set! end (make-special-key 'END 0))

2
edwin/keymap.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Command Summary ;;;; Command Summary
(declare (usual-integrations))
(define-command describe-bindings (define-command describe-bindings
"Show a list of all defined keys, and their definitions. "Show a list of all defined keys, and their definitions.

2
edwin/keyparse.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Keyword Syntax Parser ;;;; Keyword Syntax Parser
(declare (usual-integrations))
(define-structure (description (define-structure (description
(keyword-constructor make-keyparser-description) (keyword-constructor make-keyparser-description)

2
edwin/kilcom.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Kill Commands ;;;; Kill Commands
(declare (usual-integrations))
;;;; Deletion ;;;; Deletion

2
edwin/kmacro.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Keyboard Macros ;;;; Keyboard Macros
(declare (usual-integrations))
(define *defining-keyboard-macro?* #f) (define *defining-keyboard-macro?* #f)
(define *executing-keyboard-macro?* #f) (define *executing-keyboard-macro?* #f)

2
edwin/lincom.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Line/Indentation Commands ;;;; Line/Indentation Commands
(declare (usual-integrations))
;;;; Lines ;;;; Lines

2
edwin/linden.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Lisp Indentation ;;;; Lisp Indentation
(declare (usual-integrations))
(define-variable lisp-indent-offset (define-variable lisp-indent-offset
"If not false, the number of extra columns to indent a subform." "If not false, the number of extra columns to indent a subform."

2
edwin/loadef.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Autoload Definitions ;;;; Autoload Definitions
(declare (usual-integrations))
;;; **************** ;;; ****************

2
edwin/lspcom.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Lisp Commands ;;;; Lisp Commands
(declare (usual-integrations))
;;;; S-expression Commands ;;;; S-expression Commands

2
edwin/macros.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Editor Macros ;;;; Editor Macros
(declare (usual-integrations))
;; Upwards compatibility: ;; Upwards compatibility:
(define edwin-syntax-table (->environment '(EDWIN))) (define edwin-syntax-table (->environment '(EDWIN)))

2
edwin/make.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Edwin: System Construction ;;;; Edwin: System Construction
(declare (usual-integrations))
(load-option 'xml) (load-option 'xml)
(with-loader-base-uri (system-library-uri "edwin/") (with-loader-base-uri (system-library-uri "edwin/")

2
edwin/malias.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Mail Aliases ;;;; Mail Aliases
(declare (usual-integrations))
(define-command define-mail-alias (define-command define-mail-alias
"Define NAME as a mail-alias that translates to DEFINITION." "Define NAME as a mail-alias that translates to DEFINITION."

2
edwin/manual.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Display Manual Pages ;;;; Display Manual Pages
(declare (usual-integrations))
(define-command manual-entry (define-command manual-entry
"Display the Unix manual entry for TOPIC. "Display the Unix manual entry for TOPIC.

2
edwin/midas.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Midas Mode ;;;; Midas Mode
(declare (usual-integrations))
(define-command midas-mode (define-command midas-mode
"Enter Midas mode." "Enter Midas mode."

2
edwin/modefs.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Fundamental Mode ;;;; Fundamental Mode
(declare (usual-integrations))
(define-command fundamental-mode (define-command fundamental-mode
"Make the current mode be Fundamental Mode. "Make the current mode be Fundamental Mode.

2
edwin/modes.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Modes ;;;; Modes
(declare (usual-integrations))
(define-structure (mode (define-structure (mode
(constructor %make-mode (constructor %make-mode

2
edwin/modlin.scm
View File

@ -27,7 +27,7 @@ USA.
;;;; Modeline Format ;;;; Modeline Format
;;; package: (edwin mode-line-format) ;;; package: (edwin mode-line-format)
(declare (usual-integrations))
(define-variable-per-buffer mode-line-format (define-variable-per-buffer mode-line-format
"Template for displaying mode line for current buffer. "Template for displaying mode line for current buffer.

2
edwin/modwin.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Modeline Window ;;;; Modeline Window
(declare (usual-integrations))
(define-class modeline-window vanilla-window (define-class modeline-window vanilla-window
(shows-buffer-modified?)) (shows-buffer-modified?))

2
edwin/motcom.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Motion Commands ;;;; Motion Commands
(declare (usual-integrations))
(define-command beginning-of-line (define-command beginning-of-line
"Move point to beginning of line." "Move point to beginning of line."

2
edwin/motion.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Motion within Groups ;;;; Motion within Groups
(declare (usual-integrations))
;;;; Motion by Characters ;;;; Motion by Characters

2
edwin/mousecom.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Mouse Commands ;;;; Mouse Commands
(declare (usual-integrations))
(define-command mouse-select (define-command mouse-select
"Select window the mouse is on." "Select window the mouse is on."

2
edwin/nntp.scm
View File

@ -36,7 +36,7 @@ USA.
;;; it contains, and the headers in each group. It also provides a ;;; it contains, and the headers in each group. It also provides a
;;; method for combining headers into conversation threads. ;;; method for combining headers into conversation threads.
(declare (usual-integrations))
;;;; NNTP Connection ;;;; NNTP Connection

2
edwin/notify.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Mode-line notifications (e.g. presence of mail, load average) ;;;; Mode-line notifications (e.g. presence of mail, load average)
(declare (usual-integrations))
(define-variable notify-show-time (define-variable notify-show-time
"If true, the notifier displays the current time." "If true, the notifier displays the current time."

2
edwin/nvector.scm
View File

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

2
edwin/occur.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Occurrence Commands ;;;; Occurrence Commands
(declare (usual-integrations))
(define-command keep-lines (define-command keep-lines
"Delete all lines except those containing matches for REGEXP. "Delete all lines except those containing matches for REGEXP.

2
edwin/outline.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Outline minor mode ;;;; Outline minor mode
(declare (usual-integrations))
(define (%forward-up-topic start end outline-pattern) (define (%forward-up-topic start end outline-pattern)
(if (not (mark<= start end)) (error "Marks incorrectly related:" start end)) (if (not (mark<= start end)) (error "Marks incorrectly related:" start end))

2
edwin/paredit.scm
View File

@ -7,7 +7,7 @@ Domain. All warranties are disclaimed.
;;;; Paredit: Parenthesis-Editing Minor Mode (based on paredit.el) ;;;; Paredit: Parenthesis-Editing Minor Mode (based on paredit.el)
(declare (usual-integrations))
(define-command paredit-mode (define-command paredit-mode
"Toggle pseudo-structural editing of Lisp code. "Toggle pseudo-structural editing of Lisp code.

2
edwin/pasmod.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Pascal Mode ;;;; Pascal Mode
(declare (usual-integrations))
(define-command pascal-mode (define-command pascal-mode
"Enter Pascal mode." "Enter Pascal mode."

2
edwin/paths.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Edwin Pathnames ;;;; Edwin Pathnames
(declare (usual-integrations))
(define (edwin-library-directory-pathname envvar required?) (define (edwin-library-directory-pathname envvar required?)
(let ((envval (get-environment-variable envvar))) (let ((envval (get-environment-variable envvar)))

2
edwin/print.scm
View File

@ -26,7 +26,7 @@ USA.
;;;; Print Buffers and Regions ;;;; Print Buffers and Regions
(declare (usual-integrations))
(define-command lpr-buffer (define-command lpr-buffer
"Print buffer contents as with Unix command `lpr'. "Print buffer contents as with Unix command `lpr'.

2
edwin/process.scm
View File

@ -27,7 +27,7 @@ USA.
;;;; Subprocess Support ;;;; Subprocess Support
;; package: (edwin process) ;; package: (edwin process)
(declare (usual-integrations))
(define subprocesses-available? #t) (define subprocesses-available? #t)

Some files were not shown because too many files have changed in this diff Show More