Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

* net/tramp-sh.el (tramp-sh-handle-file-truename): Preserve trailing "/".

Browse source 
Fixes: debbugs:16851
This commit is contained in:
Michael Albinus 2014-02-23 15:51:29 +01:00
parent 0b5d5a442a
commit 85c01f803f
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2014-02-23 Michael Albinus <michael.albinus@gmx.de>
* net/tramp-sh.el (tramp-sh-handle-file-truename):
Preserve trailing "/". (Bug#16851)
2014-02-23 Dmitry Gutov <dgutov@yandex.ru>
* progmodes/ruby-mode.el (ruby-smie-rules): Don't indent specially
@ -130,7 +135,7 @@
(tramp-handle-insert-directory): New defun, taken from tramp-gvfs.el.
* net/tramp-gvfs.el (tramp-gvfs-file-name-handler-alist)
<insert-directory>: Use `tramp-handle-insert-directory.
<insert-directory>: Use `tramp-handle-insert-directory'.
(tramp-gvfs-handle-insert-directory): Remove function.
* net/tramp-sh.el (tramp-sh-handle-insert-directory):

3
lisp/net/tramp-sh.el
View file

@ -1042,7 +1042,8 @@ target of the symlink differ."
(setq result (concat result "/"))))))
(tramp-message v 4 "True name of `%s' is `%s'" localname result)
result)))))
(if (string-equal (file-name-nondirectory localname) "")
(file-name-as-directory result) result))))))
;; Basic functions.