From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 25 Feb 2002 19:50:11 +0000 (+0000)
Subject: Make sure scheme-program-name is defined for XEmacs.
X-Git-Tag: 20090517-FFI~2214
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=789fa9c1bb28afef7c79526b4626efec6b39cc40;p=mit-scheme.git

Make sure scheme-program-name is defined for XEmacs.
---

diff --git a/etc/xscheme.el b/etc/xscheme.el
index ef3d2ba5f..e8d8837f1 100644
--- a/etc/xscheme.el
+++ b/etc/xscheme.el
@@ -1,6 +1,6 @@
 ;;; xscheme.el --- run MIT Scheme under Emacs
 
-;; Copyright (C) 1986, 1987, 1989, 1990, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 1986, 1987, 1989, 1990, 2001, 2002 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: languages, lisp
@@ -37,7 +37,8 @@
   "Major mode for editing Scheme and interacting with MIT's C-Scheme."
   :group 'lisp)
 
-(if (< emacs-major-version 21)
+(if (or (string-match "XEmacs\\|Lucid" emacs-version)
+	(< emacs-major-version 21))
     (defcustom scheme-program-name "scheme"
       "*Program invoked by the `run-scheme' command."
       :type 'string