1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00

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).
This commit is contained in:
Dima Kogan 2022-02-10 08:01:24 +01:00 committed by Lars Ingebrigtsen
parent d3c47011d5
commit 849895d0db

View file

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