zwei:electric-font-lock-if-appropriate still broken!

[<GUMBY at MIT-DM>]

In zwei in Release 5.1, Experimental MIT 1.5, COLOR 5.1, FEP 18, on Lisp Machine Buddy Holly (3600):

Your definition of zwei:electric-font-lock-if-appropriate is still
broken.  It switches on electric-font-lock-mode if the file as an
attribute list and but one font specified therein.


(defun electric-font-lock-if-appropriate ()
  (if (cdr (send *interval* ':get ':font-alist))        ;don't do it if only one font specified.
      (turn-on-mode 'electric-font-lock-mode)
    (turn-off-mode 'electric-font-lock-mode)))