[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/dos-fns.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/dos-fns.el |
Date: |
Tue, 04 Feb 2003 06:07:26 -0500 |
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".
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/dos-fns.el,
Juanma Barranquero <=