procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove XEmacs compat code from esh-arg.el

Browse source 
* lisp/eshell/esh-arg.el (eshell-quote-backslash): Remove XEmacs
compat code.
This commit is contained in:
Stefan Kangas 2019-10-18 23:26:46 +02:00
parent f3aa05b1aa
commit 2afab0d9ce
1 changed files with 1 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/eshell/esh-arg.el
View file

@ -302,13 +302,7 @@ 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 (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))))
(if (eq char ?\\)
(char-to-string char)
(if (memq char eshell-special-chars-outside-quoting)
(string ?\\ char)))))