Drop usual-integrations and clean up whitespace
This commit is contained in:
parent
fd63f63d32
commit
d5291fa353
|
@ -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")
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Abbrev Mode
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
;;;; Low-level data structures
|
||||
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Command Argument Reader
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-command universal-argument
|
||||
"Begin a numeric argument for the following command.
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Continuation Browser
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
#| TO DO
|
||||
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Autoloads for Edwin
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
;;;; Definitions
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Basic Commands
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-command self-insert-command
|
||||
"Insert the character you type.
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Buffer Commands
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define (prompt-for-select-buffer prompt)
|
||||
(lambda ()
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Buffer Abstraction
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-structure (buffer
|
||||
(constructor %make-buffer (%name %default-directory))
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Buffer Frames
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-class buffer-frame combination-leaf-window
|
||||
(
|
||||
|
|
|
@ -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))))
|
||||
|
|
|
@ -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."
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Buffer Set Abstraction
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-structure (bufferset (constructor %make-bufferset))
|
||||
buffer-list
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Buffer Windows: Fill and Scroll
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define (fill-top window start)
|
||||
(let ((group (%window-group window))
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Buffer Windows: Image Update
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
;;;; Insert/Delete
|
||||
|
||||
|
|
|
@ -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)))
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Alias Keys
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define alias-keys '())
|
||||
|
||||
|
|
|
@ -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."
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Class/Object System
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
;;; ******************************************************************
|
||||
;;; This software is intended for use in the Edwin window system only.
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Class/Object System
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
;;; ******************************************************************
|
||||
;;; This software is intended for use in the Edwin window system only.
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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."
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Commands and Variables
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-structure (command
|
||||
(constructor %make-command ())
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Compilation Subprocess
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-variable compile-command
|
||||
"Initial contents of \\[compile] prompt."
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Command Reader
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define *command-key*) ;Key read to find current command
|
||||
(define *command*) ;The current command
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Command Tables
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-structure (comtab (constructor make-comtab ()))
|
||||
(vector 0)
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Current State
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
;;;; Screens
|
||||
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Dynamic Abbrev
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-variable dabbrevs-backward-only
|
||||
"If true, dabbrevs-expand only looks backwards."
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Debian changelog mode
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-command debian-changelog-mode
|
||||
"Enter Debian changelog mode."
|
||||
|
|
|
@ -27,7 +27,7 @@ USA.
|
|||
;;;; Browser-style Debug and Where
|
||||
;;; Package: (edwin debugger)
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
;;;; Text prop setup stuff
|
||||
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Debugging Stuff
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define (debug-save-files)
|
||||
(for-each debug-save-buffer
|
||||
|
|
|
@ -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)))
|
||||
|
|
|
@ -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."
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -27,7 +27,7 @@ USA.
|
|||
;;;; Directory Editor (Unix Customizations)
|
||||
;;; package: (edwin dired)
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define (dired-change-inode program)
|
||||
(lambda (attribute argument)
|
||||
|
|
|
@ -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)
|
||||
|
|
|
@ -27,7 +27,7 @@ USA.
|
|||
;;;; Display-Type Abstraction
|
||||
;;; package: (edwin display-type)
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-structure (display-type
|
||||
(conc-name display-type/)
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Documentation Strings
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define *external-doc-strings?* #t)
|
||||
(define *external-doc-strings-file* #f)
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Win32 Customizations for Edwin
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define (os/set-file-modes-writeable! pathname)
|
||||
(set-file-modes! pathname
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Shell commands for DOS
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(load-option 'DOSPROCESS)
|
||||
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; DOS-Syntax File Customizations
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-variable version-control
|
||||
"Control use of version numbers for backup files.
|
||||
|
|
|
@ -27,7 +27,7 @@ USA.
|
|||
;;;; Dummy subprocess support
|
||||
;; package: (edwin process)
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define subprocesses-available?
|
||||
#f)
|
||||
|
|
|
@ -27,7 +27,7 @@ USA.
|
|||
;;;; Pseudo Shell subprocess in a buffer
|
||||
;;; Inspired by "cmushell.el", by Olin Shivers.
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(load-option 'DOSPROCESS)
|
||||
|
||||
|
|
|
@ -24,7 +24,7 @@ USA.
|
|||
|
||||
|#
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
;; This list must be kept in alphabetical order by filename.
|
||||
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Editor Top Level
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define (edit . args)
|
||||
(call-with-current-continuation
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Editor Frame
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
;;; Editor Frame
|
||||
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Editor Data Abstraction
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-structure (editor (constructor %make-editor))
|
||||
(name #f read-only #t)
|
||||
|
|
|
@ -27,7 +27,7 @@ USA.
|
|||
;;;; Evaluation Commands
|
||||
;;; Package: (edwin)
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
;;;; Variables
|
||||
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Edwin Interface to YStep
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-command step-expression
|
||||
"Single-step an expression."
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; File Commands
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define (find-file filename)
|
||||
(select-buffer (find-file-noselect filename #t)))
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; File <-> Buffer I/O
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
;;;; Encrypted files
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Help Commands
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-command help-prefix
|
||||
"This is a prefix for more commands.
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Major Mode for XML
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-major-mode xml text "XML"
|
||||
"Major mode for editing XML.
|
||||
|
|
|
@ -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))))))))))
|
||||
|
||||
|
|
|
@ -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."
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Keyboard Input
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
#|
|
||||
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Incremental Search
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define (isearch forward? regexp?)
|
||||
(reset-command-prompt!)
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -27,7 +27,7 @@ USA.
|
|||
;;;; Windows Keys
|
||||
;;; Package: (edwin win32-keys)
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define (initialize-package!)
|
||||
(set! end (make-special-key 'END 0))
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Command Summary
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-command describe-bindings
|
||||
"Show a list of all defined keys, and their definitions.
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Keyword Syntax Parser
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-structure (description
|
||||
(keyword-constructor make-keyparser-description)
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Kill Commands
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
;;;; Deletion
|
||||
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Keyboard Macros
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define *defining-keyboard-macro?* #f)
|
||||
(define *executing-keyboard-macro?* #f)
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Line/Indentation Commands
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
;;;; Lines
|
||||
|
||||
|
|
|
@ -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."
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Autoload Definitions
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
;;; ****************
|
||||
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Lisp Commands
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
;;;; S-expression Commands
|
||||
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Editor Macros
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
;; Upwards compatibility:
|
||||
(define edwin-syntax-table (->environment '(EDWIN)))
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Edwin: System Construction
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(load-option 'xml)
|
||||
(with-loader-base-uri (system-library-uri "edwin/")
|
||||
|
|
|
@ -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."
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Display Manual Pages
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-command manual-entry
|
||||
"Display the Unix manual entry for TOPIC.
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Midas Mode
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-command midas-mode
|
||||
"Enter Midas mode."
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Fundamental Mode
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-command fundamental-mode
|
||||
"Make the current mode be Fundamental Mode.
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Modes
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-structure (mode
|
||||
(constructor %make-mode
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Modeline Window
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-class modeline-window vanilla-window
|
||||
(shows-buffer-modified?))
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Motion Commands
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-command beginning-of-line
|
||||
"Move point to beginning of line."
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Motion within Groups
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
;;;; Motion by Characters
|
||||
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Mouse Commands
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-command mouse-select
|
||||
"Select window the mouse is on."
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
|
@ -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."
|
||||
|
|
|
@ -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))))
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Occurrence Commands
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-command keep-lines
|
||||
"Delete all lines except those containing matches for REGEXP.
|
||||
|
|
|
@ -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))
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Pascal Mode
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-command pascal-mode
|
||||
"Enter Pascal mode."
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Edwin Pathnames
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define (edwin-library-directory-pathname envvar required?)
|
||||
(let ((envval (get-environment-variable envvar)))
|
||||
|
|
|
@ -26,7 +26,7 @@ USA.
|
|||
|
||||
;;;; Print Buffers and Regions
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define-command lpr-buffer
|
||||
"Print buffer contents as with Unix command `lpr'.
|
||||
|
|
|
@ -27,7 +27,7 @@ USA.
|
|||
;;;; Subprocess Support
|
||||
;; package: (edwin process)
|
||||
|
||||
(declare (usual-integrations))
|
||||
|
||||
|
||||
(define subprocesses-available? #t)
|
||||
|
||||
|
|
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue