Mercurial > emacs

comparison lisp/international/mule-conf.el @ 61698:19c94353380d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(translation-table-for-input): Remove redundant declaration.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 20 Apr 2005 14:31:24 +0000
parents b5acb6a7d79b
children 75e72c6f8b1d e1fbb019c538
comparison
equal deleted inserted replaced
61697:bd2c7451ff2d 61698:19c94353380d
1 ;;; mule-conf.el --- configure multilingual environment -*- no-byte-compile: t -*- 1 ;;; mule-conf.el --- configure multilingual environment -*- no-byte-compile: t -*-
2 2
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation. 4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 2005 Free Software Foundation, Inc.
5 6
6 ;; Keywords: mule, multilingual, character set, coding system 7 ;; Keywords: mule, multilingual, character set, coding system
7 8
8 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
9 10
287 288
288 (setq standard-translation-table-for-decode 289 (setq standard-translation-table-for-decode
289 (get 'oldjis-newjis-jisroman-ascii 'translation-table)) 290 (get 'oldjis-newjis-jisroman-ascii 'translation-table))
290 291
291 (setq standard-translation-table-for-encode nil) 292 (setq standard-translation-table-for-encode nil)
292
293 (defvar translation-table-for-input nil
294 "If non-nil, a char table used to translate characters from input methods.
295 \(Currently only used by Quail.)")
296 293
297 ;;; Make fundamental coding systems. 294 ;;; Make fundamental coding systems.
298 295
299 ;; Miscellaneous coding systems which can't be made by 296 ;; Miscellaneous coding systems which can't be made by
300 ;; `make-coding-system'. 297 ;; `make-coding-system'.
557 (aset latin-extra-code-table ?\225 t) 554 (aset latin-extra-code-table ?\225 t)
558 (aset latin-extra-code-table ?\226 t) 555 (aset latin-extra-code-table ?\226 t)
559 556
560 (update-coding-systems-internal) 557 (update-coding-systems-internal)
561 558
562 ;;; arch-tag: 7d5fed55-b6df-42f6-8d3d-0011190551f5 559 ;; arch-tag: 7d5fed55-b6df-42f6-8d3d-0011190551f5
563 ;;; mule-conf.el ends here 560 ;;; mule-conf.el ends here