From: Kenichi Handa Date: Mon, 12 May 1997 06:59:23 +0000 (+0000) Subject: (use-quail-package): Error message added. X-Git-Tag: emacs-20.1~2181 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7e22bdd8f92f8883c9f05b4c83f451dfb6e99d04;p=emacs.git (use-quail-package): Error message added. (quail-mode): Make sure to have quail-mode-map at the head of minor-mode-map-alist. --- diff --git a/lisp/international/quail.el b/lisp/international/quail.el index b54f17cafb0..2216c236f5b 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -204,7 +204,7 @@ packages (byte-compiled Emacs Lisp files) to somewhere in your `load-path'. 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) + (progn + (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))))