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 fdea3e33bb47c68d94188b2ce0b3018088f3bd20..4c82e74e4bc91e6011a87db7ab3764b66c3cdecf 100644 (file)
--- 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.