Added compilation complete/error message.

sysrpl-mode.el

@@ -184,13 +184,17 @@ point."
 (defun sysrpl-compile-buffer ()
   "Compile the current buffer."
   (interactive)
-  (let ((tmp-filename (make-temp-file "sysrpl" nil ".s")))
+  (let ((tmp-filename (make-temp-file "sysrpl" nil ".s"))
+        (rtn-code 0))
     (write-region (point-min) (point-max) tmp-filename)
     (with-current-buffer (get-buffer-create sysrpl-compiler-output-bufname)
       (setq buffer-read-only nil)
       (erase-buffer)
-      (call-process sysrpl-compiler-program tmp-filename t nil "-" "-"))
-    (display-buffer sysrpl-compiler-output-bufname)))
+      (setq rtn-code (call-process sysrpl-compiler-program tmp-filename t nil "-" "-")))
+    (display-buffer sysrpl-compiler-output-bufname)
+    (if (eql rtn-code 0)
+        (message "Compilation complete")
+      (message "*** Compiled with ERRORS ***"))))
 
 (defvar sysrpl-mode-map
   (let ((map (make-sparse-keymap))