branch: elpa/scad-mode
commit efc5f1cf1485b28ce77c9d83506d98bdca932659
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
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"))
