anchor.diff:                                               +bold-face-drawing-options+)
                                               (t +default-drawing-options+)))))
     ;; XXX: Ugh, copied from above.
  -  (parenthesis-lexeme (:function #'(lambda (view form)
  -                                     (if (and (typep view 'point-mark-view)
  -                                              (or (mark= (point view) (start-offset (parent form)))
  -                                                  (mark= (point view) (end-offset (parent form))))
  -                                              (form-complete-p (parent form)))
  -                                         +bold-face-drawing-options+
  -                                         +default-drawing-options+)))))
  +  (parenthesis-lexeme (:function #'parenthesis-highlighter)))
   
   (defparameter *syntax-highlighting-rules* 'emacs-style-highlighting
     "The syntax highlighting rules used for highlighting Lisp
  
positive.code:       (progn (cache-symbol-info syntax symbol-form)
               (global-boundp symbol-form))))
  
  (define-syntax-highlighting-rules emacs-style-highlighting
    (error-lexeme (*error-drawing-options*))
    (string-form (*string-drawing-options*))
  
negative.code:                                             ((symbol-form-is-boundp (syntax view) form)
                                               *special-variable-drawing-options*)
                                              (t +default-drawing-options+)))))
    (parenthesis-lexeme (:function #'parenthesis-highlighter)))
  
  (define-syntax-highlighting-rules retro-highlighting
    (error-symbol (*error-drawing-options*))
  