From 9f2f6ad816ec17abe8aa47cc7c31e665f1931d6a Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Mon, 29 Sep 2008 05:39:39 +0000 Subject: [PATCH] * files.el (file-remote-p): Precise doc string; IDENTIFICATION can also be `localname'. --- lisp/files.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index 03a3a03cbb2..0abe462316e 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -771,8 +771,9 @@ Furthermore, relative file names do not work across remote connections. 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 @@ home directory is a root directory) and removes automounter prefixes ;; 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. -- 2.39.5