|
771
|
1 ;;; code-init.el --- Handle coding system default values
|
|
|
2
|
|
1318
|
3 ;; Copyright (C) 2001, 2002, 2003 Ben Wing.
|
|
771
|
4
|
|
|
5 ;; This file is part of XEmacs.
|
|
|
6
|
|
|
7 ;; XEmacs is free software; you can redistribute it and/or modify it
|
|
|
8 ;; under the terms of the GNU General Public License as published by
|
|
|
9 ;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
10 ;; any later version.
|
|
|
11
|
|
|
12 ;; XEmacs is distributed in the hope that it will be useful, but
|
|
|
13 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
15 ;; General Public License for more details.
|
|
|
16
|
|
|
17 ;; You should have received a copy of the GNU General Public License
|
|
|
18 ;; along with XEmacs; see the file COPYING. If not, write to the
|
|
|
19 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
20 ;; Boston, MA 02111-1307, USA.
|
|
|
21
|
|
|
22 ;;; Commentary:
|
|
|
23
|
|
|
24 ;; Placed in a separate file so it can be loaded after the various
|
|
|
25 ;; coding systems have been created, because we'll be using them at
|
|
|
26 ;; load time.
|
|
|
27
|
|
|
28 ;;; Code:
|
|
|
29
|
|
|
30 (defcustom eol-detection-enabled-p (or (featurep 'mule)
|
|
|
31 (memq system-type '(windows-nt
|
|
|
32 cygwin32))
|
|
|
33 (featurep 'unix-default-eol-detection))
|
|
|
34 "True if XEmacs automatically detects the EOL type when reading files.
|
|
|
35 Normally, this is always the case on Windows or when international (Mule)
|
|
|
36 support is compiled into this XEmacs. Otherwise, it is currently off by
|
|
|
37 default, but this may change. Don't set this; nothing will happen. Instead,
|
|
|
38 use the Options menu or `set-eol-detection'."
|
|
|
39 :group 'encoding
|
|
|
40 :type 'boolean
|
|
|
41 ;; upon initialization, we don't want the whole business of
|
|
|
42 ;; set-eol-detection to be called. We will init everything appropriately
|
|
|
43 ;; later in the same file, when reset-language-environment is called.
|
|
|
44 :initialize #'(lambda (var val)
|
|
1698
|
45 (setq eol-detection-enabled-p (eval val)))
|
|
771
|
46 :set #'(lambda (var val)
|
|
|
47 (set-eol-detection val)
|
|
|
48 (setq eol-detection-enabled-p val)))
|
|
|
49
|
|
|
50 (defun set-eol-detection (flag)
|
|
|
51 "Enable (if FLAG is non-nil) or disable automatic EOL detection of files.
|
|
|
52 EOL detection is enabled by default on Windows or when international (Mule)
|
|
|
53 support is compiled into this XEmacs. Otherwise, it is currently off by
|
|
|
54 default, but this may change. NOTE: You *REALLY* should not turn off EOL
|
|
|
55 detection on Windows! Your files will have lots of annoying ^M's in them
|
|
|
56 if you do this."
|
|
|
57 (dolist (x '(buffer-file-coding-system-for-read
|
|
|
58 keyboard
|
|
2071
|
59 default-process-coding-system-read))
|
|
771
|
60 (set-coding-system-variable
|
|
|
61 x (coding-system-change-eol-conversion (get-coding-system-variable x)
|
|
2071
|
62 (if flag nil 'lf))))
|
|
|
63 (set-coding-category-system
|
|
|
64 'no-conversion
|
|
|
65 (coding-system-change-eol-conversion (coding-category-system 'no-conversion)
|
|
|
66 (if flag nil 'lf))))
|
|
771
|
67
|
|
|
68 (defun coding-system-current-system-configuration ()
|
|
|
69 (cond ((memq system-type '(windows-nt cygwin32))
|
|
|
70 (if (featurep 'mule) 'windows-mule 'windows-no-mule))
|
|
|
71 ((featurep 'mule) 'unix-mule)
|
|
|
72 (eol-detection-enabled-p 'unix-no-mule-eol-detection)
|
|
|
73 (t 'unix-no-mule-no-eol-detection)))
|
|
|
74
|
|
1318
|
75 ;; NOTE NOTE NOTE: These values may get overridden when the language
|
|
|
76 ;; environment is initialized (set-language-environment-coding-systems).
|
|
771
|
77 (defvar coding-system-variable-default-value-table
|
|
1318
|
78 '((buffer-file-coding-system-for-read
|
|
|
79 binary raw-text undecided raw-text undecided)
|
|
|
80 (default-buffer-file-coding-system
|
|
|
81 binary binary iso-2022-8 raw-text-dos mswindows-multibyte-dos)
|
|
|
82 (native
|
|
|
83 binary binary binary raw-text-dos mswindows-multibyte-system-default-dos)
|
|
|
84 (keyboard
|
|
1471
|
85 binary raw-text undecided-unix raw-text undecided-unix)
|
|
771
|
86 ;; the `terminal' coding system is used for output to stderr. such
|
|
|
87 ;; streams do automatic lf->crlf encoding in the C library, so we need
|
|
|
88 ;; to not do the same translations ourselves.
|
|
1318
|
89 (terminal
|
|
|
90 binary binary binary binary mswindows-multibyte-unix)
|
|
|
91 (default-process-coding-system-read
|
|
|
92 binary raw-text undecided raw-text undecided)
|
|
|
93 (default-process-coding-system-write
|
|
|
94 binary binary binary raw-text mswindows-multibyte-system-default)
|
|
|
95 (no-conversion-coding-system-mapping
|
|
|
96 binary raw-text raw-text raw-text mswindows-multibyte)
|
|
771
|
97 ))
|
|
|
98
|
|
|
99 (defvar coding-system-default-configuration-list
|
|
|
100 '(unix-no-mule-no-eol-detection
|
|
|
101 unix-no-mule-eol-detection
|
|
|
102 unix-mule
|
|
|
103 windows-no-mule
|
|
|
104 windows-mule))
|
|
|
105
|
|
|
106 (defvar coding-system-default-variable-list
|
|
|
107 '(buffer-file-coding-system-for-read
|
|
|
108 default-buffer-file-coding-system
|
|
|
109 native
|
|
|
110 keyboard
|
|
|
111 terminal
|
|
|
112 default-process-coding-system-read
|
|
|
113 default-process-coding-system-write))
|
|
|
114
|
|
|
115 (defun get-coding-system-variable (var)
|
|
|
116 "Return the value of a basic coding system variable.
|
|
|
117 This is intended as a uniform interface onto the coding system settings that
|
|
|
118 control how encoding detection and conversion works. See
|
|
|
119 `coding-system-variable-default-value' for a list of the possible values of
|
|
|
120 VAR."
|
|
|
121 (case var
|
|
|
122 (buffer-file-coding-system-for-read buffer-file-coding-system-for-read)
|
|
|
123 (default-buffer-file-coding-system
|
|
|
124 (default-value 'buffer-file-coding-system))
|
|
|
125 (native (coding-system-aliasee 'native))
|
|
|
126 (keyboard (coding-system-aliasee 'keyboard))
|
|
|
127 (terminal (coding-system-aliasee 'terminal))
|
|
|
128 (default-process-coding-system-read (car default-process-coding-system))
|
|
|
129 (default-process-coding-system-write (cdr default-process-coding-system))
|
|
|
130 (t (error 'invalid-constant "Invalid coding system variable" var))))
|
|
|
131
|
|
|
132 (defun set-coding-system-variable (var value)
|
|
|
133 "Set a basic coding system variable to VALUE.
|
|
|
134 This is intended as a uniform interface onto the coding system settings that
|
|
|
135 control how encoding detection and conversion works. See
|
|
|
136 `coding-system-variable-default-value' for a list of the possible values of
|
|
|
137 VAR."
|
|
|
138 (case var
|
|
|
139 (buffer-file-coding-system-for-read
|
|
|
140 (set-buffer-file-coding-system-for-read value))
|
|
|
141 (default-buffer-file-coding-system
|
|
|
142 (set-default-buffer-file-coding-system value))
|
|
|
143 (native (define-coding-system-alias 'native value))
|
|
|
144 (keyboard (set-keyboard-coding-system value))
|
|
|
145 (terminal (set-terminal-coding-system value))
|
|
|
146 (default-process-coding-system-read
|
|
|
147 (setq default-process-coding-system
|
|
|
148 (cons value (cdr default-process-coding-system))))
|
|
|
149 (default-process-coding-system-write
|
|
|
150 (setq default-process-coding-system
|
|
|
151 (cons (car default-process-coding-system) value)))
|
|
|
152 (t (error 'invalid-constant "Invalid coding system variable" var))))
|
|
|
153
|
|
|
154 (defun coding-system-variable-default-value (var &optional config)
|
|
|
155 "Return the appropriate default value for a coding system variable.
|
|
|
156
|
|
|
157 VAR specifies the variable, and CONFIG the configuration, defaulting
|
|
|
158 to the current system configuration (as returned by
|
|
|
159 `coding-system-current-system-configuration').
|
|
|
160
|
|
|
161 The table of default values looks like this: (see below for abbreviations)
|
|
|
162
|
|
|
163
|
|
1471
|
164 Unix Unix+EOL Unix+Mule MSW MSW+Mule
|
|
|
165 -----------------------------------------------------------------------------
|
|
|
166 bfcs-for-read binary raw-text undecided raw-text undecided
|
|
|
167 default bfcs binary binary iso-2022-8 raw-text-dos MSW-MB-dos
|
|
|
168 native binary binary binary raw-text-dos MSW-MB-SD-dos
|
|
|
169 keyboard binary raw-text undecided-unix raw-text undecided-unix
|
|
|
170 terminal binary binary binary binary MSW-MB-unix
|
|
|
171 process-read binary raw-text undecided raw-text undecided
|
|
|
172 process-write binary binary binary raw-text MSW-MB-SD
|
|
|
173 no-conv-cs binary raw-text raw-text raw-text MSW-MB
|
|
771
|
174
|
|
|
175
|
|
|
176 VAR can be one of: (abbreviations in parens)
|
|
|
177
|
|
|
178 `buffer-file-coding-system-for-read' (bfcs-for-read)
|
|
|
179
|
|
|
180 Lisp variable of the same name; the default coding system used when
|
|
|
181 reading in a file, in the absence of more specific settings. (See
|
|
|
182 `insert-file-contents' for a description of exactly how a file's
|
|
|
183 coding system is determined when it's read in.)
|
|
|
184
|
|
|
185 `default-buffer-file-coding-system' (default bfcs)
|
|
|
186
|
|
|
187 Default value of `buffer-file-coding-system', the buffer-local
|
|
|
188 variable specifying a file's coding system to be used when it is
|
|
|
189 written out. Set using `set-default-buffer-file-coding-system' (or
|
|
|
190 the primitive `setq-default'). When a file is read in,
|
|
|
191 `buffer-file-coding-system' for that file is set from the coding
|
|
|
192 system used to read the file in; the default value applies to newly
|
|
|
193 created files.
|
|
|
194
|
|
|
195 `native' (native)
|
|
|
196
|
|
|
197 The coding system named `native'. Changed using
|
|
|
198 `define-coding-system-alias'. Used internally when passing
|
|
1318
|
199 text to or from system API's, unless the particular
|
|
771
|
200 API specifies another coding system.
|
|
|
201
|
|
|
202 `keyboard' (keyboard)
|
|
|
203
|
|
|
204 #### fill in
|
|
|
205
|
|
|
206 `terminal' (terminal)
|
|
|
207
|
|
|
208 #### fill in
|
|
|
209
|
|
|
210 `default-process-coding-system-read' (process-read)
|
|
|
211
|
|
|
212 #### fill in
|
|
|
213
|
|
|
214 `default-process-coding-system-write' (process-write)
|
|
|
215
|
|
|
216 #### fill in
|
|
|
217
|
|
|
218 `no-conversion-coding-system-mapping' (no-conv-cs)
|
|
|
219
|
|
|
220 Coding system used when category `no-conversion' is detected.
|
|
|
221
|
|
|
222
|
|
|
223 CONFIG is one of: (abbreviations in parens)
|
|
|
224
|
|
|
225 `unix-no-mule-no-eol-detection' (Unix)
|
|
|
226
|
|
|
227 Unix, no Mule support, no automatic EOL detection. (Controlled by
|
|
|
228 `eol-detection-enabled-p', which is set by the command-line flag
|
|
|
229 -enable-eol-detection or the configure flag --with-default-eol-detection.)
|
|
|
230
|
|
|
231 `unix-no-mule-eol-detection' (Unix+EOL)
|
|
|
232
|
|
|
233 Unix, no Mule support, automatic EOL detection.
|
|
|
234
|
|
|
235 `unix-mule' (Unix+Mule)
|
|
|
236
|
|
|
237 Unix, Mule support.
|
|
|
238
|
|
|
239 `windows-no-mule' (MSW)
|
|
|
240
|
|
|
241 MS Windows or Cygwin, no Mule support.
|
|
|
242
|
|
|
243 `windows-mule'. (MSW+Mule)
|
|
|
244
|
|
|
245 MS Windows or Cygwin, Mule support.
|
|
|
246
|
|
|
247
|
|
|
248 The following coding system abbreviations are also used in the table:
|
|
|
249
|
|
|
250 MSW-MB = mswindows-multibyte
|
|
|
251 MSW-MB = mswindows-multibyte-system-default
|
|
|
252 "
|
|
|
253 (setq config (or config (coding-system-current-system-configuration)))
|
|
|
254 (let ((defs (cdr (assq var coding-system-variable-default-value-table))))
|
|
|
255 (or defs (error 'invalid-constant "Invalid coding system variable" var))
|
|
|
256 (let ((pos (position config coding-system-default-configuration-list)))
|
|
|
257 (or pos (error 'invalid-constant "Invalid coding system configuration"
|
|
|
258 config))
|
|
|
259 (nth pos defs))))
|
|
|
260
|
|
|
261 (defun reset-coding-system-defaults (&optional config)
|
|
|
262 "Reset all basic coding system variables are set to their default values.
|
|
|
263 See `coding-system-variable-default-value'."
|
|
|
264 (setq config (or config (coding-system-current-system-configuration)))
|
|
|
265 (mapcar #'(lambda (var)
|
|
|
266 (set-coding-system-variable
|
|
|
267 var (coding-system-variable-default-value var config)))
|
|
|
268 coding-system-default-variable-list))
|
|
|
269
|
|
|
270 (defun reset-coding-categories-to-default ()
|
|
|
271 "Reset all coding categories (used for automatic detection) to their defaults.
|
|
|
272
|
|
|
273 The order of priorities of coding categories and the coding system
|
|
|
274 bound to each category are as follows:
|
|
|
275
|
|
|
276 coding category coding system
|
|
|
277 --------------------------------------------------
|
|
|
278 utf-16-little-endian-bom utf-16-little-endian
|
|
|
279 utf-16-bom utf-16-bom
|
|
985
|
280 utf-8-bom utf-8-bom
|
|
771
|
281 iso-7 iso-2022-7bit
|
|
|
282 no-conversion raw-text
|
|
|
283 utf-8 utf-8
|
|
|
284 iso-8-1 iso-8859-1
|
|
|
285 iso-8-2 ctext (iso-8859-1 alias)
|
|
|
286 iso-8-designate ctext (iso-8859-1 alias)
|
|
|
287 iso-lock-shift iso-2022-lock
|
|
|
288 shift-jis shift-jis
|
|
|
289 big5 big5
|
|
|
290 utf-16-little-endian utf-16-little-endian
|
|
|
291 utf-16 utf-16
|
|
|
292 ucs-4 ucs-4
|
|
|
293 "
|
|
|
294 ;; #### What a mess! This needs to be overhauled.
|
|
|
295
|
|
|
296 ;; The old table (from FSF synch?) was not what we use (cf mule-coding.el),
|
|
|
297 ;; and as documented iso-8-designate is inconsistent with iso-2022-8bit-ss2.
|
|
|
298 ;; The order of priorities of coding categories and the coding system
|
|
|
299 ;; bound to each category are as follows:
|
|
|
300 ;;
|
|
|
301 ;; coding category coding system
|
|
|
302 ;; --------------------------------------------------
|
|
|
303 ;; iso-8-2 iso-8859-1
|
|
|
304 ;; iso-8-1 iso-8859-1
|
|
|
305 ;; iso-7 iso-2022-7bit
|
|
|
306 ;; iso-lock-shift iso-2022-lock
|
|
|
307 ;; iso-8-designate iso-2022-8bit-ss2
|
|
|
308 ;; no-conversion raw-text
|
|
|
309 ;; shift-jis shift_jis
|
|
|
310 ;; big5 big5
|
|
|
311 ;; ucs-4 ----
|
|
|
312 ;; utf-8 ----
|
|
|
313 (when (featurep 'mule)
|
|
|
314 (set-coding-category-system 'iso-7 'iso-2022-7)
|
|
|
315 (set-coding-category-system 'iso-8-1 'iso-8859-1)
|
|
|
316 (set-coding-category-system 'iso-8-2 'ctext)
|
|
|
317 (set-coding-category-system 'iso-lock-shift 'iso-2022-lock)
|
|
|
318 (set-coding-category-system 'iso-8-designate 'ctext)
|
|
|
319 (if (find-coding-system 'shift-jis)
|
|
|
320 (set-coding-category-system 'shift-jis 'shift-jis))
|
|
|
321 (if (find-coding-system 'big5)
|
|
|
322 (set-coding-category-system 'big5 'big5))
|
|
|
323 )
|
|
|
324 (set-coding-category-system
|
|
|
325 'no-conversion
|
|
|
326 (coding-system-variable-default-value 'no-conversion-coding-system-mapping))
|
|
|
327 (set-coding-category-system 'ucs-4 'ucs-4)
|
|
|
328 (set-coding-category-system 'utf-8 'utf-8)
|
|
985
|
329 (set-coding-category-system 'utf-8-bom 'utf-8-bom)
|
|
771
|
330 (set-coding-category-system 'utf-16-little-endian 'utf-16-little-endian)
|
|
|
331 (set-coding-category-system 'utf-16 'utf-16)
|
|
|
332 (set-coding-category-system 'utf-16-little-endian-bom
|
|
|
333 'utf-16-little-endian-bom)
|
|
|
334 (set-coding-category-system 'utf-16-bom 'utf-16-bom)
|
|
|
335 (set-coding-priority-list
|
|
|
336 (if (featurep 'mule)
|
|
|
337 '(utf-16-little-endian-bom
|
|
|
338 utf-16-bom
|
|
985
|
339 utf-8-bom
|
|
771
|
340 iso-7
|
|
|
341 no-conversion
|
|
|
342 utf-8
|
|
|
343 iso-8-1
|
|
|
344 iso-8-2
|
|
|
345 iso-8-designate
|
|
|
346 iso-lock-shift
|
|
|
347 shift-jis
|
|
|
348 big5
|
|
|
349 utf-16-little-endian
|
|
|
350 utf-16
|
|
|
351 ucs-4)
|
|
|
352 '(utf-16-little-endian-bom
|
|
|
353 utf-16-bom
|
|
985
|
354 utf-8-bom
|
|
771
|
355 no-conversion
|
|
|
356 utf-8
|
|
|
357 utf-16-little-endian
|
|
|
358 utf-16
|
|
|
359 ucs-4))))
|
|
|
360
|
|
|
361 (defun reset-language-environment ()
|
|
|
362 "Reset coding system environment of XEmacs to the default status.
|
|
|
363 All basic coding system variables are set to their default values, as
|
|
|
364 are the coding categories used for automatic detection and their
|
|
|
365 priority.
|
|
|
366
|
|
|
367 BE VERY CERTAIN YOU WANT TO DO THIS BEFORE DOING IT!
|
|
|
368
|
|
|
369 For more information, see `reset-coding-system-defaults' and
|
|
|
370 `reset-coding-categories-to-default'."
|
|
|
371 (reset-coding-system-defaults)
|
|
|
372 (reset-coding-categories-to-default))
|
|
|
373
|
|
|
374 ;; Initialize everything so that the remaining Lisp files can contain
|
|
|
375 ;; extended characters. (They will be in ISO-7 format)
|
|
|
376
|
|
|
377 ;; !!####!! The Lisp files should all be in UTF-8!!! That way, all
|
|
|
378 ;; special characters appear as high bits and there's no problem with
|
|
|
379 ;; the Lisp parser trying to read a Mule file and getting all screwed
|
|
|
380 ;; up. The only other thing then would be characters; we just need to
|
|
|
381 ;; modify the Lisp parser to read the stuff directly after a ? as
|
|
|
382 ;; UTF-8 and return a 30-bit value directly, and modify the character
|
|
|
383 ;; routines a bit to allow such a beast to exist. MAKE IT A POINT TO
|
|
|
384 ;; IMPLEMENT THIS AS ONE OF MY FUTURE PROJECTS. --ben
|
|
|
385
|
|
|
386 (reset-language-environment)
|
|
|
387
|
|
|
388 ;;; code-init.el ends here
|
