[nongnu] elpa/sass-mode 7f0df85 26/31: Nicer buffer handling for sass-output-region

[ELPA Syncer]

branch: elpa/sass-mode
commit 7f0df85fd1b90e40e019a0f2e4ea6661169ceb65
Author: Steve Purcell <steve@sanityinc.com>
Commit: Steve Purcell <steve@sanityinc.com>

    Nicer buffer handling for sass-output-region
    
    - Ensure error buffer is shown when relevant
    - Put that buffer into view-mode
    - Only show output buffer when the output command succeeded
---
 sass-mode.el | 31 +++++++++++++++++++------------
 1 file changed, 19 insertions(+), 12 deletions(-)

diff --git a/sass-mode.el b/sass-mode.el
index 49cf88f..e271907 100644
--- a/sass-mode.el
+++ b/sass-mode.el
@@ -232,18 +232,25 @@ Called from a program, START and END specify the region 
to indent."
   (let ((output-buffer "*sass-output*")
         (errors-buffer "*sass-errors*")
         (region-contents (buffer-substring start end)))
-    (with-temp-buffer
-      (insert region-contents)
-      (newline-and-indent)
-      (sass--remove-leading-indent)
-      (shell-command-on-region (point-min) (point-max) "sass --stdin"
-                               output-buffer
-                               nil
-                               errors-buffer))
-    (when (fboundp 'css-mode)
-      (with-current-buffer output-buffer
-        (css-mode)))
-    (switch-to-buffer-other-window output-buffer)))
+    (let ((exit-code
+           (with-temp-buffer
+             (insert region-contents)
+             (newline-and-indent)
+             (sass--remove-leading-indent)
+             (shell-command-on-region (point-min) (point-max) "sass --stdin"
+                                      output-buffer
+                                      nil
+                                      errors-buffer
+                                      t))))
+
+      (if (zerop exit-code)
+          (progn
+            (when (fboundp 'css-mode)
+              (with-current-buffer output-buffer
+                (css-mode)))
+            (switch-to-buffer-other-window output-buffer))
+        (with-current-buffer errors-buffer
+          (view-mode))))))
 
 (defun sass-output-buffer ()
   "Displays the CSS output for entire buffer."