Mercurial > emacs
changeset 96781:f6dee8e9b0f2
(eshell-quote-backslash): Restrict previous change to XEmacs, since it
does nothing for Emacs.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Fri, 18 Jul 2008 06:55:53 +0000 |
| parents | 326ca810843d |
| children | bc2e85d30c83 |
| files | lisp/eshell/esh-arg.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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))))