/[emacs]/emacs/lisp/international/mule-cmds.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-cmds.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.280 by lektu, Mon Aug 29 14:08:30 2005 UTC revision 1.281 by monnier, Thu Sep 1 14:30:30 2005 UTC
# Line 2445  See also `locale-charset-language-names' Line 2445  See also `locale-charset-language-names'
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    

Legend:
Removed from v.1.280  
changed lines
  Added in v.1.281

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26