From 2d500643b5f95e76c329c4469b1a74ffaf339151 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 19 Aug 1993 14:06:37 +0000 Subject: [PATCH] Changed directory-translation skeleton to be target: search-list. Changed #+hemlock to be (when (member :hemlock *features*) ...) --- code/generic-site.lisp | 31 ++++++++++++++----------------- 1 file changed, 14 insertions(+), 17 deletions(-) diff --git a/code/generic-site.lisp b/code/generic-site.lisp index 0aba116ed..ab251c4ed 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.5 1992/05/30 12:56:53 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/generic-site.lisp,v 1.6 1993/08/19 14:06:37 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -28,30 +28,27 @@ cmucl-bugs@cs.cmu.edu. Loaded subsystems:")) -;;; The following Hemlock initializations will error if run in a core without -;;; hemlock. -#+hemlock (progn ;;; 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. -;;; +;;; "Edit Definition" command and the debugger to find sources for functions in +;;; the core. #| -(ed::add-definition-dir-translation - "/afs/cs.cmu.edu/project/clisp-1/sun4c_41/15/" - "<your source location here>") +(setf (search-list "target:") "<the source tree root>/") |# +;;; The following Hemlock initializations will error if run in a core without +;;; hemlock. +;;; ;;; Use standard X fonts for Hemlock, since the default ones may not work ;;; 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--*-120-*") -(hi:setv ed::default-font "*-courier-medium-r-normal--*-120-*") -(hi:setv ed::active-region-highlighting-font - "*-courier-medium-o-normal--*-120-*") - -); #+hemlock +(when (member :hemlock *features*) + (hi::%set-variable-value 'ed::open-paren-highlighting-font :global nil + "*-courier-bold-r-normal--*-120-*") + (hi::%set-variable-value 'ed::default-font :global nil + "*-courier-medium-r-normal--*-120-*") + (hi::%set-variable-value 'ed::active-region-highlighting-font :global nil + "*-courier-medium-o-normal--*-120-*")) -- GitLab