@@ -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