(define-syntax-highlighting-rules emacs-style-highlighting
  (error-lexeme (*error-drawing-options*))
  (string-form (*string-drawing-options*))
  (comment (*comment-drawing-options*))
  (literal-object-form (:options :function (object-drawer)))
  (complete-token-form (:function #'(lambda (view form)
                                      (cond ((symbol-form-is-keyword-p (syntax view) form)
                                             *keyword-drawing-options*)
                                            ((symbol-form-is-macrobound-p (syntax view) form)
                                             *special-operator-drawing-options*)
                                            ((symbol-form-is-boundp (syntax view) form)
                                             *special-variable-drawing-options*)
                                            (t +default-drawing-options+)))))
  (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+)))))