From: Dave Love <fx@gnu.org>
Date: Mon, 28 Oct 2002 14:38:00 +0000 (+0000)
Subject: (quail-keyboard-layout-alist): Fix
X-Git-Tag: ttn-vms-21-2-B4~12692
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d14a2a1f3656673dcd9e73ac9fb9f36faa4dad0d;p=emacs.git

(quail-keyboard-layout-alist): Fix
pc105-uk.
(quail-keyboard-layout): Customize.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8b1d519a691..e310fb66fc8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-10-28  Dave Love  <fx@gnu.org>
+
+	* international/quail.el (quail-keyboard-layout-alist): Fix
+	pc105-uk.
+	(quail-keyboard-layout): Customize.
+
 2002-10-28  Miles Bader  <miles@gnu.org>
 
 	* progmodes/make-mode.el (makefile-warn-continuations): Don't
diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index f56200b555a..91e0f09abbd 100644
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -618,7 +618,7 @@ This layout is almost the same as that of VT100,
  but the location of key \\ (backslash) is just right of key ' (single-quote),
  not right of RETURN key.")
 
-(defvar quail-keyboard-layout quail-keyboard-layout-standard
+(defcustom quail-keyboard-layout quail-keyboard-layout-standard
   "A string which represents physical key layout of a particular keyboard.
 We assume there are six rows and each row has 15 keys (columns),
 	the first row is above the `1' - `0' row,
@@ -630,7 +630,13 @@ We assume there are six rows and each row has 15 keys (columns),
 Nth (N is even) and (N+1)th characters in the string are non-shifted
 and shifted characters respectively at the same location.
 The location of Nth character is row (N / 30) and column ((N mod 30) / 2).
-The command `quail-set-keyboard-layout' usually sets this variable.")
+The command `quail-set-keyboard-layout' usually sets this variable."
+  :group 'quail
+  :type `(choice
+	  ,@(mapcar (lambda (pair)
+		      (list 'const :tag (car pair) (cdr pair)))
+		    quail-keyboard-layout-alist)
+	  (string :tag "Other")))
 
 (defconst quail-keyboard-layout-len 180)
 
@@ -671,7 +677,7 @@ The command `quail-set-keyboard-layout' usually sets this variable.")
                               ")
    '("pc105-uk" . "\
                               \
-`\2541!2\3\243$5%6^7&8*9(0)-_=+    \
+`\2541!2\"3\2434$5%6^7&8*9(0)-_=+     \
   qQwWeErRtTyYuUiIoOpP[{]}    \
   aAsSdDfFgGhHjJkKlL;:'@#~    \
 \\|zZxXcCvVbBnNmM,<.>/?        \
@@ -894,7 +900,7 @@ The format of KBD-LAYOUT is the same as `quail-keyboard-layout'."
 The variable `quail-keyboard-layout-type' holds the currently selected
 keyboard type."
   (interactive
-   (list (completing-read "Keyboard type (default, current choise): "
+   (list (completing-read "Keyboard type (default, current choice): "
 			  quail-keyboard-layout-alist
 			  nil t)))
   (or (and keyboard-type (> (length keyboard-type) 0))