[Emacs-diffs] Changes to emacs/lisp/eshell/esh-arg.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/07/18 06:55:53

Index: esh-arg.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/eshell/esh-arg.el,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -b -r1.20 -r1.21
--- esh-arg.el  17 Jul 2008 08:44:20 -0000      1.20
+++ esh-arg.el  18 Jul 2008 06:55:53 -0000      1.21
@@ -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 <address@hidden>
 
@@ -283,7 +283,9 @@
 If the character is itself a backslash, it needs no escaping."
   (let ((char (aref string index)))
     (if (and (eq char ?\\) 
-            (not (and (featurep 'mswindows)
+            ;; 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))))