From: Chris Hanson Date: Fri, 4 Dec 1987 19:24:45 +0000 (+0000) Subject: Change `else' to `t' in final clause of cond. X-Git-Tag: 20090517-FFI~13020 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6cbd7aa0a64d35d29184932dd0b5fd19eaa95917;p=mit-scheme.git Change `else' to `t' in final clause of cond. --- diff --git a/etc/xscheme.el b/etc/xscheme.el index ab2cd42d6..4946358a7 100644 --- a/etc/xscheme.el +++ b/etc/xscheme.el @@ -21,7 +21,7 @@ ;;; Requires C-Scheme release 5 or later ;;; Changes to Control-G handler require runtime version 13.85 or later -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/xscheme.el,v 1.4 1987/12/04 18:58:01 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/xscheme.el,v 1.5 1987/12/04 19:24:45 cph Exp $ (require 'scheme) @@ -247,7 +247,7 @@ Control returns to the top level rep loop." (interrupt-process "scheme" t)) (xscheme-control-g-disabled-p (message "Relax...")) - (else + (t (setq xscheme-control-g-disabled-p t) (message "Sending C-G interrupt to Scheme...") (interrupt-process "scheme" t)