aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2016-04-06 10:26:07 +0200
committerMichael Albinus2016-04-06 10:26:07 +0200
commitbd2b14f20726e0f210a62edc610fac4c5bc45760 (patch)
treec17f1ea60f2294c77b4a2fe5a0f349c1ec198c37
parent728b1c7f139270bf0cbe93e33769d06b9903f20f (diff)
downloademacs-bd2b14f20726e0f210a62edc610fac4c5bc45760.tar.gz
emacs-bd2b14f20726e0f210a62edc610fac4c5bc45760.zip
; Remove superfluous merge from emacs-25
-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.