1907 |
(when (>= numchase numchase-limit) |
(when (>= numchase numchase-limit) |
1908 |
(error "Maximum number (%d) of symlinks exceeded" numchase-limit)) |
(error "Maximum number (%d) of symlinks exceeded" numchase-limit)) |
1909 |
(setq result (reverse result)) |
(setq result (reverse result)) |
1910 |
|
;; Combine list to form string. |
1911 |
|
(setq result |
1912 |
|
(if result |
1913 |
|
(mapconcat 'identity (cons "" result) "/") |
1914 |
|
"/")) |
1915 |
|
(when is-dir (setq result (concat result "/"))) |
1916 |
(tramp-message-for-buffer |
(tramp-message-for-buffer |
1917 |
multi-method method user host |
multi-method method user host |
1918 |
10 "True name of `%s' is `%s'" |
10 "True name of `%s' is `%s'" filename result) |
|
filename (mapconcat 'identity (cons "" result) "/")) |
|
1919 |
(tramp-make-tramp-file-name |
(tramp-make-tramp-file-name |
1920 |
multi-method method user host |
multi-method method user host result)))) |
|
(concat (mapconcat 'identity (cons "" result) "/") |
|
|
(if is-dir "/" "")))))) |
|
1921 |
|
|
1922 |
;; Basic functions. |
;; Basic functions. |
1923 |
|
|