Skip to content
Snippets Groups Projects
Commit 78b12b0a authored by ram's avatar ram
Browse files

Added a template for Hemlock source file directory translation, and improved

some of the comments.
parent d2dd593d
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -16,12 +16,30 @@
;;; ;;;
(in-package "SYSTEM") (in-package "SYSTEM")
;;; Define the site to be undefined. ;;; Put your site name here...
(setq *short-site-name* "Unknown") (setq *short-site-name* "Unknown")
(setq *long-site-name* "Site name not initialized") (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 ;;; 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::open-paren-highlighting-font "*-courier-bold-r-normal--12-*")
(hi:setv ed::default-font "*-courier-medium-r-normal--12-*") (hi:setv ed::default-font "*-courier-medium-r-normal--12-*")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment