Mercurial > emacs

comparison lisp/international/quail.el @ 90127:30ad2795fdab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-28 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 180-191) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 39-44) - Merge from emacs--cvs-trunk--0 - Update from CVS
author Miles Bader <miles@gnu.org>
date Sat, 19 Mar 2005 02:42:17 +0000
parents eac554634bfa cd964c0f3549
children f042e7c0fe20
comparison
equal deleted inserted replaced
90126:8ee106ee2dc8 90127:30ad2795fdab
1 ;;; quail.el --- provides simple input method for multilingual text 1 ;;; quail.el --- provides simple input method for multilingual text
2 2
3 ;; Copyright (C) 1995, 2000 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 1995, 2000 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation. 4 ;; Licensed to the Free Software Foundation.
5 ;; Copyright (C) 2001, 2002 Free Software Foundation, Inc. 5 ;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
6 ;; Copyright (C) 2005
7 ;; National Institute of Advanced Industrial Science and Technology (AIST)
8 ;; Registration Number H14PRO021
6 9
7 ;; Author: Kenichi HANDA <handa@etl.go.jp> 10 ;; Author: Kenichi HANDA <handa@etl.go.jp>
8 ;; Naoto TAKAHASHI <ntakahas@etl.go.jp> 11 ;; Naoto TAKAHASHI <ntakahas@etl.go.jp>
9 ;; Maintainer: Kenichi HANDA <handa@etl.go.jp> 12 ;; Maintainer: Kenichi HANDA <handa@etl.go.jp>
10 ;; Keywords: mule, multilingual, input method, i18n 13 ;; Keywords: mule, multilingual, input method, i18n
1298 overriding-terminal-local-map 1301 overriding-terminal-local-map
1299 overriding-local-map) 1302 overriding-local-map)
1300 (list key) 1303 (list key)
1301 (quail-setup-overlays (quail-conversion-keymap)) 1304 (quail-setup-overlays (quail-conversion-keymap))
1302 (let ((modified-p (buffer-modified-p)) 1305 (let ((modified-p (buffer-modified-p))
1303 (buffer-undo-list t)) 1306 (buffer-undo-list t)
1307 (inhibit-modification-hooks t))
1304 (unwind-protect 1308 (unwind-protect
1305 (let ((input-string (if (quail-conversion-keymap) 1309 (let ((input-string (if (quail-conversion-keymap)
1306 (quail-start-conversion key) 1310 (quail-start-conversion key)
1307 (quail-start-translation key)))) 1311 (quail-start-translation key))))
1308 (setq quail-guidance-str "") 1312 (setq quail-guidance-str "")