# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1216364153 0
# Node ID f6dee8e9b0f2d6bd0fb3574d5407b345d9e9e63d
# Parent  326ca810843d2e7ebad16fbc493ba4c91b234309
(eshell-quote-backslash): Restrict previous change to XEmacs, since it
does nothing for Emacs.

diff -r 326ca810843d -r f6dee8e9b0f2 lisp/eshell/esh-arg.el
--- a/lisp/eshell/esh-arg.el	Fri Jul 18 01:11:05 2008 +0000
+++ b/lisp/eshell/esh-arg.el	Fri Jul 18 06:55:53 2008 +0000
@@ -1,7 +1,7 @@
 ;;; esh-arg.el --- argument processing
 
-;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;;   2008  Free Software Foundation, Inc.
 
 ;; Author: John Wiegley <johnw@gnu.org>
 
@@ -282,8 +282,10 @@
   "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 (and (eq char ?\\) 
-	     (not (and (featurep 'mswindows)
+    (if (and (eq char ?\\)
+	     ;; In Emacs directory-sep-char is always ?/, so this does nothing.
+	     (not (and (featurep 'xemacs)
+		       (featurep 'mswindows)
 		       (eq directory-sep-char ?\\)
 		       (eq (1- (string-width string))
 			   index))))