diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2003-02-04 11:26:42 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2003-02-04 11:26:42 +0000 |
| commit | 71296446d3cec5bb2a27bc5ad6da574df38d0ec8 (patch) | |
| tree | 0204c3c252547a44e2404959409034406f7680cd /lisp/dos-fns.el | |
| parent | 693ff6134cb2ec65c7d188696f012662edadfbf0 (diff) | |
| download | emacs-71296446d3cec5bb2a27bc5ad6da574df38d0ec8.tar.gz | |
Trailing whitespace deleted.
Diffstat (limited to 'lisp/dos-fns.el')
| -rw-r--r-- | lisp/dos-fns.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/dos-fns.el b/lisp/dos-fns.el index 1a979a80d73..ba2aff981e7 100644 --- a/lisp/dos-fns.el +++ b/lisp/dos-fns.el @@ -42,7 +42,7 @@ with a definition that really does change some file names." (let ((flen (length filename))) ;; If FILENAME has a trailing slash, remove it and recurse. (if (memq (aref filename (1- flen)) '(?/ ?\\)) - (concat (convert-standard-filename + (concat (convert-standard-filename (substring filename 0 (1- flen))) "/") (let* (;; ange-ftp gets in the way for names like "/foo:bar". |