aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKenichi Handa1998-05-18 01:01:00 +0000
committerKenichi Handa1998-05-18 01:01:00 +0000
commitd2a1ee18b8fa524b509f4346b5419d52a99ab645 (patch)
treed1907e5cf04e2dab3e6bbcb1a6108adcba690b1d
parentb25eef20fdf530ff8cfca023d53bbeaf07b5b51f (diff)
downloademacs-d2a1ee18b8fa524b509f4346b5419d52a99ab645.tar.gz
emacs-d2a1ee18b8fa524b509f4346b5419d52a99ab645.zip
Change term unification to
translation throughtout the file.
-rw-r--r--lisp/international/mule-conf.el11
-rw-r--r--lisp/international/mule-util.el12
2 files changed, 12 insertions, 11 deletions
diff --git a/lisp/international/mule-conf.el b/lisp/international/mule-conf.el
index 41ac7b7971a..c6acf6b7f8b 100644
--- a/lisp/international/mule-conf.el
+++ b/lisp/international/mule-conf.el
@@ -195,17 +195,18 @@
195(setup-special-charsets) 195(setup-special-charsets)
196 196
197 197
198;; These are tables for unifying characters on decoding and encoding. 198;; These are tables for translating characters on decoding and
199(define-character-unification-table 199;; encoding.
200(define-character-translation-table
200 'oldjis-newjis-jisroman-ascii 201 'oldjis-newjis-jisroman-ascii
201 (list (cons (make-char 'japanese-jisx0208-1978) 202 (list (cons (make-char 'japanese-jisx0208-1978)
202 (make-char 'japanese-jisx0208)) 203 (make-char 'japanese-jisx0208))
203 (cons (make-char 'latin-jisx0201) (make-char 'ascii)))) 204 (cons (make-char 'latin-jisx0201) (make-char 'ascii))))
204 205
205(setq standard-character-unification-table-for-decode 206(setq standard-character-translation-table-for-decode
206 (get 'oldjis-newjis-jisroman-ascii 'unification-table)) 207 (get 'oldjis-newjis-jisroman-ascii 'character-translation-table))
207 208
208(setq standard-character-unification-table-for-encode nil) 209(setq standard-character-translation-table-for-encode nil)
209 210
210 211
211;;; Make fundamental coding systems. 212;;; Make fundamental coding systems.
diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index 38178be30b0..ce6076faab0 100644
--- a/lisp/international/mule-util.el
+++ b/lisp/international/mule-util.el
@@ -231,14 +231,14 @@ Optional 3rd argument NIL-FOR-TOO-LONG non-nil means return nil
231 (coding-system-get coding-system 'pre-write-conversion)) 231 (coding-system-get coding-system 'pre-write-conversion))
232 232
233;;;###autoload 233;;;###autoload
234(defun coding-system-unification-table-for-decode (coding-system) 234(defun coding-system-translation-table-for-decode (coding-system)
235 "Return the value of CODING-SYSTEM's unification-table-for-decode property." 235 "Return the value of CODING-SYSTEM's translation-table-for-decode property."
236 (coding-system-get coding-system 'character-unification-table-for-decode)) 236 (coding-system-get coding-system 'character-translation-table-for-decode))
237 237
238;;;###autoload 238;;;###autoload
239(defun coding-system-unification-table-for-encode (coding-system) 239(defun coding-system-translation-table-for-encode (coding-system)
240 "Return the value of CODING-SYSTEM's unification-table-for-encode property." 240 "Return the value of CODING-SYSTEM's translation-table-for-encode property."
241 (coding-system-get coding-system 'character-unification-table-for-encode)) 241 (coding-system-get coding-system 'character-translation-table-for-encode))
242 242
243(defun coding-system-lessp (x y) 243(defun coding-system-lessp (x y)
244 (cond ((eq x 'no-conversion) t) 244 (cond ((eq x 'no-conversion) t)