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

View File

@ -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''!")))))))

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -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
'())
'())

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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