aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/net/tramp.el20
1 files changed, 0 insertions, 20 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index e101c42a494..4edca5a5998 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3764,26 +3764,6 @@ This is used internally by `tramp-file-mode-from-int'."
3764 (when vec (tramp-message vec 7 "locale %s" (or locale "C"))) 3764 (when vec (tramp-message vec 7 "locale %s" (or locale "C")))
3765 (or locale "C")))) 3765 (or locale "C"))))
3766 3766
3767(defun tramp-get-local-locale (&optional vec)
3768 ;; We use key nil for local connection properties.
3769 (with-tramp-connection-property nil "locale"
3770 (let ((candidates '("en_US.utf8" "C.utf8" "en_US.UTF-8"))
3771 locale)
3772 (with-temp-buffer
3773 (unless (or (memq system-type '(windows-nt))
3774 (not (zerop (tramp-call-process
3775 nil "locale" nil t nil "-a"))))
3776 (while candidates
3777 (goto-char (point-min))
3778 (if (string-match (format "^%s\r?$" (regexp-quote (car candidates)))
3779 (buffer-string))
3780 (setq locale (car candidates)
3781 candidates nil)
3782 (setq candidates (cdr candidates))))))
3783 ;; Return value.
3784 (when vec (tramp-message vec 7 "locale %s" (or locale "C")))
3785 (or locale "C"))))
3786
3787;;;###tramp-autoload 3767;;;###tramp-autoload
3788(defun tramp-check-cached-permissions (vec access) 3768(defun tramp-check-cached-permissions (vec access)
3789 "Check `file-attributes' caches for VEC. 3769 "Check `file-attributes' caches for VEC.