diff --git a/markdown-preview-mode.el b/markdown-preview-mode.el index 8c3656b..66638cd 100644 --- a/markdown-preview-mode.el +++ b/markdown-preview-mode.el @@ -137,15 +137,15 @@ rendered copy to PREVIEW-FILE, ready to be open in browser." (with-temp-file preview-file (insert-file-contents (expand-file-name "preview.html" markdown-preview--home-dir)) - (if (search-forward "${MD_STYLE}" nil t) + (when (search-forward "${MD_STYLE}" nil t) (replace-match (markdown-preview--css-links) t)) - (if (search-forward "${MD_JS}" nil t) + (when (search-forward "${MD_JS}" nil t) (replace-match (markdown-preview--scripts) t)) - (if (search-forward "${WS_HOST}" nil t) + (when (search-forward "${WS_HOST}" nil t) (replace-match markdown-preview-host t)) - (if (search-forward "${WS_PORT}" nil t) + (when (search-forward "${WS_PORT}" nil t) (replace-match (format "%s" markdown-preview-ws-port) t)) - (if (search-forward "${MD_UUID}" nil t) + (when (search-forward "${MD_UUID}" nil t) (replace-match (format "%s" preview-uuid) t)) (buffer-string))) @@ -233,7 +233,9 @@ rendered copy to PREVIEW-FILE, ready to be open in browser." :host markdown-preview-host :on-message (lambda (websocket frame) (let ((ws-frame-text (websocket-frame-payload frame))) - (if (string-prefix-p "MDPM-Register-UUID: " ws-frame-text) + (if (and + (stringp ws-frame-text) + (string-prefix-p "MDPM-Register-UUID: " ws-frame-text)) (let ((ws-uuid (substring ws-frame-text 20))) (puthash ws-uuid websocket markdown-preview--remote-clients) (markdown-preview--send-preview-to websocket ws-uuid))