Mercurial > hg > xemacs-beta

comparison lisp/code-init.el @ 5940:c608d4b0b75e cygwin64 tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
rescue lost branch from 64bit.backup
author Henry Thompson <ht@markup.co.uk>
date Thu, 16 Dec 2021 18:48:58 +0000
parents 308d34e9f07d
children
comparison
equal deleted inserted replaced
5928:2f34b59f451a 5940:c608d4b0b75e
33 33
34 ;;; Code: 34 ;;; Code:
35 35
36 (defcustom eol-detection-enabled-p (or (featurep 'mule) 36 (defcustom eol-detection-enabled-p (or (featurep 'mule)
37 (memq system-type '(windows-nt 37 (memq system-type '(windows-nt
38 cygwin32)) 38 cygwin32 cygwin64))
39 (featurep 'unix-default-eol-detection)) 39 (featurep 'unix-default-eol-detection))
40 "True if XEmacs automatically detects the EOL type when reading files. 40 "True if XEmacs automatically detects the EOL type when reading files.
41 Normally, this is always the case on Windows or when international (Mule) 41 Normally, this is always the case on Windows or when international (Mule)
42 support is compiled into this XEmacs. Otherwise, it is currently off by 42 support is compiled into this XEmacs. Otherwise, it is currently off by
43 default, but this may change. Don't set this; nothing will happen. Instead, 43 default, but this may change. Don't set this; nothing will happen. Instead,
69 (if flag nil 'lf))))) 69 (if flag nil 'lf)))))
70 70
71 (defun coding-system-current-system-configuration () 71 (defun coding-system-current-system-configuration ()
72 "Function to decide which default coding system configuration applies." 72 "Function to decide which default coding system configuration applies."
73 (cond ((featurep 'cygwin-use-utf-8) 'cygwin-utf-8) 73 (cond ((featurep 'cygwin-use-utf-8) 'cygwin-utf-8)
74 ((memq system-type '(windows-nt cygwin32)) 74 ((memq system-type '(windows-nt cygwin32 cygwin64))
75 (if (featurep 'mule) 'windows-mule 'windows-no-mule)) 75 (if (featurep 'mule) 'windows-mule 'windows-no-mule))
76 ((featurep 'mule) 'mule) 76 ((featurep 'mule) 'mule)
77 (eol-detection-enabled-p 'no-mule-eol-detection) 77 (eol-detection-enabled-p 'no-mule-eol-detection)
78 (t 'no-mule-no-eol-detection))) 78 (t 'no-mule-no-eol-detection)))
79 79