[nongnu] elpa/inf-ruby 6191ca21d3 2/2: Fix the error related to unset compilation--start-time

[ELPA Syncer]

branch: elpa/inf-ruby
commit 6191ca21d32cd1defaa98c3176028b980216a32f
Author: Dmitry Gutov <dmitry@gutov.dev>
Commit: Dmitry Gutov <dmitry@gutov.dev>

    Fix the error related to unset compilation--start-time
    
    ...after switching from compilation mode and then back to it.
    
    The variable was added fairly recently in Emacs 30
    (https://debbugs.gnu.org/65251).
---
 inf-ruby.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/inf-ruby.el b/inf-ruby.el
index a05e175aba..f21aba12ad 100755
--- a/inf-ruby.el
+++ b/inf-ruby.el
@@ -992,11 +992,13 @@ interactive mode, i.e. hits a debugger breakpoint."
   (let ((mode major-mode)
         (arguments compilation-arguments)
         (orig-mode-line-process mode-line-process)
-        (orig-error-alist compilation-error-regexp-alist))
+        (orig-error-alist compilation-error-regexp-alist)
+        (cst compilation--start-time))
     (inf-ruby-mode)
     (setq-local inf-ruby-orig-compilation-mode mode)
     (setq-local compilation-arguments arguments)
     (setq-local inf-ruby-orig-error-regexp-alist orig-error-alist)
+    (setq-local compilation--start-time cst)
     (when orig-mode-line-process
       (setq mode-line-process orig-mode-line-process)))
   (let ((proc (get-buffer-process (current-buffer))))
@@ -1018,11 +1020,13 @@ Otherwise, just toggle read-only status."
             (proc (get-buffer-process (current-buffer)))
             (arguments compilation-arguments)
             (filter inf-ruby-orig-process-filter)
-            (errors inf-ruby-orig-error-regexp-alist))
+            (errors inf-ruby-orig-error-regexp-alist)
+            (cst compilation--start-time))
         (funcall inf-ruby-orig-compilation-mode)
         (setq mode-line-process orig-mode-line-process)
         (setq-local compilation-arguments arguments)
         (setq-local compilation-error-regexp-alist errors)
+        (setq-local compilation--start-time cst)
         (when proc
           (set-process-filter proc filter)))
     (read-only-mode)))