Mercurial > emacs
changeset 98389:05e41fd49efc
* files.el (file-remote-p): Precise doc string; IDENTIFICATION can
also be `localname'.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Mon, 29 Sep 2008 05:39:39 +0000 |
| parents | a0d0310a78a7 |
| children | e2da96799e45 |
| files | lisp/files.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Sun Sep 28 17:57:00 2008 +0000 +++ b/lisp/files.el Mon Sep 29 05:39:39 2008 +0000 @@ -771,8 +771,9 @@ IDENTIFICATION specifies which part of the identification shall be returned as string. IDENTIFICATION can be the symbol -`method', `user' or `host'; any other value is handled like nil -and means to return the complete identification string. +`method', `user', `host' or `localname'; any other value is +handled like nil and means to return the complete identification +string. If CONNECTED is non-nil, the function returns an identification only if FILE is located on a remote system, and a connection is established @@ -1416,7 +1417,7 @@ ;; Avoid treating /home/foo as /home/Foo during `~' substitution. ;; To fix this right, we need a `file-name-case-sensitive-p' ;; function, but we don't have that yet, so just guess. - (let ((case-fold-search + (let ((case-fold-search (memq system-type '(ms-dos windows-nt darwin cygwin)))) ;; If any elt of directory-abbrev-alist matches this name, ;; abbreviate accordingly.