From 78b12b0ad493e10da424f17215fcc1d520e622bf Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 22 Oct 1991 13:17:13 +0000 Subject: [PATCH] Added a template for Hemlock source file directory translation, and improved some of the comments. --- code/generic-site.lisp | 24 +++++++++++++++++++++--- 1 file changed, 21 insertions(+), 3 deletions(-) diff --git a/code/generic-site.lisp b/code/generic-site.lisp index 574ea21bc..a2f9ed64a 100644 --- a/code/generic-site.lisp +++ b/code/generic-site.lisp @@ -7,7 +7,7 @@ ;;; 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 $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/generic-site.lisp,v 1.2 1991/10/22 13:17:13 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -16,12 +16,30 @@ ;;; (in-package "SYSTEM") -;;; Define the site to be undefined. +;;; Put your site name here... (setq *short-site-name* "Unknown") (setq *long-site-name* "Site name not initialized") +;;; The following Hemlock initializations will error if run in a core without +;;; hemlock. + +;;; If you have sources installed on your system, un-comment the following form +;;; and change it to point to the source location. This will allow the Hemlock +;;; "Edit Definition" command to find sources for functions in the core. If +;;; this doesn't work, check that first part of the translation really does +;;; have the correct prefix. +;;; +#| +(ed::add-definition-dir-translation + "/afs/cs.cmu.edu/project/clisp-1/sun4c_41/15/" + "<your source location here>") +|# + ;;; Use standard X fonts for Hemlock, since the default ones may not work -;;; everywhere. +;;; everywhere. By default, Hemlock used 8x13 and a non-standard underline +;;; font, 8x13u (which is part of the distribution.) Unfortunately, we don't +;;; have source for this font, since it was created by hand-editing the +;;; bitmaps. ;;; (hi:setv ed::open-paren-highlighting-font "*-courier-bold-r-normal--12-*") (hi:setv ed::default-font "*-courier-medium-r-normal--12-*") -- GitLab