Invalid face reference: quote

[Davin Pearson]

I posted this message on June 7 but got no useful response, so I am posting it 
again in the hope that one of you braniacs could help me with my code...

Here is the output of my *Messages* buffer:

Here it is in the header file
Invalid face reference: quote [27 times]
Mark set
Invalid face reference: quote [24 times]
Mark set
Invalid face reference: quote [12 times]
Mark set
Invalid face reference: quote [12 times]
Mark set
Invalid face reference: quote [167 times]
<<< Type SPC or RET to bury the buffer list >>>
Invalid face reference: quote [8 times]

What is the reason for all of the "Invalid face reference: quote" error 
messages?  I have added the following setq's to my font lock file.  Is this 
anything to do with the error message?

(progn
  (setq fg:lightred                             'fg:lightred)
  (setq d-face-cc-illegal-type                  'd-face-cc-illegal-type)
  (setq d-face-super-comment                    'd-face-super-comment)
  (setq d-face-cc-allegro                       'd-face-cc-allegro)
  (setq fg:white                                'fg:white)
  (setq bg:lightmagenta                         'bg:lightmagenta)
  (setq d-face-cc-debugging                     'd-face-cc-debugging)
  (setq bg:lightgreen                           'bg:lightgreen)
  (setq d-face-property-inverse                 'd-face-property-inverse)
  (setq d-face-cc-debugging                     'd-face-cc-debugging)
  (setq fg:lightmagenta                         'fg:lightmagenta)
  (setq fg:lightgreen                           'fg:lightgreen)
  (setq d-face-m4                               'd-face-m4)
  (setq d-face-m4-dnl                           'd-face-m4-dnl)
  (setq d-face-cc-digits                        'd-face-cc-digits)
  (setq d-debug-face                            'd-debug-face)
  (setq d-checkpoint-face                       'd-checkpoint-face)
  (setq d-face-el-quote                         'd-face-el-quote)
  (setq d-face-cc-debugging                     'd-face-cc-debugging)
  (setq d-face-cc-allegro                       'd-face-cc-allegro)
  (setq d-face-cc-illegal-type                  'd-face-cc-illegal-type)
  (setq bg:yellow                               'bg:yellow)
  (setq d-face-cc-libd                          'd-face-cc-libd)
  (setq d-face-cc-ctor-dtor                     'd-face-cc-ctor-dtor)
  (setq d-face-cc-clib                          'd-face-cc-clib)
  (setq fg:lightmagenta                         'fg:lightmagenta)
  (setq d-face-cc-global                        'd-face-cc-global)
  (setq d-face-cc-illegal-type                  'd-face-cc-illegal-type)
  (setq d-face-red-and-white                    'd-face-red-and-white)
  (setq d-face-green-and-black                  'd-face-green-and-black)
  (setq d-face-el-d-stuff                       'd-face-el-d-stuff)
  (setq d-face-el-quote                         'd-face-el-quote)
  (setq d-face-cc-opengl                        'd-face-cc-opengl)
  (setq d-face-makefile-dollar-dollar-highlight 
'd-face-makefile-dollar-dollar-highlight)
  (setq d-face-makefile-dollar-dollar           'd-face-makefile-dollar-dollar)
  (setq fg:white                                'fg:white)
  (setq bg:lightmagenta                         'bg:lightmagenta)
  (setq d-face-cc-debugging                     'd-face-cc-debugging)
  (setq d-face-cc-private                       'd-face-cc-private)
  (setq bg:lightgreen                           'bg:lightgreen)
  (setq d-face-property                         'd-face-property)
  (setq d-face-property-inverse                 'd-face-property-inverse)
  (setq fg:lightmagenta                         'fg:lightmagenta)
  (setq fg:lightgreen                           'fg:lightgreen)
  (setq fg:lightmagenta                         'fg:lightmagenta)
  (setq fg:lightmagenta                         'fg:lightmagenta)
  (setq fg:lightgreen                           'fg:lightgreen)
  (setq fg:red                                  'fg:red)
  (setq fg:lightred                             'fg:lightred)
  (setq bg:lightred                             'bg:lightred)
  (setq bg:yellow                               'bg:yellow)
  (setq d-face-path                             'd-face-path)
  (setq d-face-red-and-yellow                   'd-face-red-and-yellow)
  (setq dc-face-dired-web                       'dc-face-dired-web)
  (setq dc-face-dired-text                      'dc-face-dired-text)
  (setq dc-face-dired-executable                'dc-face-dired-executable)
  (setq dc-face-dired-sounds                    'dc-face-dired-sounds)
  (setq dc-face-dired-sources                   'dc-face-dired-sources)
  (setq dc-face-dired-archives                  'dc-face-dired-archives)
  (setq dc-face-dired-graphics                  'dc-face-dired-graphics)
  (setq dc-face-dired-movies                    'dc-face-dired-movies)
  (setq dc-face-dired-unimportant               'dc-face-dired-unimportant)
  (setq d-face-m4                               'd-face-m4)
  (setq d-face-m5                               'd-face-m5)
  (setq d-face-m6                               'd-face-m6)
  (setq d-face-makefile-space                   'd-face-makefile-space)
  (setq d-face-el-d-stuff2                      'd-face-el-d-stuff2)
  (setq d-face-green-and-yellow                 'd-face-green-and-yellow)
  (setq default                                 'default)
  (setq bold                                    'bold)
  (setq fg:lightblue                            'fg:lightblue)
  (setq underline                               'underline)
  )

I have also removed all of the quote characters from my font lock file like so:

(defun d-font-lock-mode-hook ()

  ;; removes FONT from modeline:
  ;;(if (assq 'font-lock-mode minor-mode-alist)
  ;;    (setcar (cdr (assq 'font-lock-mode minor-mode-alist)) " F"))

  (d-flock-checkpoint "1")

  ;;; COOL: font-lock-string-face
  (if (eq major-mode 'fundamental-mode)
      (setq font-lock-string-face nil)
    (set (make-local-variable 'font-lock-string-face) 'font-lock-string-face))

  (setq font-lock-keywords-case-fold-search nil)

  (d-flock-checkpoint "2")

  (d-flock-checkpoint "3")

  (when (and prefs-font-lisp++-p
             (or (eq major-mode 'emacs-lisp-mode)
                 (eq major-mode 'text-mode)
                 (and (buffer-file-name)
                      (or (string-match "eraseme" (buffer-file-name))
                          (string-match "\\.\\(method\\|lisp[+][+]\\|temp\\)$" 
(buffer-file-name))
                          )
                      )))
    (d-font-lock-add-begin
     '(
       ("std::" 0 fg:lightred t)
       ("\\<jit-lock-stealth-fontify\\>" 0 d-face-cc-illegal-type nil)
       ("\\<jit-lock-refontify\\>"       0 d-face-cc-illegal-type nil)
       ("\\<font-lock-fontify-buffer\\>" 0 fg:lightred            nil)
       )))

  )

instead of 'd-face-cc-illegal-type 
and 'fg:lightred.

Could this be the reason for the bug?

I have added the following helper function to the above code:

(defun d-font-lock-add-begin (keywords)
  (if (fboundp 'font-lock-add-keywords)
      (font-lock-add-keywords nil keywords nil)
    (setq font-lock-keywords
          (append
           keywords
           font-lock-keywords))))