From: Dima Kogan <dima@secretsauce.net>
Date: Thu, 10 Feb 2022 07:01:24 +0000 (+0100)
Subject: Make comint-word actually check comint-file-name-quote-list
X-Git-Tag: emacs-29.0.90~2393
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=849895d0db9c8879dedd6658f66b28b1613358ff;p=emacs.git

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).
---

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.