Mercurial > emacs

comparison lisp/international/quail.el @ 90233:ee12d75eb214

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-85 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 556-561) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 122-124) - Update from CVS: lisp/mm-url.el (mm-url-decode-entities): Fix regexp. - Update from CVS
author Miles Bader <miles@gnu.org>
date Sun, 25 Sep 2005 22:07:01 +0000
parents f9a65d7ebd29 ed770a0a7846
children 7beb78bc1f8e
comparison
equal deleted inserted replaced
90232:eab32348047a 90233:ee12d75eb214
895 "Show the physical layout of the keyboard type KEYBOARD-TYPE. 895 "Show the physical layout of the keyboard type KEYBOARD-TYPE.
896 896
897 The variable `quail-keyboard-layout-type' holds the currently selected 897 The variable `quail-keyboard-layout-type' holds the currently selected
898 keyboard type." 898 keyboard type."
899 (interactive 899 (interactive
900 (list (completing-read "Keyboard type (default, current choice): " 900 (list (completing-read "Keyboard type (default current choice): "
901 quail-keyboard-layout-alist 901 quail-keyboard-layout-alist
902 nil t))) 902 nil t)))
903 (or (and keyboard-type (> (length keyboard-type) 0)) 903 (or (and keyboard-type (> (length keyboard-type) 0))
904 (setq keyboard-type quail-keyboard-layout-type)) 904 (setq keyboard-type quail-keyboard-layout-type))
905 (let ((layout (assoc keyboard-type quail-keyboard-layout-alist))) 905 (let ((layout (assoc keyboard-type quail-keyboard-layout-alist)))