;       Saturday  Oct 30,1982  21:57  FQ+6D.6H.58M.41S.  -*- Lisp -*-

;All my own things:
(load '((nilman) bolio))

(defprop backquote-section-page "chapter 2 of /ref{Maclisp-Extensions}"
	 just-value)

(defprop sharpsign-macro "chapter 3 of /ref{Maclisp-Extensions}" just-value)

(defprop format-fun "chapter 10 of /ref{Maclisp-Extensions}" just-value)

(setq index-in-small-font t)

(setq just-inline-requests? t)

(standard-manual-sectionization)

(load '((bolio) 1index))

(defprop index 2 listing-columns)

(or (assoc #/* xerox-special-character-ligatures)
    (rplacd xerox-special-character-ligatures
	    (sortcar (cons (cons #/* (boole 7 (lsh 7 9) #/*))
			   (cdr xerox-special-character-ligatures))
		     #'<)))


(setq index-page-number-alignment ':flush-left)

(SETQ INHIBIT-AUTOMAGIC-SECOND-PASS 'ASK)

;Control the style of what .defspec and .defmac do
(SETQ SPECIAL-FORM-MARKER-EXDENTATION 1000.)	;1 inch in from right margin
(SETQ SPECIAL-FORM-MARKER-SPACE 750.)		;At least 3/4 inch between it and template
(SETQ SPECIAL-FORM-MARKER-FONT 2)		;Put it in italics I guess

;For examples

(DEFUN (DEFUN_NO_INDEX REQUEST) ()
  (LET ((FUNCTION-INDEX NIL))
    (DEFUN-REQUEST)))

(DEFUN (DEFSPEC_NO_INDEX REQUEST) ()
  (LET ((FUNCTION-INDEX NIL))
    (DEFSPEC-REQUEST)))

(DEFUN (DEFMAC_NO_INDEX REQUEST) ()
  (LET ((FUNCTION-INDEX NIL))
    (DEFMAC-REQUEST)))

(DEFUN (DEFVAR_NO_INDEX REQUEST) ()
  (LET ((VARIABLE-INDEX NIL))
    (DEFVAR-REQUEST)))

(DEFUN (DEFMETHOD_NO_INDEX REQUEST) ()
  (LET ((MESSAGE-INDEX NIL))
    (DEFMETHOD-REQUEST)))

;Characters that make it difficult to edit the file on the Lisp machine
(PUTPROP 'CTL-M (TO-STRING '(21 15)) 'JUST-VALUE)	;^Q so JIN-MORE doesn't discard
(PUTPROP 'CTL-H (TO-STRING '(21 10)) 'JUST-VALUE)
(PUTPROP 'CTL-QM (TO-STRING '(177)) 'JUST-VALUE)


(setq bottom-heading-vpos 10250.)

(SSTATUS UUOLINKS)

