Mercurial > emacs

comparison lisp/international/quail.el @ 38105:14d329bebf2a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quail-start-conversion): Reset quail-translating to nil.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 18 Jun 2001 12:45:56 +0000
parents d80d936f6165
children b174db545cfd
comparison
equal deleted inserted replaced
38104:d45370887437 38105:14d329bebf2a
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 Free Software Foundation, Inc.
5 6
6 ;; Author: Kenichi HANDA <handa@etl.go.jp> 7 ;; Author: Kenichi HANDA <handa@etl.go.jp>
7 ;; Naoto TAKAHASHI <ntakahas@etl.go.jp> 8 ;; Naoto TAKAHASHI <ntakahas@etl.go.jp>
8 ;; Maintainer: Kenichi HANDA <handa@etl.go.jp> 9 ;; Maintainer: Kenichi HANDA <handa@etl.go.jp>
9 ;; Keywords: mule, multilingual, input method 10 ;; Keywords: mule, multilingual, input method
1432 ;; KEYSEQ is not defined in the conversion keymap. 1433 ;; KEYSEQ is not defined in the conversion keymap.
1433 ;; Let's return the event(s) to the caller. 1434 ;; Let's return the event(s) to the caller.
1434 (setq unread-command-events 1435 (setq unread-command-events
1435 (string-to-list (this-single-command-raw-keys))) 1436 (string-to-list (this-single-command-raw-keys)))
1436 (setq quail-converting nil)))) 1437 (setq quail-converting nil))))
1438 (setq quail-translating nil)
1437 (if (overlay-start quail-conv-overlay) 1439 (if (overlay-start quail-conv-overlay)
1438 (delete-region (overlay-start quail-conv-overlay) 1440 (delete-region (overlay-start quail-conv-overlay)
1439 (overlay-end quail-conv-overlay))) 1441 (overlay-end quail-conv-overlay)))
1440 (if (> (length quail-conversion-str) 0) 1442 (if (> (length quail-conversion-str) 0)
1441 quail-conversion-str)) 1443 quail-conversion-str))