From 6578ecef5eaa6faac5e9751678f8f4821bf261ef Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 17 Oct 1991 18:56:58 +0000 Subject: [PATCH] Initial revision --- code/generic-site.lisp | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 code/generic-site.lisp diff --git a/code/generic-site.lisp b/code/generic-site.lisp new file mode 100644 index 000000000..574ea21bc --- /dev/null +++ b/code/generic-site.lisp @@ -0,0 +1,28 @@ +;;; -*- Mode: Lisp; Package: System -*- +;;; +;;; ********************************************************************** +;;; This code was written as part of the CMU Common Lisp project at +;;; Carnegie Mellon University, and has been placed in the public domain. +;;; If you want to use this code or any part of CMU Common Lisp, please contact +;;; Scott Fahlman or slisp-group@cs.cmu.edu. +;;; +(ext:file-comment + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/generic-site.lisp,v 1.1 1991/10/17 18:56:58 ram Exp $") +;;; +;;; ********************************************************************** +;;; +;;; Generic site specific initialization for CMU CL. This can be used as a +;;; template for non-cmu "library:site-init" files. +;;; +(in-package "SYSTEM") + +;;; Define the site to be undefined. +(setq *short-site-name* "Unknown") +(setq *long-site-name* "Site name not initialized") + +;;; Use standard X fonts for Hemlock, since the default ones may not work +;;; everywhere. +;;; +(hi:setv ed::open-paren-highlighting-font "*-courier-bold-r-normal--12-*") +(hi:setv ed::default-font "*-courier-medium-r-normal--12-*") +(hi:setv ed::active-region-highlighting-font "*-courier-medium-o-normal--12-*") -- GitLab