From 10387fb76ff53597c8f3c109561010df2bf6f74a Mon Sep 17 00:00:00 2001 From: =?utf8?q?Rudolf=20Adamkovi=C4=8D?= Date: Fri, 28 Feb 2025 14:54:14 +0100 Subject: [PATCH] Make sure Comint minibuffer password prompts end with space * lisp/comint.el (comint-watch-for-password-prompt): Add a trailing space character to the minibuffer password prompt, if it does not contain one already, per the minibuffer UI conventions. Bug#76604 (cherry picked from commit 41c1c6ffac3bc3db9818ed8e0cc857c72b06d806) --- lisp/comint.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/comint.el b/lisp/comint.el index 4d60849c248..0b434462ffc 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -2593,8 +2593,14 @@ This function could be in the list `comint-output-filter-functions'." prompt) (when (let ((case-fold-search t)) (string-match comint-password-prompt-regexp string)) - (setq prompt (string-trim (match-string 0 string) - "[ \n\r\t\v\f\b\a]+" "\n+")) + (setq prompt + (let ((content (string-trim (match-string 0 string) + "[ \n\r\t\v\f\b\a]+" "\n+")) + (suffix " ")) + (concat content + (and (not (string-empty-p content)) + (not (string-suffix-p suffix content)) + suffix)))) ;; Use `run-at-time' in order not to pause execution of the ;; process filter with a minibuffer (run-at-time -- 2.39.5