Commit 7e22bdd8 authored by Kenichi Handa's avatar Kenichi Handa

(use-quail-package): Error message added.

(quail-mode): Make sure to have quail-mode-map at the head of
parent b28ecb7d
......@@ -204,7 +204,7 @@ packages (byte-compiled Emacs Lisp files) to somewhere in your
LEIM is available from the same ftp directory as Emacs."))
(error ""))
(error "Can't use the Quail package `%s'" package-name))
(setq libraries (cdr libraries))))
(quail-select-package package-name)
(setq current-input-method-title (quail-title))
......@@ -469,6 +469,17 @@ The command \\[describe-input-method] describes the current Quail package."
(run-hooks 'quail-mode-exit-hook)
(run-hooks 'input-method-inactivate-hook))
;; Let's turn on Quail mode.
;; At first, be sure that quail-mode is at the first element of
;; minor-mode-map-alist.
(or (eq (car minor-mode-map-alist) 'quail-mode)
(let ((l minor-mode-map-alist))
(while (cdr l)
(if (eq (car (cdr l)) 'quail-mode)
(setcdr l (cdr (cdr l)))
(setq l nil))
(setq l (cdr l))))
(setq minor-mode-map-alist (cons 'quail-mode minor-mode-map-alist))))
(if (null quail-current-package)
;; Quail package is not yet selected. Select one now.
(let (name)
......@@ -1378,7 +1389,7 @@ All possible translations of the current key and whole possible longer keys
(setq l (cdr l)))))))
;; List all possible translations of KEY in Quail map MAP with
;; indentation INDENT."
;; indentation INDENT.
(defun quail-completion-list-translations (map key indent)
(let ((translations
(quail-get-translation map key (length key))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment