Highlight function calls but not first in quoted list in emacs
<p>In emacs lisp mode, I want to highlight all function calls one color, and all quoted symbols another color. For example, in <code>(foo 1 2 'bar)</code>, foo should be highlighted color 1 and 'bar should be highlighted color 2.</p>

<p>I was able to do this with the code below, however, it is also highlighting the first symbol in a list when the list is quoted. For example, in <code>'(nil a b c)</code>, nil should <strong>not</strong> be highlighted as a function call, and all items in that list should be highlighted as quoted symbols (color 2).</p>

<pre><code>(defface font-lock-func-face 
    '((nil (:foreground "#6fc2ef"))
      (t (:bold t :italic t)))
  "Font Lock mode face used for function calls."
  :group 'font-lock-highlighting-faces)

(defface font-lock-quoted-face 
    '((nil (:foreground "#e1a3ee"))
      (t (:bold t :italic t)))
  "Font Lock mode face used for function calls."
  :group 'font-lock-highlighting-faces)

(font-lock-add-keywords 
 'emacs-lisp-mode
 '(("(\\s-*\\(\\_&lt;\\(?:\\sw\\|\\s_\\)+\\)\\_&gt;"
    1 'font-lock-func-face)))

(font-lock-add-keywords
 'emacs-lisp-mode
 '(("'[-a-zA-Z_][-a-zA-Z0-9_]*\\&gt;" 0 'font-lock-quoted-face)))
</code></pre>

<p>There's also an image of what I'm looking at here: <a href="http://imgur.com/Iluku05" rel="nofollow">http://imgur.com/Iluku05</a></p>