Variable: backtrace-font-lock-keywords-2

(("(\\(cl-def\\(?:generic\\|m\\(?:acro\\|ethod\\)\\|s\\(?:\\(?:truc\\|ubs\\)t\\)\\|type\\|un\\)\\|def\\(?:a\\(?:dvice\\|lias\\)\\|c\\(?:lass\\|onst\\|ustom\\)\\|face\\|g\\(?:eneric\\|roup\\)\\|ine-\\(?:advice\\|derived-mode\\|g\\(?:\\(?:eneric\\|lobal\\(?:\\(?:ized\\)?-minor\\)\\)-mode\\)\\|inline\\|minor-mode\\|skeleton\\|widget\\)\\|m\\(?:acro\\|ethod\\)\\|subst\\|theme\\|un\\|var\\(?:-local\\|alias\\)?\\)\\|ert-deftest\\)\\_>[    ']*\\(([        ']*\\)?\\(\\(setf\\)[   ]+\\(?:\\sw\\|\\s_\\|\\\\.\\)+\\|\\(?:\\sw\\|\\s_\\|\\\\.\\)+\\)?"
  (1 font-lock-keyword-face)
  (3
   (let
       ((type
	 (get
	  (intern-soft
	   (match-string 1))
	  'lisp-define-type)))
     (cond
      ((eq type 'var)
       font-lock-variable-name-face)
      ((eq type 'type)
       font-lock-type-face)
      ((or
	(not
	 (match-string 2))
	(and
	 (match-string 2)
	 (match-string 4)))
       font-lock-function-name-face)))
   nil t))
 ("^;;;###\\([-a-z]*autoload\\)" 1 font-lock-warning-face prepend)
 ("\\[\\(\\^\\)" 1 font-lock-negation-char-face prepend)
 ("(\\(cl-\\(?:assert\\|check-type\\)\\|error\\|signal\\|user-error\\|warn\\)\\_>"
  (1 font-lock-warning-face))
 (lisp--el-match-keyword . 1)
 ("(\\(catch\\|throw\\|featurep\\|provide\\|require\\)\\_>[  ']*\\(\\(?:\\sw\\|\\s_\\|\\\\.\\)+\\)?"
  (1 font-lock-keyword-face)
  (2 font-lock-constant-face nil t))
 ("\\\\\\\\\\[\\(\\(?:\\sw\\|\\s_\\|\\\\.\\)+\\)\\]"
  (1 font-lock-constant-face prepend))
 ("\\(\\\\\\)\\([^\"\\]\\)"
  (1
   (elisp--font-lock-backslash)
   prepend))
 ("[`‘']\\(\\(?:\\sw\\|\\s_\\|\\\\.\\)+\\)['’]"
  (1 font-lock-constant-face prepend))
 ("\\_<:\\(?:\\sw\\|\\s_\\|\\\\.\\)+\\_>"
  (0 font-lock-builtin-face))
 ("\\_<&\\(?:\\sw\\|\\s_\\|\\\\.\\)+\\_>" . font-lock-type-face)
 (#[257 "\30021�\301\302\303#\2050�\304\224\204�\305`S\306\"\211<\203!�\307
>\204'�\211\307=\203,�\310\300\303\"\210\210\202�0\207"
	[found re-search-forward "\\(\\\\\\\\\\)\\(?:\\(\\\\\\\\\\)\\|\\((\\(?:\\?[0-9]*:\\)?\\|[|)]\\)\\)" t 2 get-text-property face font-lock-string-face throw]
	5 "\n\n(fn BOUND)"]
  (1 'font-lock-regexp-grouping-backslash prepend)
  (3 'font-lock-regexp-grouping-construct prepend))
 (lisp--match-confusable-symbol-character 0
					  '(face font-lock-warning-face help-echo "Confusable character"))
 (backtrace--match-ellipsis-in-string
  (1 'button prepend)))