[elpa] externals/termint 89a09fe97a 23/54: fix: parse `C-u` when it is not a numeric prefix.

[ELPA Syncer]

branch: externals/termint
commit 89a09fe97a8b1c080439cf7b7f4a1f0abe4aac4f
Author: Milan Glacier <d...@milanglacier.com>
Commit: Milan Glacier <d...@milanglacier.com>

    fix: parse `C-u` when it is not a numeric prefix.
---
 termint.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/termint.el b/termint.el
index f517cedc33..aba44b73e2 100644
--- a/termint.el
+++ b/termint.el
@@ -62,6 +62,13 @@
 (declare-function term-char-mode "term")
 (declare-function term-send-raw-string "term")
 
+(defun termint--get-numeric-suffix (arg)
+  "Return the numeric suffix from ARG if interactive spec is \"P\"."
+  (cond
+   ((numberp arg) (abs arg))
+   ((numberp (car arg)) (floor (log (car arg) 4)))
+   (t nil)))
+
 (defun termint--start (repl-name repl-cmd arg)
   "Start a REPL.
 REPL-NAME is used to determine the buffer name, REPL-CMD is used to
@@ -81,6 +88,7 @@ name."
 (defun termint--start-term-backend (repl-buffer-name repl-shell arg)
   "Start REPL-SHELL in REPL-BUFFER-NAME with numeric ARG with term backend."
   (require 'term)
+  (setq arg (termint--get-numeric-suffix arg))
   (let ((term-buffer-name
          (if arg
              (format "%s<%d>" repl-buffer-name arg)
@@ -100,6 +108,7 @@ name."
 (defun termint--start-eat-backend (repl-buffer-name repl-shell arg)
   "Start REPL-SHELL in REPL-BUFFER-NAME with numeric ARG with eat backend."
   (require 'eat)
+  (setq arg (termint--get-numeric-suffix arg))
   (let ((eat-buffer-name repl-buffer-name)
         (eat-shell repl-shell))
     (eat nil arg)))
@@ -107,6 +116,7 @@ name."
 (defun termint--start-vterm-backend (repl-buffer-name repl-shell arg)
   "Start REPL-SHELL in REPL-BUFFER-NAME with numeric ARG with vterm backend."
   (require 'vterm)
+  (setq arg (termint--get-numeric-suffix arg))
   (let ((vterm-buffer-name repl-buffer-name)
         (vterm-shell repl-shell))
     (vterm arg)))
@@ -128,6 +138,7 @@ The target REPL buffer is specified by REPL-NAME and 
SESSION.
 Additional parameters—START-PATTERN, END-PATTERN, BRACKETED-PASTE-P,
 and STR-PROCESS-FUNC—are variables associated with REPL-NAME,
 initialized during each `termint-define' call."
+  (setq session (termint--get-numeric-suffix session))
   (let* ((repl-buffer-name
           (if session
               (format "*%s*<%d>" repl-name session)
@@ -185,6 +196,7 @@ initialized during each `termint-define' call."
 (defun termint--hide-window (repl-name arg)
   "Hide the REPL window.
 The target REPL buffer is specified by REPL-NAME and ARG."
+  (setq arg (termint--get-numeric-suffix arg))
   (when-let* ((buffer-name
                (if arg (format "*%s*<%d>" repl-name arg)
                  (format "*%s*" repl-name)))