electric font lock?

["K. Shane Hartman" <SHANE@jasper.palladian.com>]

    Date: Thu, 19 Feb 87 09:34:27 EST
    From: Roy M Turner <royt%gatech.csnet@RELAY.CS.NET>


    Hi--

    Does anyone have a version of "electric font lock mode" for 
    Genera 7.0?  If so, I'd sure appreciate a copy.  Also, if
    anyone has a hack to set the default terminal type and 
    characteristics for telnet, I'd appreciate that too.

    Thanks!

    Roy Turner
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; The following are patch files.

;;; Randy Parker provided this mod.

zwei:
(DEFPROP FONT-LOCK-HOOK 10 COMMAND-HOOK-PRIORITY)

zwei:
(DEFUN FONT-LOCK-HOOK (CHAR)
  (WHEN (NEQ *INTERVAL* (WINDOW-INTERVAL *MINI-BUFFER-WINDOW*))
      (LET ((NEW-FONT (MULTIPLE-VALUE-BIND (STRING SLASH COMMENT)
			  (SHIFT-LOCK-HOOK-CACHED-SYNTACTIC-CONTEXT)
			(IF (OR COMMENT
				(AND (NOT (OR STRING SLASH))
				     (= (LIST-SYNTAX CHAR) LIST-COMMENT)))
			    1 0))))
	(UNLESS (= *STYLE* NEW-FONT)		; was *FONT*
	  (SETQ *STYLE* NEW-FONT)		; was *FONT*
	  (UPDATE-STYLE-NAME)))))

;;; Shane Hartman provided this mod.

telnet:
(defvar *default-terminal-simulator-type* 'ambassador-terminal-simulator)

telnet:						
(defmethod (:connect nvt-window :after) (&rest ignore)
  (when *default-terminal-simulator-type*
    (LET ((TERMINAL-SIMULATOR-FILTER (LOOP FOR FILTER FIRST TYPEOUT-FILTERS
					   THEN (SEND FILTER ':INPUT-STREAM)
					   UNTIL (EQ FILTER NETWORK-STREAM)
					   WHEN (MEMQ (TYPEP FILTER)
						      *TERMINAL-SIMULATOR-TYPES*)
					   RETURN FILTER)))
      (AND TERMINAL-SIMULATOR-FILTER
	   (SETQ TYPEOUT-FILTERS
		 (SEND TERMINAL-SIMULATOR-FILTER ':SET-TERMINAL-SIMULATOR-FLAVOR
		       *default-terminal-simulator-type*))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


    -[Shane]->