@@ -6011,7 +6011,6 @@ alive."
60116011
60126012(defun markdown-live-preview-async-export ()
60136013 (interactive)
6014- (message "start-export")
60156014 (unless markdown-live-preview-currently-exporting-process
60166015 (let* ((cur-buf (current-buffer))
60176016 (mode major-mode)
@@ -6030,26 +6029,17 @@ alive."
60306029 (shell-quote-argument (buffer-file-name))
60316030 (user-error "Must be visiting a file")))
60326031 " > " (shell-quote-argument out-file)))))
6033- (message "start-export2")
60346032 (setq markdown-live-preview-currently-exporting-process proc)
60356033 (set-process-sentinel proc sentinel)
6036- (message "start-export3")
60376034 (with-temp-buffer
6038- (message "start-export4")
60396035 (let ((tmp-buf (current-buffer)))
60406036 (with-current-buffer cur-buf
60416037 (copy-to-buffer tmp-buf (point-min) (point-max))))
6042- (message "start-export5")
60436038 (funcall mode)
6044- (message "start-export6")
60456039 (run-hooks 'markdown-before-export-hook)
6046- (message "start-export7")
60476040 (process-send-region proc (point-min) (point-max))
6048- (message "start-export8")
60496041 (process-send-eof proc)
6050- (message "start-export9")
60516042 (run-hooks 'markdown-after-export-hook)
6052- (message "start-export10")
60536043 proc))))
60546044
60556045(defvar markdown-live-preview-currently-exporting nil)
0 commit comments