[Emacs-diffs] Changes to emacs/lisp/dos-fns.el

[Miles Bader]

Index: emacs/lisp/dos-fns.el
diff -c emacs/lisp/dos-fns.el:1.38 emacs/lisp/dos-fns.el:1.39
*** emacs/lisp/dos-fns.el:1.38  Wed Mar  6 13:20:43 2002
--- emacs/lisp/dos-fns.el       Tue Feb  4 06:07:26 2003
***************
*** 42,48 ****
      (let ((flen (length filename)))
        ;; If FILENAME has a trailing slash, remove it and recurse.
        (if (memq (aref filename (1- flen)) '(?/ ?\\))
!         (concat (convert-standard-filename 
                   (substring filename 0 (1- flen)))
                  "/")
        (let* (;; ange-ftp gets in the way for names like "/foo:bar".
--- 42,48 ----
      (let ((flen (length filename)))
        ;; If FILENAME has a trailing slash, remove it and recurse.
        (if (memq (aref filename (1- flen)) '(?/ ?\\))
!         (concat (convert-standard-filename
                   (substring filename 0 (1- flen)))
                  "/")
        (let* (;; ange-ftp gets in the way for names like "/foo:bar".