instrument async export

Author: Danny McClanahan

markdown-mode.el

@@ -5994,9 +5994,6 @@ alive."
       (markdown-live-preview-create-display out-file src-buf)
     (markdown-live-preview-async-cleanup-export src-buf msg)))
 
-(defmacro markdown-silence-messages (&rest body)
-  `(cl-letf (((symbol-function #'message) (lambda (&rest _)))) ,@body))
-
 (defun markdown-live-preview-do-sentinel (src-buf out-file proc)
   (unless (or (process-live-p proc)
               (not (buffer-live-p src-buf)))
@@ -6007,44 +6004,53 @@ alive."
        src-buf out-file cur-msg))))
 
 (defun markdown-live-preview-make-async-sentinel (src-buf out-file)
-  (lambda (proc _)
-    (markdown-live-preview-do-sentinel src-buf out-file proc)))
+  (lambda (proc _) (markdown-live-preview-do-sentinel src-buf out-file proc)))
 
 (defconst markdown-live-preview-proc-name "*markdown-live-preview*")
 (defconst markdown-live-preview-buf-name "*markdown-live-preview-output*")
 
 (defun markdown-live-preview-async-export ()
   (interactive)
+  (message "start-export")
   (unless markdown-live-preview-currently-exporting-process
-    (markdown-silence-messages
-     (let* ((cur-buf (current-buffer))
-            (mode major-mode)
-            (out-file (markdown-live-preview-get-filename))
-            (sentinel (markdown-live-preview-make-async-sentinel
-                       cur-buf out-file))
-            (proc
-             (start-process-shell-command
-              markdown-live-preview-proc-name markdown-live-preview-buf-name
-              ;; using redirection means emacs doesn't have to process output,
-              ;; which interrupts the user less
-              (concat
-               markdown-command
-               (and markdown-command-needs-filename
-                    (if (buffer-file-name) (buffer-file-name)
-                      (user-error "Must be visiting a file")))
-               " > " (shell-quote-argument out-file)))))
-       (setq markdown-live-preview-currently-exporting-process proc)
-       (set-process-sentinel proc sentinel)
-       (with-temp-buffer
-         (let ((tmp-buf (current-buffer)))
-           (with-current-buffer cur-buf
-             (copy-to-buffer tmp-buf (point-min) (point-max))))
-         (funcall mode)
-         (run-hooks 'markdown-before-export-hook)
-         (process-send-region proc (point-min) (point-max))
-         (process-send-eof proc)
-         (run-hooks 'markdown-after-export-hook)
-         proc)))))
+    (let* ((cur-buf (current-buffer))
+           (mode major-mode)
+           (out-file (markdown-live-preview-get-filename))
+           (sentinel (markdown-live-preview-make-async-sentinel
+                      cur-buf out-file))
+           (proc
+            (start-process-shell-command
+             markdown-live-preview-proc-name markdown-live-preview-buf-name
+             ;; using redirection means emacs doesn't have to process output,
+             ;; which interrupts the user less
+             (concat
+              markdown-command " "
+              (and markdown-command-needs-filename
+                   (if (buffer-file-name)
+                       (shell-quote-argument (buffer-file-name))
+                     (user-error "Must be visiting a file")))
+              " > " (shell-quote-argument out-file)))))
+      (message "start-export2")
+      (setq markdown-live-preview-currently-exporting-process proc)
+      (set-process-sentinel proc sentinel)
+      (message "start-export3")
+      (with-temp-buffer
+        (message "start-export4")
+        (let ((tmp-buf (current-buffer)))
+          (with-current-buffer cur-buf
+            (copy-to-buffer tmp-buf (point-min) (point-max))))
+        (message "start-export5")
+        (funcall mode)
+        (message "start-export6")
+        (run-hooks 'markdown-before-export-hook)
+        (message "start-export7")
+        (process-send-region proc (point-min) (point-max))
+        (message "start-export8")
+        (process-send-eof proc)
+        (message "start-export9")
+        (run-hooks 'markdown-after-export-hook)
+        (message "start-export10")
+        proc))))
 
 (defvar markdown-live-preview-currently-exporting nil)
 

tests/markdown-test.el

@@ -3868,37 +3868,27 @@ Detail: https://github.com/jrblevin/markdown-mode/issues/79"
         (cl-loop for win in windows
                  unless (eq win (selected-window))
                  do (delete-window win))
-        (message "start")
         ;; note that advices are used in this test to supply `should' conditions
         (markdown-temp-eww
-         (message "start2")
          ;; test that first window created by
          ;; `markdown-live-preview-get-displaying-window' is the same window
          ;; that is used to finally render the buffer, on the first try
          (markdown-eww-open-file-advice
-          (message "start3")
           (markdown-initial-window-create-advice
-           (message "start4")
            (if markdown-live-preview-do-sync
                (markdown-live-preview-sync-export)
              (markdown-live-preview-async-export)
-             (message "start5")
              (markdown-test/live-preview-wait))
-           (message "start6")
            (should (eq t markdown-test-hit-advice))
-           (message "start7")
            (setq markdown-test-hit-advice nil))
           (setq markdown-test-eww-window
                 (get-buffer-window (get-buffer "*eww*")))
           (should markdown-live-preview-view-buffer)
           (with-selected-window (get-buffer-window md-buf)
-            (message "start8")
             (if markdown-live-preview-do-sync
                 (markdown-live-preview-sync-export)
               (markdown-live-preview-async-export)
-              (message "start9")
               (markdown-test/live-preview-wait))
-            (message "start10")
             ;; at this point, `eww-render' should have finished, and eww should
             ;; have redisplayed. the advice checks that, since there was a
             ;; single window displaying the *eww* buffer, that window was used