2445 |
(= 0 (length locale))) ; nil or empty string |
(= 0 (length locale))) ; nil or empty string |
2446 |
(setq locale (getenv (pop vars)))))) |
(setq locale (getenv (pop vars)))))) |
2447 |
|
|
2448 |
(unless (or locale (not (fboundp 'mac-get-preference))) |
(unless locale |
2449 |
(setq locale (mac-get-preference "AppleLocale")) |
;; The two tests are kept separate so the byte-compiler sees |
2450 |
(unless locale |
;; that mac-get-preference is only called after checking its existence. |
2451 |
(let ((languages (mac-get-preference "AppleLanguages"))) |
(when (fboundp 'mac-get-preference) |
2452 |
(unless (= (length languages) 0) ; nil or empty vector |
(setq locale (mac-get-preference "AppleLocale")) |
2453 |
(setq locale (aref languages 0)))))) |
(unless locale |
2454 |
|
(let ((languages (mac-get-preference "AppleLanguages"))) |
2455 |
|
(unless (= (length languages) 0) ; nil or empty vector |
2456 |
|
(setq locale (aref languages 0))))))) |
2457 |
(unless (or locale (not (boundp 'mac-system-locale))) |
(unless (or locale (not (boundp 'mac-system-locale))) |
2458 |
(setq locale mac-system-locale)) |
(setq locale mac-system-locale)) |
2459 |
|
|