aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/eshell/esh-arg.el8
1 files changed, 1 insertions, 7 deletions
diff --git a/lisp/eshell/esh-arg.el b/lisp/eshell/esh-arg.el
index 46850958267..021b6222397 100644
--- a/lisp/eshell/esh-arg.el
+++ b/lisp/eshell/esh-arg.el
@@ -302,13 +302,7 @@ Point is left at the end of the arguments."
302 "Intelligently backslash the character occurring in STRING at INDEX. 302 "Intelligently backslash the character occurring in STRING at INDEX.
303If the character is itself a backslash, it needs no escaping." 303If the character is itself a backslash, it needs no escaping."
304 (let ((char (aref string index))) 304 (let ((char (aref string index)))
305 (if (and (eq char ?\\) 305 (if (eq char ?\\)
306 ;; In Emacs directory-sep-char is always ?/, so this does nothing.
307 (not (and (featurep 'xemacs)
308 (featurep 'mswindows)
309 (eq directory-sep-char ?\\)
310 (eq (1- (string-width string))
311 index))))
312 (char-to-string char) 306 (char-to-string char)
313 (if (memq char eshell-special-chars-outside-quoting) 307 (if (memq char eshell-special-chars-outside-quoting)
314 (string ?\\ char))))) 308 (string ?\\ char)))))