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

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

4
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
@ -631,4 +631,4 @@ The argument FILENAME is the file name to write."
((ref-command write-abbrev-file) #f)) ((ref-command write-abbrev-file) #f))
;; Don't keep bothering user if he says no. ;; Don't keep bothering user if he says no.
(set! abbrevs-changed? #f) (set! abbrevs-changed? #f)
#t))) #t)))

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

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

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

4
edwin/artdebug.scm
View File

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

4
edwin/autold.scm
View File

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

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

6
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.
@ -161,7 +161,7 @@ This command followed by an = is equivalent to a Control-=."
(merge-bucky-bits char char-bit:control))))) (merge-bucky-bits char char-bit:control)))))
(define-command meta-prefix (define-command meta-prefix
"Sets Meta-bit of following character. "Sets Meta-bit of following character.
Turns a following A into a Meta-A. Turns a following A into a Meta-A.
If the Metizer character is Altmode, it turns ^A If the Metizer character is Altmode, it turns ^A
into Control-Meta-A. Otherwise, it turns ^A into plain Meta-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. signaled if the buffer is read-only.
This happens before reading any arguments." This happens before reading any arguments."
() ()
(lambda () (editor-error "DEFINE-COMMAND shouldn't be invoked"))) (lambda () (editor-error "DEFINE-COMMAND shouldn't be invoked")))

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

4
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 ()
@ -336,4 +336,4 @@ This variable has no effect if select-buffer-create is false."
(and default-buffer (buffer-name default-buffer)) (and default-buffer (buffer-name default-buffer))
(buffer-names) (buffer-names)
'DEFAULT-TYPE (if default-buffer 'VISIBLE-DEFAULT 'NO-DEFAULT) 'DEFAULT-TYPE (if default-buffer 'VISIBLE-DEFAULT 'NO-DEFAULT)
options)) options))

4
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))
@ -563,4 +563,4 @@ The buffer is guaranteed to be deselected at that time."
(delq! (minor-mode-comtab mode) (delq! (minor-mode-comtab mode)
(buffer-comtabs buffer))) (buffer-comtabs buffer)))
(remove-minor-mode-line-entry! buffer mode) (remove-minor-mode-line-entry! buffer mode)
(buffer-modeline-event! buffer 'buffer-modes))))))) (buffer-modeline-event! buffer 'buffer-modes)))))))

6
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
( (
@ -332,7 +332,7 @@ Automatically becomes local when set in any fashion."
(and (string? (vector-ref object i)) (and (string? (vector-ref object i))
(<= 1 (string-length (vector-ref object i)) 255) (<= 1 (string-length (vector-ref object i)) 255)
(loop (+ i 1)))))))) (loop (+ i 1))))))))
(let ((setup-truncate-lines! (let ((setup-truncate-lines!
(lambda (buffer variable) (lambda (buffer variable)
variable ;ignore variable ;ignore
@ -529,4 +529,4 @@ Automatically becomes local when set in any fashion."
(set! restore-saved-continuation? #f)) (set! restore-saved-continuation? #f))
unspecific) unspecific)
(define restore-saved-continuation?) (define restore-saved-continuation?)

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

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

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

4
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
@ -103,4 +103,4 @@ USA.
(let ((names (bufferset-names bufferset))) (let ((names (bufferset-names bufferset)))
(string-table-remove! names (buffer-name buffer)) (string-table-remove! names (buffer-name buffer))
(set-buffer-name! buffer new-name) (set-buffer-name! buffer new-name)
(string-table-put! names new-name buffer))) (string-table-put! names new-name buffer)))

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

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

4
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
@ -546,4 +546,4 @@ USA.
(%set-inferior-y-start! (%window-cursor-inferior window) end-y)) (%set-inferior-y-start! (%window-cursor-inferior window) end-y))
(update-modified-tick! window) (update-modified-tick! window)
(set-interrupt-enables! mask) (set-interrupt-enables! mask)
unspecific)) unspecific))

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

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

4
edwin/calias.scm
View File

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

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

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

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

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

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

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

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

4
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 ())
@ -203,4 +203,4 @@ USA.
(hash-table-ref/default permanent-local-variables variable #f)) (hash-table-ref/default permanent-local-variables variable #f))
(define permanent-local-variables (define permanent-local-variables
(make-key-weak-eq-hash-table)) (make-key-weak-eq-hash-table))

4
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."
@ -136,4 +136,4 @@ with output going to the buffer *compilation*."
unspecific))))) unspecific)))))
(define compilation-process (define compilation-process
#f) #f)

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

4
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)
@ -418,4 +418,4 @@ USA.
((comtab-alias? datum) ((comtab-alias? datum)
(datum-loop (comtab-alias/dereference datum) keys)) (datum-loop (comtab-alias/dereference datum) keys))
(else (else
(error "Illegal comtab datum:" datum))))))))) (error "Illegal comtab datum:" datum)))))))))

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

4
edwin/curren.scm
View File

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

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

6
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."
@ -146,7 +146,7 @@ Key bindings:
(map (lambda (s) (cons s s)) (map (lambda (s) (cons s s))
'("stable" '("stable"
"frozen" "frozen"
"unstable" "unstable"
"stable frozen unstable" "stable frozen unstable"
"stable unstable frozen" "stable unstable frozen"
"unstable stable 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:package-name 1)
(define title-regexp-index:version 2) (define title-regexp-index:version 2)
(define title-regexp-index:distribution 3) (define title-regexp-index:distribution 3)
(define title-regexp-index:urgency 5) (define title-regexp-index:urgency 5)

4
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
@ -1785,4 +1785,4 @@ once it has been renamed, it will not be deleted automatically.")
(string-length separator)))) (string-length separator))))
(lambda () (write value))) (lambda () (write value)))
port))))) port)))))
(debugger-newline port))) (debugger-newline port)))

4
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
@ -174,4 +174,4 @@ USA.
(set-screen-debug-trace! screen false) (set-screen-debug-trace! screen false)
(let ((result trace-output)) (let ((result trace-output))
(set! trace-output '()) (set! trace-output '())
(map list->vector (reverse! result))))) (map list->vector (reverse! result)))))

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

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

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

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

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

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

4
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)
@ -199,4 +199,4 @@ USA.
string)))) string))))
(define (description-append . descriptions) (define (description-append . descriptions)
(lambda () (apply string-append (map description->string descriptions)))) (lambda () (apply string-append (map description->string descriptions))))

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

4
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)
@ -105,4 +105,4 @@ Prefix arg means replace the region with it."
(if input-region (if input-region
(core (make-buffer-input-port (region-start input-region) (core (make-buffer-input-port (region-start input-region)
(region-end input-region))) (region-end input-region)))
(call-with-input-file "\\dev\\nul" core)))))) (call-with-input-file "\\dev\\nul" core))))))

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

4
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)
@ -54,4 +54,4 @@ USA.
#f) #f)
(define (process-output-available?) (define (process-output-available?)
#f) #f)

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

4
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.
@ -185,4 +185,4 @@ USA.
("window" (edwin window)) ("window" (edwin window))
("winout" (edwin window-output-port)) ("winout" (edwin window-output-port))
("xform" (edwin class-macros transform-instance-variables)) ("xform" (edwin class-macros transform-instance-variables))
("xterm" (edwin screen x-screen)))) ("xterm" (edwin screen x-screen))))

6
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
@ -156,7 +156,7 @@ USA.
(if (null? display-type-names) (if (null? display-type-names)
(find-any) (find-any)
(let ((next (name->display-type (car display-type-names)))) (let ((next (name->display-type (car display-type-names))))
(if (and next (if (and next
(display-type/available? next)) (display-type/available? next))
next next
(find-preferred (cdr display-type-names)))))) (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 (with-interrupt-mask interrupt-mask
(lambda (interrupt-mask) (lambda (interrupt-mask)
interrupt-mask interrupt-mask
(processor)))))))) (processor))))))))

4
edwin/edtfrm.scm
View File

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

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

4
edwin/evlcom.scm
View File

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

6
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."
@ -128,7 +128,7 @@ c contract the step under the cursor")
(define-command stepper-contract (define-command stepper-contract
"Contract the current step." "Contract the current step."
() ()
(lambda () (lambda ()
(let ((state (current-stepper-state)) (let ((state (current-stepper-state))
(node (current-node))) (node (current-node)))
(ynode-contract! node) (ynode-contract! node)
@ -286,4 +286,4 @@ c contract the step under the cursor")
(if region-munger (region-munger (make-region start point))) (if region-munger (region-munger (make-region start point)))
(mark-temporary! start))) (mark-temporary! start)))
(initialize-package!) (initialize-package!)

4
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)))
@ -896,4 +896,4 @@ Prefix arg means treat the plaintext file as binary data."
(sort filenames string<?)) (sort filenames string<?))
(define (completion-ignore-filename? filename) (define (completion-ignore-filename? filename)
(os/completion-ignore-filename? (->namestring filename))) (os/completion-ignore-filename? (->namestring filename)))

6
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
@ -173,7 +173,7 @@ of the predicates is satisfied, the file is written in the usual way."
(define (insert-file mark filename) (define (insert-file mark filename)
(%insert-file (%insert-file
mark mark
(bind-condition-handler (list condition-type:file-error) (bind-condition-handler (list condition-type:file-error)
(lambda (condition) (lambda (condition)
condition condition
@ -795,4 +795,4 @@ Otherwise, a message is written both before and after long file writes."
(file-chase-links (file-chase-links
(pathname-simplify (pathname-simplify
(merge-pathnames contents (directory-pathname pathname)))) (merge-pathnames contents (directory-pathname pathname))))
pathname))) pathname)))

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

4
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.
@ -439,4 +439,4 @@ If you want VALUE to be a string, you must surround it with doublequotes."
(define (finish start) (define (finish start)
(list (substring string start end))) (list (substring string start end)))
(apply string-append (find-escape 0 (buffer-comtabs buffer))))) (apply string-append (find-escape 0 (buffer-comtabs buffer)))))

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

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

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

4
edwin/input.scm
View File

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

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

4
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!)
@ -364,4 +364,4 @@ USA.
(let ((end (group-start start))) (let ((end (group-start start)))
(if regexp? (if regexp?
(re-search-backward text start end) (re-search-backward text start end)
(search-backward text start end))))))))))))) (search-backward text start end)))))))))))))

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

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

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

6
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)
@ -174,7 +174,7 @@ See \\[complete-keyword]."
"Perform completion on keyword preceding point." "Perform completion on keyword preceding point."
() ()
(lambda () (lambda ()
(let ((end (let ((end
(let ((point (current-point))) (let ((point (current-point)))
(let ((end (group-end point))) (let ((end (group-end point)))
(or (re-match-forward "\\sw+" point end #f) (or (re-match-forward "\\sw+" point end #f)
@ -518,4 +518,4 @@ See \\[complete-keyword]."
(let ((match-header (keyparser-fragment/match-header fragment))) (let ((match-header (keyparser-fragment/match-header fragment)))
(if match-header (if match-header
(match-header end stack) (match-header end stack)
end))))) end)))))

6
edwin/kilcom.scm
View File

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

4
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)
@ -254,4 +254,4 @@ Without argument, reads a character. Your options are:
(loop)) (loop))
(else (else
(editor-beep) (editor-beep)
(loop)))))))))) (loop))))))))))

6
edwin/lincom.scm
View File

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

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

6
edwin/loadef.scm
View File

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

4
edwin/lspcom.scm
View File

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

4
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)))
@ -261,4 +261,4 @@ USA.
(ill-formed-syntax form))))) (ill-formed-syntax form)))))
(define (mode-name->scheme-name name) (define (mode-name->scheme-name name)
(symbol 'edwin-mode$ name)) (symbol 'edwin-mode$ name))

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

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

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

4
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."
@ -62,4 +62,4 @@ USA.
(if (match-forward ";;;" mark) (if (match-forward ";;;" mark)
0 0
(max (+ (mark-column (horizontal-space-start mark)) 1) (max (+ (mark-column (horizontal-space-start mark)) 1)
(ref-variable comment-column mark)))) (ref-variable comment-column mark))))

4
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.
@ -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 #\v) 'vc-next-action)
(define-key 'fundamental '(#\c-x #\v #\=) 'vc-diff) (define-key 'fundamental '(#\c-x #\v #\=) 'vc-diff)
(define-key 'fundamental '(#\c-x #\v #\~) 'vc-version-other-window) (define-key 'fundamental '(#\c-x #\v #\~) 'vc-version-other-window)
)) ))

4
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
@ -138,4 +138,4 @@ USA.
(let ((m1 (mode-super-mode m1))) (let ((m1 (mode-super-mode m1)))
(and m1 (and m1
(or (eq? m1 m2) (or (eq? m1 m2)
(loop m1)))))) (loop m1))))))

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

4
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?))
@ -79,4 +79,4 @@ USA.
(if (not (boolean=? (buffer-modified? (if (not (boolean=? (buffer-modified?
(window-buffer (window-superior window))) (window-buffer (window-superior window)))
(modeline-window/shows-buffer-modified? window))) (modeline-window/shows-buffer-modified? window)))
(window-needs-redisplay! window))) (window-needs-redisplay! window)))

4
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."
@ -186,4 +186,4 @@ Continuation lines are skipped."
"Deliver super menu joke." "Deliver super menu joke."
() ()
(lambda () (lambda ()
(message "Big Mac, Medium Fries, Small Coke"))) (message "Big Mac, Medium Fries, Small Coke")))

4
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
@ -195,4 +195,4 @@ USA.
column column
(group-tab-width group) (group-tab-width group)
(group-char-image-strings group)) (group-char-image-strings group))
0)))) 0))))

4
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."
@ -121,4 +121,4 @@ Display cursor at that position for a second."
(define button2-up (make-up-button 1)) (define button2-up (make-up-button 1))
(define button3-up (make-up-button 2)) (define button3-up (make-up-button 2))
(define button4-up (make-up-button 3)) (define button4-up (make-up-button 3))
(define button5-up (make-up-button 4)) (define button5-up (make-up-button 4))

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

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

4
edwin/nvector.scm
View File

@ -26,10 +26,10 @@ 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))))
(define (vector-push! vector index item) (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))))

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

4
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))
@ -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-n) 'narrow-to-topic)
(define-key 'outline '(#\C-c #\C-a) 'forward-up-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-u) 'backward-up-topic)
(define-key 'outline '(#\C-c #\C-d) 'forward-down-topic) (define-key 'outline '(#\C-c #\C-d) 'forward-down-topic)

4
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.
@ -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)) (if argument (paredit-kill-surrounding-sexps-for-splice argument))
(let* ((before-open (backward-up-list (current-point) 1 'ERROR)) (let* ((before-open (backward-up-list (current-point) 1 'ERROR))
(before-close (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-close)
(delete-right-char before-open) (delete-right-char before-open)
(with-current-point before-open (with-current-point before-open

4
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."
@ -164,4 +164,4 @@ With an argument, shifts left that many times."
start)) start))
(+ indentation (+ indentation
(ref-variable pascal-shift-increment)) (ref-variable pascal-shift-increment))
indentation)))))))))) indentation))))))))))

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

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

4
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)
@ -700,4 +700,4 @@ Prefix arg means replace the region with it."
(apply run-synchronous-process (apply run-synchronous-process
input-region output-mark directory pty? input-region output-mark directory pty?
(ref-variable shell-file-name) (ref-variable shell-file-name)
(os/form-shell-command command))) (os/form-shell-command command)))

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