/[emacs]/emacs/lisp/dos-fns.el
ViewVC logotype

Diff of /emacs/lisp/dos-fns.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.38 by eliz, Wed Mar 6 18:20:43 2002 UTC revision 1.38.2.1 by miles, Fri Apr 4 06:20:04 2003 UTC
# Line 42  with a definition that really does chang Line 42  with a definition that really does chang
42      (let ((flen (length filename)))      (let ((flen (length filename)))
43        ;; If FILENAME has a trailing slash, remove it and recurse.        ;; If FILENAME has a trailing slash, remove it and recurse.
44        (if (memq (aref filename (1- flen)) '(?/ ?\\))        (if (memq (aref filename (1- flen)) '(?/ ?\\))
45            (concat (convert-standard-filename            (concat (convert-standard-filename
46                     (substring filename 0 (1- flen)))                     (substring filename 0 (1- flen)))
47                    "/")                    "/")
48          (let* (;; ange-ftp gets in the way for names like "/foo:bar".          (let* (;; ange-ftp gets in the way for names like "/foo:bar".

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.38.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26