From 70357d07233119dc37ce23bfd96eea96bc9c0c5b Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Thu, 17 Jul 2008 08:44:20 +0000 Subject: [PATCH] 2008-07-17 Fan Kai * esh-arg.el (eshell-quote-backslash): Fix eshell path completion for Windows. --- lisp/ChangeLog | 5 +++++ lisp/eshell/esh-arg.el | 6 +++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 65b7e033a96..d3d126f7daf 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-07-17 Fan Kai + + * esh-arg.el (eshell-quote-backslash): Fix eshell path completion + for Windows. + 2008-07-17 Daiki Ueno * epa.el (epa-key-list-mode): Use run-mode-hooks. diff --git a/lisp/eshell/esh-arg.el b/lisp/eshell/esh-arg.el index 7e86772e797..d6dd5b23d0f 100644 --- a/lisp/eshell/esh-arg.el +++ b/lisp/eshell/esh-arg.el @@ -282,7 +282,11 @@ Point is left at the end of the arguments." "Intelligently backslash the character occurring in STRING at INDEX. If the character is itself a backslash, it needs no escaping." (let ((char (aref string index))) - (if (eq char ?\\) + (if (and (eq char ?\\) + (not (and (featurep 'mswindows) + (eq directory-sep-char ?\\) + (eq (1- (string-width string)) + index)))) (char-to-string char) (if (memq char eshell-special-chars-outside-quoting) (string ?\\ char))))) -- 2.39.2