master 849895d0db: Make comint-word actually check comint-file-name-quote-list

[Lars Ingebrigtsen]

branch: master
commit 849895d0db9c8879dedd6658f66b28b1613358ff
Author: Dima Kogan <dima@secretsauce.net>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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 fdea3e33bb..4c82e74e4b 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.