Mercurial > hg > xemacs-beta
comparison lisp/mule/mule-cmds.el @ 5940:c608d4b0b75e cygwin64 tip
rescue lost branch from 64bit.backup
| author | Henry Thompson <ht@markup.co.uk> |
|---|---|
| date | Thu, 16 Dec 2021 18:48:58 +0000 |
| parents | d489e88450aa |
| children |
comparison
equal
deleted
inserted
replaced
| 5928:2f34b59f451a | 5940:c608d4b0b75e |
|---|---|
| 1303 | 1303 |
| 1304 ;; Cygwin is as usual an unholy mixture -- C library locales | 1304 ;; Cygwin is as usual an unholy mixture -- C library locales |
| 1305 ;; that follow Unix conventions, but also MS Windows locales. | 1305 ;; that follow Unix conventions, but also MS Windows locales. |
| 1306 ;; So set the MS Windows locale, and then try to find a Unix | 1306 ;; So set the MS Windows locale, and then try to find a Unix |
| 1307 ;; locale. | 1307 ;; locale. |
| 1308 (when (eq system-type 'cygwin32) | 1308 (when (memq system-type '(cygwin32 cygwin64)) |
| 1309 (mswindows-get-and-set-locale-from-langenv langenv)) | 1309 (mswindows-get-and-set-locale-from-langenv langenv)) |
| 1310 (let ((locs (get-language-info langenv 'locale))) | 1310 (let ((locs (get-language-info langenv 'locale))) |
| 1311 (dolist (loc (if (listp locs) locs (list locs))) | 1311 (dolist (loc (if (listp locs) locs (list locs))) |
| 1312 (let ((retval | 1312 (let ((retval |
| 1313 (cond ((functionp loc) (funcall loc nil)) | 1313 (cond ((functionp loc) (funcall loc nil)) |
| 1378 ;; the environment is the best guess. If a particular user's | 1378 ;; the environment is the best guess. If a particular user's |
| 1379 ;; preferences differ from this, then that particular user needs | 1379 ;; preferences differ from this, then that particular user needs |
| 1380 ;; to edit ~/.xemacs/init.el. Aidan Kehoe, Sun Nov 26 18:11:31 CET | 1380 ;; to edit ~/.xemacs/init.el. Aidan Kehoe, Sun Nov 26 18:11:31 CET |
| 1381 ;; 2006. OS X uses an almost-normal-form version of UTF-8. | 1381 ;; 2006. OS X uses an almost-normal-form version of UTF-8. |
| 1382 | 1382 |
| 1383 (unless (memq system-type '(windows-nt cygwin32)) | 1383 (unless (memq system-type '(windows-nt cygwin32 cygwin64)) |
| 1384 (set-default-buffer-file-coding-system | 1384 (set-default-buffer-file-coding-system |
| 1385 (maybe-change-coding-system-with-eol default-coding eol-type)))) | 1385 (maybe-change-coding-system-with-eol default-coding eol-type)))) |
| 1386 ;; (setq default-sendmail-coding-system default-coding) | 1386 ;; (setq default-sendmail-coding-system default-coding) |
| 1387 | 1387 |
| 1388 ;; set the native coding system and the default process-output system. | 1388 ;; set the native coding system and the default process-output system. |
| 1450 ;; -- subprocess write coding system (cdr of default-process-coding-system) | 1450 ;; -- subprocess write coding system (cdr of default-process-coding-system) |
| 1451 ;; -- coding categories (for detection) | 1451 ;; -- coding categories (for detection) |
| 1452 | 1452 |
| 1453 (let (langenv) | 1453 (let (langenv) |
| 1454 ;; under ms windows (any): | 1454 ;; under ms windows (any): |
| 1455 (if (memq system-type '(windows-nt cygwin32)) | 1455 (if (memq system-type '(windows-nt cygwin32 cygwin64)) |
| 1456 (let ((userdef (declare-fboundp (mswindows-user-default-locale))) | 1456 (let ((userdef (declare-fboundp (mswindows-user-default-locale))) |
| 1457 (sysdef (declare-fboundp (mswindows-system-default-locale)))) | 1457 (sysdef (declare-fboundp (mswindows-system-default-locale)))) |
| 1458 ;; (1) current langenv comes from user-default locale. | 1458 ;; (1) current langenv comes from user-default locale. |
| 1459 (setq langenv (mswindows-get-language-environment-from-locale | 1459 (setq langenv (mswindows-get-language-environment-from-locale |
| 1460 userdef)) | 1460 userdef)) |