[nongnu] elpa/scad-mode efc5f1cf14 46/47: Update status if original buffer is dead

[ELPA Syncer]

branch: elpa/scad-mode
commit efc5f1cf1485b28ce77c9d83506d98bdca932659
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Update status if original buffer is dead
---
 scad-mode.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/scad-mode.el b/scad-mode.el
index 8eb909336c..c3159af5d0 100644
--- a/scad-mode.el
+++ b/scad-mode.el
@@ -284,7 +284,7 @@ Key bindings:
   (interactive)
   (setq scad--preview-buffer (if (buffer-live-p scad--preview-buffer)
                                  scad--preview-buffer
-                               (generate-new-buffer (format "*scad preview: 
%s*" (buffer-name)))))
+                               (get-buffer-create (format "*scad preview: %s*" 
(buffer-name)))))
   (when scad-preview-refresh
     (add-hook 'after-change-functions #'scad--preview-change nil 'local))
   (display-buffer scad--preview-buffer)
@@ -317,7 +317,8 @@ Key bindings:
 ;; Based on https://github.com/zk-phi/scad-preview
 (defun scad--preview-render ()
   "Render image from current buffer."
-  (when (buffer-live-p scad--preview-buffer)
+  (if (not (buffer-live-p scad--preview-buffer))
+      (scad--preview-status "Dead")
     (scad--preview-kill)
     (scad--preview-status "Render")
     (let* ((infile (make-temp-file "scad-preview-" nil ".scad"))