Add file-local-name

* doc/lispref/files.texi (Magic File Names): Add `file-local-name'.
(Unique File Names): Use it.

* etc/NEWS: Mention `file-local-name'.

* lisp/files.el (file-local-name): New defun.
(file-expand-wildcards):
* lisp/eshell/em-tramp.el (eshell/su, eshell/sudo):
* lisp/eshell/esh-ext.el (eshell-remote-command):
* lisp/eshell/esh-proc.el (eshell-gather-process-output):
* lisp/org/ob-core.el (org-babel-local-file-name):
* lisp/progmodes/gud.el (gud-common-init, gud-format-command):
* lisp/progmodes/python.el (python-shell-send-file):
* lisp/shell.el (shell):
* lisp/vc/ediff-diff.el (ediff-same-file-contents):
* lisp/vc/vc-git.el (vc-git-checkin): Use it.

1 files changed, 3 insertions, 4 deletions

diff --git a/lisp/shell.el b/lisp/shell.el
index 34bd77282ab..d1b2e875746 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -714,12 +714,11 @@ Otherwise, one argument `-i' is passed to the shell.
            (null (getenv "ESHELL")))
       (with-current-buffer buffer
         (set (make-local-variable 'explicit-shell-file-name)
-             (file-remote-p
-              (expand-file-name
+             (expand-file-name
+              (file-local-name
                (read-file-name
                 "Remote shell path: " default-directory shell-file-name
-                t shell-file-name))
-              'localname))))
+                t shell-file-name))))))
 
   ;; The buffer's window must be correctly set when we call comint (so
   ;; that comint sets the COLUMNS env var properly).