diff options
| author | Michael Albinus | 2016-04-06 10:26:07 +0200 |
|---|---|---|
| committer | Michael Albinus | 2016-04-06 10:26:07 +0200 |
| commit | bd2b14f20726e0f210a62edc610fac4c5bc45760 (patch) | |
| tree | c17f1ea60f2294c77b4a2fe5a0f349c1ec198c37 | |
| parent | 728b1c7f139270bf0cbe93e33769d06b9903f20f (diff) | |
| download | emacs-bd2b14f20726e0f210a62edc610fac4c5bc45760.tar.gz emacs-bd2b14f20726e0f210a62edc610fac4c5bc45760.zip | |
; Remove superfluous merge from emacs-25
| -rw-r--r-- | lisp/net/tramp.el | 20 |
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. |