diff --git a/src/compare/diff.rs b/src/compare/diff.rs
index 2e82186..c43b4d0 100644
--- a/src/compare/diff.rs
+++ b/src/compare/diff.rs
@@ -60,6 +60,7 @@ use crate::types::LatexEnvironment;
 use crate::types::LatexFragment;
 use crate::types::LineBreak;
 use crate::types::LineNumber;
+use crate::types::LinkType;
 use crate::types::Minute;
 use crate::types::MinuteInner;
 use crate::types::Month;
@@ -2768,13 +2769,22 @@ fn compare_regular_link<'b, 's>(
         rust,
         (
             EmacsField::Required(":type"),
-            compare_identity,
-            compare_noop
+            |r| {
+                match r.link_type {
+                    LinkType::File => Some("file"),
+                    LinkType::Protocol(protocol) => Some(protocol),
+                    LinkType::Id => Some("id"),
+                    LinkType::CustomId => Some("custom-id"),
+                    LinkType::CodeRef => Some("coderef"),
+                    LinkType::Fuzzy => Some("fuzzy"),
+                }
+            },
+            compare_property_quoted_string
         ),
         (
             EmacsField::Required(":path"),
-            compare_identity,
-            compare_noop
+            |r| Some(r.path),
+            compare_property_quoted_string
         ),
         (
             EmacsField::Required(":format"),
@@ -2783,8 +2793,8 @@ fn compare_regular_link<'b, 's>(
         ),
         (
             EmacsField::Required(":raw-link"),
-            compare_identity,
-            compare_noop
+            |r| Some(r.raw_link),
+            compare_property_quoted_string
         ),
         (
             EmacsField::Required(":application"),