From a1f2f6806d94a445c014ecc337ca7dd722e06e5b Mon Sep 17 00:00:00 2001
From: TEC <git@tecosaur.net>
Date: Mon, 2 Jan 2023 02:55:57 +0800
Subject: [PATCH] org-latex-preview: Inhibit fsync when editing SVGs

* lisp/org-latex-preview.el (org-latex-preview--svg-make-fg-currentColor):
The value of fsync appears questionable at best on modern hardware, and
makes little sense for small files where the performance overhead is
significant.  Thus, it makes sense to inhibit fsync when editing the
generated SVGs.
---
 lisp/org-latex-preview.el | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

diff --git a/lisp/org-latex-preview.el b/lisp/org-latex-preview.el
index 93abb07c1..28c5ff3ed 100644
--- a/lisp/org-latex-preview.el
+++ b/lisp/org-latex-preview.el
@@ -1162,15 +1162,16 @@ EXTENDED-INFO, and displayed in the buffer."
 The foreground color is guessed to be the first specified <g>
 fill color, which appears to be a reliable heuristic from a few
 tests with the output of dvisvgm."
-  (with-temp-buffer
-    (insert-file-contents (plist-get svg-fragment :path))
-    (goto-char (point-min))
-    (when (re-search-forward "<g fill='\\(#[0-9a-f]\\{6\\}\\)'" nil t)
-      (let* ((same-color (format "\\(?:fill\\|stroke\\)='\\(%s\\)'" (match-string 1))))
-        (replace-match "currentColor" t t nil 1)
-        (while (re-search-forward same-color nil t)
-          (replace-match "currentColor" t t nil 1)))
-      (write-region nil nil (plist-get svg-fragment :path) nil 0))))
+  (let ((write-region-inhibit-fsync t))
+    (with-temp-buffer
+      (insert-file-contents (plist-get svg-fragment :path))
+      (goto-char (point-min))
+      (when (re-search-forward "<g fill='\\(#[0-9a-f]\\{6\\}\\)'" nil t)
+        (let* ((same-color (format "\\(?:fill\\|stroke\\)='\\(%s\\)'" (match-string 1))))
+          (replace-match "currentColor" t t nil 1)
+          (while (re-search-forward same-color nil t)
+            (replace-match "currentColor" t t nil 1)))
+        (write-region nil nil (plist-get svg-fragment :path) nil 0)))))
 
 (defun org-latex-preview--place-images (extended-info &optional fragments)
   "Place images for each of FRAGMENTS, according to their data and EXTENDED-INFO.