Compare the standard properties.

src/compare/mod.rs

@@ -16,4 +16,6 @@ pub(crate) use compare_field::EmacsField;
 pub(crate) use elisp_fact::ElispFact;
 pub use sexp::sexp;
 pub use sexp::Token;
+pub(crate) use util::get_emacs_standard_properties;
 pub(crate) use util::get_property_quoted_string;
+pub(crate) use util::EmacsStandardProperties;

src/compare/util.rs

@@ -145,20 +145,20 @@ fn assert_post_blank<'b, 's, S: StandardProperties<'s> + ?Sized>(
     Ok(())
 }
 
-struct EmacsStandardProperties {
-    begin: Option<usize>,
+pub(crate) struct EmacsStandardProperties {
+    pub(crate) begin: Option<usize>,
     #[allow(dead_code)]
-    post_affiliated: Option<usize>,
+    pub(crate) post_affiliated: Option<usize>,
     #[allow(dead_code)]
-    contents_begin: Option<usize>,
+    pub(crate) contents_begin: Option<usize>,
     #[allow(dead_code)]
-    contents_end: Option<usize>,
-    end: Option<usize>,
+    pub(crate) contents_end: Option<usize>,
+    pub(crate) end: Option<usize>,
     #[allow(dead_code)]
-    post_blank: Option<usize>,
+    pub(crate) post_blank: Option<usize>,
 }
 
-fn get_emacs_standard_properties(
+pub(crate) fn get_emacs_standard_properties(
     emacs: &Token<'_>,
 ) -> Result<EmacsStandardProperties, Box<dyn std::error::Error>> {
     let children = emacs.as_list()?;