Add capitalization.

src/compare/diff.rs

@@ -20,8 +20,10 @@ use super::elisp_fact::ElispFact;
 use super::elisp_fact::GetElispFact;
 use super::sexp::unquote;
 use super::sexp::Token;
+use super::util::affiliated_keywords_names;
 use super::util::assert_no_children;
 use super::util::compare_additional_properties;
+use super::util::compare_affiliated_keywords;
 use super::util::compare_children;
 use super::util::compare_children_iter;
 use super::util::compare_standard_properties;
@@ -755,10 +757,21 @@ fn compare_plain_list<'b, 's>(
         &mut message,
     )?;
 
+    compare_affiliated_keywords(emacs, rust)?.apply(
+        &mut child_status,
+        &mut this_status,
+        &mut message,
+    );
+    let affiliated_keywords_names: Vec<String> = affiliated_keywords_names(rust).collect();
+
     for diff in compare_properties!(
         source,
         emacs,
         rust,
+        affiliated_keywords_names
+            .iter()
+            .map(String::as_str)
+            .map(EmacsField::Required),
         (
             EmacsField::Optional(":name"),
             |r| r.name,