#| -*-Scheme-*-
-$Id: dosshell.scm,v 1.2 1993/02/25 02:56:29 gjr Exp $
+$Id: dosshell.scm,v 1.3 1993/08/10 06:38:22 cph Exp $
Copyright (c) 1992-1993 Massachusetts Institute of Technology
;; (define-key 'pseudo-shell #\tab 'comint-dynamic-complete)
;; (define-key 'pseudo-shell #\M-? 'comint-dynamic-list-completions)
-
+\f
(define-command shell
"Run an inferior pseudo shell, with I/O through buffer *shell*.
With prefix argument, unconditionally create a new buffer.
;;; -*-Scheme-*-
;;;
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edtstr.scm,v 1.21 1992/02/13 23:35:07 cph Exp $
+;;; $Id: edtstr.scm,v 1.22 1993/08/10 06:39:51 cph Exp $
;;;
-;;; Copyright (c) 1989-92 Massachusetts Institute of Technology
+;;; Copyright (c) 1989-93 Massachusetts Institute of Technology
;;;
;;; This material was developed by the Scheme project at the
;;; Massachusetts Institute of Technology, Department of
(set-editor-select-time! current-editor (1+ time))
time))
\f
+;;;; Buttons
+
(define-structure (button-event (conc-name button-event/))
(window false read-only true)
(x false read-only true)
(define button-record-type
(make-record-type 'BUTTON '(NUMBER DOWN?)))
-
+\f
(define make-down-button)
(define make-up-button)
(let ((%make-button
;;; -*-Scheme-*-
;;;
-;;; $Id: filcom.scm,v 1.174 1993/01/12 10:45:46 cph Exp $
+;;; $Id: filcom.scm,v 1.175 1993/08/10 06:40:36 cph Exp $
;;;
-;;; Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
+;;; Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
;;;
;;; This material was developed by the Scheme project at the
;;; Massachusetts Institute of Technology, Department of
(sort filenames string<?))
(define-integrable (completion-ignore-filename? filename)
- (os/completion-ignore-filename? filename))
-
+ (os/completion-ignore-filename? filename))
\ No newline at end of file
;;; -*-Scheme-*-
;;;
-;;; $Id: fileio.scm,v 1.117 1993/04/27 09:18:34 cph Exp $
+;;; $Id: fileio.scm,v 1.118 1993/08/10 06:41:16 cph Exp $
;;;
;;; Copyright (c) 1986, 1989-1993 Massachusetts Institute of Technology
;;;
old 1 olen))))
(let ((end (fix:+ end delta)))
(replace! next)
- (loop (group-find-next-char group (fix:+ next* delta) end match)
+ (loop (group-find-next-char group (fix:+ next* delta) end
+ match)
end))
(loop (group-find-next-char group next* end match)
end))))))))
\ No newline at end of file
;;; -*-Scheme-*-
;;;
-;;; $Id: info.scm,v 1.115 1992/11/17 17:38:34 cph Exp $
+;;; $Id: info.scm,v 1.116 1993/08/10 06:43:44 cph Exp $
;;;
-;;; Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
+;;; Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
;;;
;;; This material was developed by the Scheme project at the
;;; Massachusetts Institute of Technology, Department of
(ref-variable info-current-node)
(mark-index (current-point))))
;; Switch files if necessary.
- (if (and pathname (not (equal? pathname (ref-variable info-current-file))))
+ (if (and pathname
+ (not (equal? pathname (ref-variable info-current-file))))
(begin
(read-buffer buffer pathname true)
(if (not (eq? (buffer-major-mode buffer) (ref-mode-object info)))
(let ((end (buffer-end buffer)))
(let loop ((start (node-search-start nodename)))
(let ((node (next-node start end)))
- (if (not node)
- (editor-error "No such node: " nodename))
+ (if (not node) (editor-error "No such node: " nodename))
(if (let ((name (extract-node-name node)))
(and name
(string-ci=? nodename name)))
;;; -*-Scheme-*-
;;;
-;;; $Id: iserch.scm,v 1.18 1993/08/02 03:06:35 cph Exp $
+;;; $Id: iserch.scm,v 1.19 1993/08/10 06:45:05 cph Exp $
;;;
;;; Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
;;;
(define (extract-rest-of-line mark)
(extract-string mark (line-end mark (if (line-end? mark) 1 0) 'LIMIT)))
-
+\f
(define (search-state-message state)
(let ((invalid-regexp (search-state-invalid-regexp state)))
(let ((m
(if invalid-regexp (string-append " [" invalid-regexp "]") ""))))
(string-set! m 0 (char-upcase (string-ref m 0)))
m)))
-\f
+
(define (search-state-append-string state string)
(let ((text (string-append (search-state-text state) string)))
(if (search-state-successful? state)
;;; -*-Scheme-*-
;;;
-;;; $Id: loadef.scm,v 1.22 1993/08/02 21:05:52 cph Exp $
+;;; $Id: loadef.scm,v 1.23 1993/08/10 06:45:55 cph Exp $
;;;
;;; Copyright (c) 1986, 1989-1993 Massachusetts Institute of Technology
;;;
(define-library 'RMAIL-SUMMARY-MODE
'("rmailsum" (EDWIN RMAIL)))
-(define-autoload-major-mode 'rmail-summary 'fundamental "RMAIL-Summary" 'RMAIL-SUMMARY-MODE
- "Summary mode for RMAIL.")
+(define-autoload-major-mode 'rmail-summary 'fundamental "RMAIL-Summary"
+ 'RMAIL-SUMMARY-MODE "Summary mode for RMAIL.")
(define-autoload-command 'rmail-summary 'RMAIL-SUMMARY-MODE
"Enter RMAIL Summary mode.")
;;; -*-Scheme-*-
;;;
-;;; $Id: macros.scm,v 1.59 1993/01/09 01:16:15 cph Exp $
+;;; $Id: macros.scm,v 1.60 1993/08/10 06:47:41 cph Exp $
;;;
;;; Copyright (c) 1986, 1989-1993 Massachusetts Institute of Technology
;;;
(define (command-name->scheme-name name)
(symbol-append 'EDWIN-COMMAND$ name))
-
+\f
(let ((variable-definition
(lambda (buffer-local?)
(lambda (name description #!optional value test)
(define (canonicalize-name name)
(cond ((symbol? name) name)
((string? name) (intern (string-replace name #\Space #\-)))
- (else (error "illegal name" name))))
-
-(syntax-table-define edwin-syntax-table 'VALUES-LET
- (lambda (bindings . forms)
-
- (define (transform/binding binding forms)
- (if (or (not (pair? binding))
- (not (pair? (cdr binding))))
- (error "values-let: bad binding clause" binding))
- `(WITH-VALUES (LAMBDA () ,(cadr binding))
- (LAMBDA (,@(car binding)) ,@forms)))
-
- (define (transform/values-let bindings forms)
- (transform/binding
- (car bindings)
- (if (null? (cdr bindings))
- forms
- (list (transform/values-let (cdr bindings) forms)))))
-
- (if (not (pair? bindings))
- (error "values-let: missing bindings" (cons bindings forms))
- (transform/values-let bindings forms))))
\ No newline at end of file
+ (else (error "illegal name" name))))
\ No newline at end of file
;;; -*-Scheme-*-
;;;
-;;; $Id: modlin.scm,v 1.15 1992/11/12 18:00:37 cph Exp $
+;;; $Id: modlin.scm,v 1.16 1993/08/10 06:48:48 cph Exp $
;;;
-;;; Copyright (c) 1989-92 Massachusetts Institute of Technology
+;;; Copyright (c) 1989-93 Massachusetts Institute of Technology
;;;
;;; This material was developed by the Scheme project at the
;;; Massachusetts Institute of Technology, Department of
(min
(let ((start (group-display-start-index group)))
(integer-round
- (* 100 (- (mark-index (window-start-mark window)) start))
+ (* 100
+ (- (mark-index (window-start-mark window)) start))
(- (group-display-end-index group) start)))
99))
2)
;;; -*-Scheme-*-
;;;
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/motcom.scm,v 1.45 1991/11/21 10:37:39 cph Exp $
+;;; $Id: motcom.scm,v 1.46 1993/08/10 06:49:52 cph Exp $
;;;
-;;; Copyright (c) 1985, 1989-91 Massachusetts Institute of Technology
+;;; Copyright (c) 1985, 1989-93 Massachusetts Institute of Technology
;;;
;;; This material was developed by the Scheme project at the
;;; Massachusetts Institute of Technology, Department of
(move-to-column (line-start (current-point) (- argument) 'FAILURE)
column)))
(set-command-message! temporary-goal-column-tag column))))
-
-;;; Jokes
+\f
+;;;; Jokes
(define-command hyper-space
"Engage warp drive."
;;; -*-Scheme-*-
;;;
-;;; $Id: notify.scm,v 1.10 1992/09/17 00:26:15 jinx Exp $
+;;; $Id: notify.scm,v 1.11 1993/08/10 06:50:48 cph Exp $
;;;
-;;; Copyright (c) 1992 Massachusetts Institute of Technology
+;;; Copyright (c) 1992-93 Massachusetts Institute of Technology
;;;
;;; This material was developed by the Scheme project at the
;;; Massachusetts Institute of Technology, Department of
"")))
(kill-buffer temporary-buffer)
result))))
-
+\f
(define-variable notify-show-mail
"If true, the notifier displays your mail status."
true
projects / mit-scheme.git / commitdiff