From 849895d0db9c8879dedd6658f66b28b1613358ff Mon Sep 17 00:00:00 2001 From: Dima Kogan Date: Thu, 10 Feb 2022 08:01:24 +0100 Subject: [PATCH] Make comint-word actually check comint-file-name-quote-list * lisp/comint.el (comint-word): We were checking for comint-file-name-quote-list existing, but not actually comparing to the characters in that list. This patch actually checks the contents of comint-file-name-quote-list (bug#53911). --- lisp/comint.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/comint.el b/lisp/comint.el index fdea3e33bb4..4c82e74e4bc 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -3191,8 +3191,8 @@ inside of a \"[...]\" (see `skip-chars-forward'), plus all non-ASCII characters. (while (not giveup) (let ((startpoint (point))) (skip-chars-backward (concat "\\\\" word-chars)) - (if (and comint-file-name-quote-list - (eq (char-before (1- (point))) ?\\)) + (if (and (eq (char-before (1- (point))) ?\\) + (memq (char-before) comint-file-name-quote-list)) (forward-char -2)) ;; FIXME: This isn't consistent with Bash, at least -- not ;; all non-ASCII chars should be word constituents. -- 2.39.5