[elpa] externals/preview-auto 17f845637d 16/36: Fix weird capitalization bug

[ELPA Syncer]

branch: externals/preview-auto
commit 17f845637dbcbce7e2d8c4af6a30e906265cf49c
Author: Paul Nelson <ultrono@gmail.com>
Commit: Paul Nelson <ultrono@gmail.com>

    Fix weird capitalization bug
    
    * preview-auto.el (preview-auto--after-change): Wrap with
    save-match-data.
---
 preview-auto.el | 35 ++++++++++++++++++-----------------
 1 file changed, 18 insertions(+), 17 deletions(-)

diff --git a/preview-auto.el b/preview-auto.el
index 27b8091103..dba3d572ee 100644
--- a/preview-auto.el
+++ b/preview-auto.el
@@ -456,23 +456,24 @@ BEG is the start of the modified region, END is the end 
of the region,
 and LENGTH is the length of the modification.  If the modification
 occurs before some region where a preview is being generated, then
 cancel the preview, so that the preview is not misplaced."
-  (preview-auto--debug-log "After change:")
-  (preview-auto--debug-log "  %d, %d, %d" beg end length)
-  (when preview-current-region
-    (preview-auto--debug-log "  (%d, %d)"
-                             (car preview-current-region)
-                             (cdr preview-current-region))
-    (when-let ((proc (get-buffer-process (TeX-process-buffer-name 
(TeX-region-file)))))
-      (preview-auto--debug-log "  region: %s" proc))
-    (when-let ((proc (get-buffer-process (TeX-process-buffer-name 
(TeX-master-file)))))
-      (preview-auto--debug-log "  master: %s" proc)))
-  (if (and preview-current-region
-           (< beg (cdr preview-current-region)))
-      (progn
-        (preview-auto--debug-log "Cancelling preview")
-        (ignore-errors (TeX-kill-job))
-        (setq preview-abort-flag t))
-    (preview-auto--debug-log "Not cancelling preview")))
+  (save-match-data
+    (preview-auto--debug-log "After change:")
+    (preview-auto--debug-log "  %d, %d, %d" beg end length)
+    (when preview-current-region
+      (preview-auto--debug-log "  (%d, %d)"
+                               (car preview-current-region)
+                               (cdr preview-current-region))
+      (when-let ((proc (get-buffer-process (TeX-process-buffer-name 
(TeX-region-file)))))
+        (preview-auto--debug-log "  region: %s" proc))
+      (when-let ((proc (get-buffer-process (TeX-process-buffer-name 
(TeX-master-file)))))
+        (preview-auto--debug-log "  master: %s" proc)))
+    (if (and preview-current-region
+             (< beg (cdr preview-current-region)))
+        (progn
+          (preview-auto--debug-log "Cancelling preview")
+          (ignore-errors (TeX-kill-job))
+          (setq preview-abort-flag t))
+      (preview-auto--debug-log "Not cancelling preview"))))
 
 (defun preview-auto--post-command ()
   "Function called after each command in `preview-auto-mode'."