@@ -6011,7 +6011,6 @@ alive."
6011
6011
6012
6012
(defun markdown-live-preview-async-export ()
6013
6013
(interactive)
6014
- (message "start-export")
6015
6014
(unless markdown-live-preview-currently-exporting-process
6016
6015
(let* ((cur-buf (current-buffer))
6017
6016
(mode major-mode)
@@ -6030,26 +6029,17 @@ alive."
6030
6029
(shell-quote-argument (buffer-file-name))
6031
6030
(user-error "Must be visiting a file")))
6032
6031
" > " (shell-quote-argument out-file)))))
6033
- (message "start-export2")
6034
6032
(setq markdown-live-preview-currently-exporting-process proc)
6035
6033
(set-process-sentinel proc sentinel)
6036
- (message "start-export3")
6037
6034
(with-temp-buffer
6038
- (message "start-export4")
6039
6035
(let ((tmp-buf (current-buffer)))
6040
6036
(with-current-buffer cur-buf
6041
6037
(copy-to-buffer tmp-buf (point-min) (point-max))))
6042
- (message "start-export5")
6043
6038
(funcall mode)
6044
- (message "start-export6")
6045
6039
(run-hooks 'markdown-before-export-hook)
6046
- (message "start-export7")
6047
6040
(process-send-region proc (point-min) (point-max))
6048
- (message "start-export8")
6049
6041
(process-send-eof proc)
6050
- (message "start-export9")
6051
6042
(run-hooks 'markdown-after-export-hook)
6052
- (message "start-export10")
6053
6043
proc))))
6054
6044
6055
6045
(defvar markdown-live-preview-currently-exporting nil)
0 commit comments