Mercurial > emacs
annotate lisp/international/mule-util.el @ 33853:eb4affa4abc6
(lface_from_face_name): Function comment fix.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Fri, 24 Nov 2000 13:17:42 +0000 |
parents | 4ed4a700358b |
children | 67b464da13ec |
rev | line source |
---|---|
17052 | 1 ;;; mule-util.el --- Utility functions for mulitilingual environment (mule) |
2 | |
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. | |
18377
8b4a66c66dd6
Change copyright notice.
Richard M. Stallman <rms@gnu.org>
parents:
18313
diff
changeset
|
4 ;; Licensed to the Free Software Foundation. |
17052 | 5 |
6 ;; Keywords: mule, multilingual | |
7 | |
8 ;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
17071 | 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 ;; Boston, MA 02111-1307, USA. | |
17052 | 24 |
25 ;;; Code: | |
26 | |
27 ;;; String manipulations while paying attention to multibyte | |
28 ;;; characters. | |
29 | |
30 ;;;###autoload | |
31 (defun string-to-sequence (string type) | |
32 "Convert STRING to a sequence of TYPE which contains characters in STRING. | |
18200
c913160e34a7
(set-coding-system-alist): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
17092
diff
changeset
|
33 TYPE should be `list' or `vector'." |
28458 | 34 ;;; (let ((len (length string)) |
35 ;;; (i 0) | |
36 ;;; val) | |
20730
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
37 (cond ((eq type 'list) |
28458 | 38 ;; Applicable post-Emacs 20.2 and asymptotically ~10 times |
39 ;; faster than the code below: | |
40 (append string nil)) | |
41 ;;; (setq val (make-list len 0)) | |
42 ;;; (let ((l val)) | |
43 ;;; (while (< i len) | |
44 ;;; (setcar l (aref string i)) | |
45 ;;; (setq l (cdr l) i (1+ i)))))) | |
20730
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
46 ((eq type 'vector) |
28458 | 47 ;; As above. |
48 (vconcat string)) | |
49 ;;; (setq val (make-vector len 0)) | |
50 ;;; (while (< i len) | |
51 ;;; (aset val i (aref string i)) | |
52 ;;; (setq i (1+ i)))) | |
20730
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
53 (t |
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
54 (error "Invalid type: %s" type))) |
28458 | 55 ;;; val) |
56 ) | |
17052 | 57 |
58 ;;;###autoload | |
59 (defsubst string-to-list (string) | |
60 "Return a list of characters in STRING." | |
61 (string-to-sequence string 'list)) | |
62 | |
63 ;;;###autoload | |
64 (defsubst string-to-vector (string) | |
65 "Return a vector of characters in STRING." | |
66 (string-to-sequence string 'vector)) | |
67 | |
68 ;;;###autoload | |
69 (defun store-substring (string idx obj) | |
70 "Embed OBJ (string or character) at index IDX of STRING." | |
20730
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
71 (if (integerp obj) |
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
72 (aset string idx obj) |
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
73 (let ((len1 (length obj)) |
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
74 (len2 (length string)) |
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
75 (i 0)) |
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
76 (while (< i len1) |
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
77 (aset string (+ idx i) (aref obj i)) |
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
78 (setq i (1+ i))))) |
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
79 string) |
17052 | 80 |
81 ;;;###autoload | |
19916
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
82 (defun truncate-string-to-width (str end-column &optional start-column padding) |
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
83 "Truncate string STR to end at column END-COLUMN. |
26691
1f573e26070a
(truncate-string-to-width): Docsting fixed.
Gerd Moellmann <gerd@gnu.org>
parents:
24866
diff
changeset
|
84 The optional 3rd arg START-COLUMN, if non-nil, specifies |
19916
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
85 the starting column; that means to return the characters occupying |
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
86 columns START-COLUMN ... END-COLUMN of STR. |
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
87 |
26691
1f573e26070a
(truncate-string-to-width): Docsting fixed.
Gerd Moellmann <gerd@gnu.org>
parents:
24866
diff
changeset
|
88 The optional 4th arg PADDING, if non-nil, specifies a padding character |
19916
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
89 to add at the end of the result if STR doesn't reach column END-COLUMN, |
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
90 or if END-COLUMN comes in the middle of a character in STR. |
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
91 PADDING is also added at the beginning of the result |
19928
7e4718c779b2
(truncate-string-to-width): Doc typo fix.
Richard M. Stallman <rms@gnu.org>
parents:
19916
diff
changeset
|
92 if column START-COLUMN appears in the middle of a character in STR. |
19916
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
93 |
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
94 If PADDING is nil, no padding is added in these cases, so |
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
95 the resulting string may be narrower than END-COLUMN." |
17052 | 96 (or start-column |
97 (setq start-column 0)) | |
98 (let ((len (length str)) | |
99 (idx 0) | |
100 (column 0) | |
101 (head-padding "") (tail-padding "") | |
102 ch last-column last-idx from-idx) | |
103 (condition-case nil | |
104 (while (< column start-column) | |
20730
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
105 (setq ch (aref str idx) |
17052 | 106 column (+ column (char-width ch)) |
20730
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
107 idx (1+ idx))) |
17052 | 108 (args-out-of-range (setq idx len))) |
109 (if (< column start-column) | |
19916
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
110 (if padding (make-string end-column padding) "") |
17052 | 111 (if (and padding (> column start-column)) |
20730
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
112 (setq head-padding (make-string (- column start-column) padding))) |
17052 | 113 (setq from-idx idx) |
19916
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
114 (if (< end-column column) |
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
115 (setq idx from-idx) |
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
116 (condition-case nil |
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
117 (while (< column end-column) |
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
118 (setq last-column column |
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
119 last-idx idx |
20730
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
120 ch (aref str idx) |
19916
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
121 column (+ column (char-width ch)) |
20730
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
122 idx (1+ idx))) |
19916
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
123 (args-out-of-range (setq idx len))) |
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
124 (if (> column end-column) |
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
125 (setq column last-column idx last-idx)) |
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
126 (if (and padding (< column end-column)) |
f43513081277
(truncate-string-to-width):
Richard M. Stallman <rms@gnu.org>
parents:
19745
diff
changeset
|
127 (setq tail-padding (make-string (- end-column column) padding)))) |
17052 | 128 (setq str (substring str from-idx idx)) |
129 (if padding | |
130 (concat head-padding str tail-padding) | |
131 str)))) | |
132 | |
23196 | 133 ;;; For backward compatibility ... |
17052 | 134 ;;;###autoload |
135 (defalias 'truncate-string 'truncate-string-to-width) | |
29354
4ed4a700358b
Update calls to make-obsolete with a WHEN argument.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
29058
diff
changeset
|
136 (make-obsolete 'truncate-string 'truncate-string-to-width "20.1") |
17052 | 137 |
138 ;;; Nested alist handler. Nested alist is alist whose elements are | |
139 ;;; also nested alist. | |
140 | |
141 ;;;###autoload | |
142 (defsubst nested-alist-p (obj) | |
23196 | 143 "Return t if OBJ is a nested alist. |
17052 | 144 |
145 Nested alist is a list of the form (ENTRY . BRANCHES), where ENTRY is | |
146 any Lisp object, and BRANCHES is a list of cons cells of the form | |
147 (KEY-ELEMENT . NESTED-ALIST). | |
148 | |
149 You can use a nested alist to store any Lisp object (ENTRY) for a key | |
150 sequence KEYSEQ, where KEYSEQ is a sequence of KEY-ELEMENT. KEYSEQ | |
151 can be a string, a vector, or a list." | |
152 (and obj (listp obj) (listp (cdr obj)))) | |
153 | |
154 ;;;###autoload | |
155 (defun set-nested-alist (keyseq entry alist &optional len branches) | |
156 "Set ENTRY for KEYSEQ in a nested alist ALIST. | |
23196 | 157 Optional 4th arg LEN non-nil means the first LEN elements in KEYSEQ |
17052 | 158 is considered. |
159 Optional argument BRANCHES if non-nil is branches for a keyseq | |
160 longer than KEYSEQ. | |
161 See the documentation of `nested-alist-p' for more detail." | |
162 (or (nested-alist-p alist) | |
23196 | 163 (error "Invalid argument %s" alist)) |
17052 | 164 (let ((islist (listp keyseq)) |
165 (len (or len (length keyseq))) | |
166 (i 0) | |
167 key-elt slot) | |
168 (while (< i len) | |
169 (if (null (nested-alist-p alist)) | |
170 (error "Keyseq %s is too long for this nested alist" keyseq)) | |
171 (setq key-elt (if islist (nth i keyseq) (aref keyseq i))) | |
172 (setq slot (assoc key-elt (cdr alist))) | |
173 (if (null slot) | |
174 (progn | |
175 (setq slot (cons key-elt (list t))) | |
176 (setcdr alist (cons slot (cdr alist))))) | |
177 (setq alist (cdr slot)) | |
178 (setq i (1+ i))) | |
179 (setcar alist entry) | |
180 (if branches | |
26890
4cd9407a4683
(set-nested-alist): Set BRANCHES (if
Kenichi Handa <handa@m17n.org>
parents:
26691
diff
changeset
|
181 (setcdr (last alist) branches)))) |
17052 | 182 |
183 ;;;###autoload | |
184 (defun lookup-nested-alist (keyseq alist &optional len start nil-for-too-long) | |
185 "Look up key sequence KEYSEQ in nested alist ALIST. Return the definition. | |
186 Optional 1st argument LEN specifies the length of KEYSEQ. | |
187 Optional 2nd argument START specifies index of the starting key. | |
188 The returned value is normally a nested alist of which | |
189 car part is the entry for KEYSEQ. | |
190 If ALIST is not deep enough for KEYSEQ, return number which is | |
191 how many key elements at the front of KEYSEQ it takes | |
192 to reach a leaf in ALIST. | |
193 Optional 3rd argument NIL-FOR-TOO-LONG non-nil means return nil | |
194 even if ALIST is not deep enough." | |
195 (or (nested-alist-p alist) | |
28458 | 196 (error "Invalid argument %s" alist)) |
17052 | 197 (or len |
198 (setq len (length keyseq))) | |
199 (let ((i (or start 0))) | |
200 (if (catch 'lookup-nested-alist-tag | |
201 (if (listp keyseq) | |
202 (while (< i len) | |
203 (if (setq alist (cdr (assoc (nth i keyseq) (cdr alist)))) | |
204 (setq i (1+ i)) | |
205 (throw 'lookup-nested-alist-tag t)))) | |
206 (while (< i len) | |
207 (if (setq alist (cdr (assoc (aref keyseq i) (cdr alist)))) | |
208 (setq i (1+ i)) | |
209 (throw 'lookup-nested-alist-tag t)))) | |
210 ;; KEYSEQ is too long. | |
211 (if nil-for-too-long nil i) | |
212 alist))) | |
213 | |
18299
c6f35cac24b4
(coding-system-parent): New function.
Kenichi Handa <handa@m17n.org>
parents:
18200
diff
changeset
|
214 |
17052 | 215 ;; Coding system related functions. |
216 | |
217 ;;;###autoload | |
18200
c913160e34a7
(set-coding-system-alist): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
17092
diff
changeset
|
218 (defun coding-system-eol-type-mnemonic (coding-system) |
24866
84d705e026b4
(coding-system-eol-type-mnemonic):
Kenichi Handa <handa@m17n.org>
parents:
24485
diff
changeset
|
219 "Return the string indicating end-of-line format of CODING-SYSTEM." |
84d705e026b4
(coding-system-eol-type-mnemonic):
Kenichi Handa <handa@m17n.org>
parents:
24485
diff
changeset
|
220 (let* ((eol-type (coding-system-eol-type coding-system)) |
84d705e026b4
(coding-system-eol-type-mnemonic):
Kenichi Handa <handa@m17n.org>
parents:
24485
diff
changeset
|
221 (val (cond ((vectorp eol-type) eol-mnemonic-undecided) |
84d705e026b4
(coding-system-eol-type-mnemonic):
Kenichi Handa <handa@m17n.org>
parents:
24485
diff
changeset
|
222 ((eq eol-type 0) eol-mnemonic-unix) |
84d705e026b4
(coding-system-eol-type-mnemonic):
Kenichi Handa <handa@m17n.org>
parents:
24485
diff
changeset
|
223 ((eq eol-type 1) eol-mnemonic-dos) |
84d705e026b4
(coding-system-eol-type-mnemonic):
Kenichi Handa <handa@m17n.org>
parents:
24485
diff
changeset
|
224 ((eq eol-type 2) eol-mnemonic-mac) |
84d705e026b4
(coding-system-eol-type-mnemonic):
Kenichi Handa <handa@m17n.org>
parents:
24485
diff
changeset
|
225 (t "-")))) |
84d705e026b4
(coding-system-eol-type-mnemonic):
Kenichi Handa <handa@m17n.org>
parents:
24485
diff
changeset
|
226 (if (stringp val) |
84d705e026b4
(coding-system-eol-type-mnemonic):
Kenichi Handa <handa@m17n.org>
parents:
24485
diff
changeset
|
227 val |
84d705e026b4
(coding-system-eol-type-mnemonic):
Kenichi Handa <handa@m17n.org>
parents:
24485
diff
changeset
|
228 (char-to-string val)))) |
18200
c913160e34a7
(set-coding-system-alist): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
17092
diff
changeset
|
229 |
c913160e34a7
(set-coding-system-alist): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
17092
diff
changeset
|
230 ;;;###autoload |
c913160e34a7
(set-coding-system-alist): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
17092
diff
changeset
|
231 (defun coding-system-post-read-conversion (coding-system) |
20113
00ca5f419c16
(coding-system-base): Moved to
Kenichi Handa <handa@m17n.org>
parents:
19932
diff
changeset
|
232 "Return the value of CODING-SYSTEM's post-read-conversion property." |
00ca5f419c16
(coding-system-base): Moved to
Kenichi Handa <handa@m17n.org>
parents:
19932
diff
changeset
|
233 (coding-system-get coding-system 'post-read-conversion)) |
18200
c913160e34a7
(set-coding-system-alist): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
17092
diff
changeset
|
234 |
c913160e34a7
(set-coding-system-alist): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
17092
diff
changeset
|
235 ;;;###autoload |
c913160e34a7
(set-coding-system-alist): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
17092
diff
changeset
|
236 (defun coding-system-pre-write-conversion (coding-system) |
20113
00ca5f419c16
(coding-system-base): Moved to
Kenichi Handa <handa@m17n.org>
parents:
19932
diff
changeset
|
237 "Return the value of CODING-SYSTEM's pre-write-conversion property." |
00ca5f419c16
(coding-system-base): Moved to
Kenichi Handa <handa@m17n.org>
parents:
19932
diff
changeset
|
238 (coding-system-get coding-system 'pre-write-conversion)) |
18200
c913160e34a7
(set-coding-system-alist): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
17092
diff
changeset
|
239 |
c913160e34a7
(set-coding-system-alist): Deleted.
Kenichi Handa <handa@m17n.org>
parents:
17092
diff
changeset
|
240 ;;;###autoload |
22126
97cf1cae1971
Change term unification to
Kenichi Handa <handa@m17n.org>
parents:
21554
diff
changeset
|
241 (defun coding-system-translation-table-for-decode (coding-system) |
97cf1cae1971
Change term unification to
Kenichi Handa <handa@m17n.org>
parents:
21554
diff
changeset
|
242 "Return the value of CODING-SYSTEM's translation-table-for-decode property." |
22186
fc4aaf1b1772
Change term "character translation table" to "translation table".
Kenichi Handa <handa@m17n.org>
parents:
22126
diff
changeset
|
243 (coding-system-get coding-system 'translation-table-for-decode)) |
19455
7cf3d42a6fd7
(coding-system-unification-table):
Kenichi Handa <handa@m17n.org>
parents:
19264
diff
changeset
|
244 |
7cf3d42a6fd7
(coding-system-unification-table):
Kenichi Handa <handa@m17n.org>
parents:
19264
diff
changeset
|
245 ;;;###autoload |
22126
97cf1cae1971
Change term unification to
Kenichi Handa <handa@m17n.org>
parents:
21554
diff
changeset
|
246 (defun coding-system-translation-table-for-encode (coding-system) |
97cf1cae1971
Change term unification to
Kenichi Handa <handa@m17n.org>
parents:
21554
diff
changeset
|
247 "Return the value of CODING-SYSTEM's translation-table-for-encode property." |
22186
fc4aaf1b1772
Change term "character translation table" to "translation table".
Kenichi Handa <handa@m17n.org>
parents:
22126
diff
changeset
|
248 (coding-system-get coding-system 'translation-table-for-encode)) |
17052 | 249 |
18299
c6f35cac24b4
(coding-system-parent): New function.
Kenichi Handa <handa@m17n.org>
parents:
18200
diff
changeset
|
250 ;;;###autoload |
c6f35cac24b4
(coding-system-parent): New function.
Kenichi Handa <handa@m17n.org>
parents:
18200
diff
changeset
|
251 (defun coding-system-equal (coding-system-1 coding-system-2) |
c6f35cac24b4
(coding-system-parent): New function.
Kenichi Handa <handa@m17n.org>
parents:
18200
diff
changeset
|
252 "Return t if and only if CODING-SYSTEM-1 and CODING-SYSTEM-2 are identical. |
c6f35cac24b4
(coding-system-parent): New function.
Kenichi Handa <handa@m17n.org>
parents:
18200
diff
changeset
|
253 Two coding systems are identical if two symbols are equal |
c6f35cac24b4
(coding-system-parent): New function.
Kenichi Handa <handa@m17n.org>
parents:
18200
diff
changeset
|
254 or one is an alias of the other." |
c6f35cac24b4
(coding-system-parent): New function.
Kenichi Handa <handa@m17n.org>
parents:
18200
diff
changeset
|
255 (or (eq coding-system-1 coding-system-2) |
20113
00ca5f419c16
(coding-system-base): Moved to
Kenichi Handa <handa@m17n.org>
parents:
19932
diff
changeset
|
256 (and (equal (coding-system-spec coding-system-1) |
00ca5f419c16
(coding-system-base): Moved to
Kenichi Handa <handa@m17n.org>
parents:
19932
diff
changeset
|
257 (coding-system-spec coding-system-2)) |
00ca5f419c16
(coding-system-base): Moved to
Kenichi Handa <handa@m17n.org>
parents:
19932
diff
changeset
|
258 (let ((eol-type-1 (coding-system-eol-type coding-system-1)) |
00ca5f419c16
(coding-system-base): Moved to
Kenichi Handa <handa@m17n.org>
parents:
19932
diff
changeset
|
259 (eol-type-2 (coding-system-eol-type coding-system-2))) |
00ca5f419c16
(coding-system-base): Moved to
Kenichi Handa <handa@m17n.org>
parents:
19932
diff
changeset
|
260 (or (eq eol-type-1 eol-type-2) |
00ca5f419c16
(coding-system-base): Moved to
Kenichi Handa <handa@m17n.org>
parents:
19932
diff
changeset
|
261 (and (vectorp eol-type-1) (vectorp eol-type-2))))))) |
18299
c6f35cac24b4
(coding-system-parent): New function.
Kenichi Handa <handa@m17n.org>
parents:
18200
diff
changeset
|
262 |
20162
dc6f12ef4d47
(find-safe-coding-system): New function.
Kenichi Handa <handa@m17n.org>
parents:
20113
diff
changeset
|
263 ;;;###autoload |
20730
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
264 (defmacro detect-coding-with-priority (from to priority-list) |
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
265 "Detect a coding system of the text between FROM and TO with PRIORITY-LIST. |
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
266 PRIORITY-LIST is an alist of coding categories vs the corresponding |
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
267 coding systems ordered by priority." |
24485
ab39ea2168e7
(detect-coding-with-priority): Restore the internal database.
Kenichi Handa <handa@m17n.org>
parents:
24346
diff
changeset
|
268 `(unwind-protect |
ab39ea2168e7
(detect-coding-with-priority): Restore the internal database.
Kenichi Handa <handa@m17n.org>
parents:
24346
diff
changeset
|
269 (let* ((prio-list ,priority-list) |
ab39ea2168e7
(detect-coding-with-priority): Restore the internal database.
Kenichi Handa <handa@m17n.org>
parents:
24346
diff
changeset
|
270 (coding-category-list coding-category-list) |
ab39ea2168e7
(detect-coding-with-priority): Restore the internal database.
Kenichi Handa <handa@m17n.org>
parents:
24346
diff
changeset
|
271 ,@(mapcar (function (lambda (x) (list x x))) |
ab39ea2168e7
(detect-coding-with-priority): Restore the internal database.
Kenichi Handa <handa@m17n.org>
parents:
24346
diff
changeset
|
272 coding-category-list)) |
29058
39b69af53e85
(detect-coding-with-priority): Use mapc. Remove redundant lambda.
Dave Love <fx@gnu.org>
parents:
28458
diff
changeset
|
273 (mapc (function (lambda (x) (set (car x) (cdr x)))) |
39b69af53e85
(detect-coding-with-priority): Use mapc. Remove redundant lambda.
Dave Love <fx@gnu.org>
parents:
28458
diff
changeset
|
274 prio-list) |
39b69af53e85
(detect-coding-with-priority): Use mapc. Remove redundant lambda.
Dave Love <fx@gnu.org>
parents:
28458
diff
changeset
|
275 (set-coding-priority (mapcar #'car prio-list)) |
24485
ab39ea2168e7
(detect-coding-with-priority): Restore the internal database.
Kenichi Handa <handa@m17n.org>
parents:
24346
diff
changeset
|
276 (detect-coding-region ,from ,to)) |
ab39ea2168e7
(detect-coding-with-priority): Restore the internal database.
Kenichi Handa <handa@m17n.org>
parents:
24346
diff
changeset
|
277 ;; We must restore the internal database. |
ab39ea2168e7
(detect-coding-with-priority): Restore the internal database.
Kenichi Handa <handa@m17n.org>
parents:
24346
diff
changeset
|
278 (set-coding-priority coding-category-list) |
ab39ea2168e7
(detect-coding-with-priority): Restore the internal database.
Kenichi Handa <handa@m17n.org>
parents:
24346
diff
changeset
|
279 (update-coding-systems-internal))) |
20162
dc6f12ef4d47
(find-safe-coding-system): New function.
Kenichi Handa <handa@m17n.org>
parents:
20113
diff
changeset
|
280 |
20730
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
281 ;;;###autoload |
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
282 (defun detect-coding-with-language-environment (from to lang-env) |
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
283 "Detect a coding system of the text between FROM and TO with LANG-ENV. |
23196 | 284 The detection takes into account the coding system priorities for the |
20730
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
285 language environment LANG-ENV." |
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
286 (let ((coding-priority (get-language-info lang-env 'coding-priority))) |
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
287 (if coding-priority |
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
288 (detect-coding-with-priority |
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
289 from to |
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
290 (mapcar (function (lambda (x) |
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
291 (cons (coding-system-get x 'coding-category) x))) |
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
292 coding-priority)) |
42d729244a85
(find-safe-coding-system): Moved to
Kenichi Handa <handa@m17n.org>
parents:
20162
diff
changeset
|
293 (detect-coding-region from to)))) |
20162
dc6f12ef4d47
(find-safe-coding-system): New function.
Kenichi Handa <handa@m17n.org>
parents:
20113
diff
changeset
|
294 |
17052 | 295 |
28458 | 296 (provide 'mule-util) |
297 | |
26890
4cd9407a4683
(set-nested-alist): Set BRANCHES (if
Kenichi Handa <handa@m17n.org>
parents:
26691
diff
changeset
|
298 ;;; mule-util.el ends here |