(input-mode-8-bit): Fix the customization.

2 files changed, 11 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a3bbf8c899a..31a23836fd2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+1999-11-18  Dave Love  <fx@gnu.org>
+
+        * simple.el (input-mode-8-bit): Fix the customization.
+
 1999-11-18  Gerd Moellmann  <gerd@gnu.org>
 
         * international/iso-acc.el (iso-languages): Add more
diff --git a/lisp/simple.el b/lisp/simple.el
index 084bf39e8cc..bc78fc66f99 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3501,17 +3501,20 @@ or go back to just one window (by deleting all but the selected window)."
 
 (define-key global-map "\e\e\e" 'keyboard-escape-quit)
 
-(defcustom input-mode-8-bit nil
-  "Toggle whether 8-bit keyboard input is accepted.
+(defcustom input-mode-8-bit t
+  "Control acceptance of 8-bit keyboard input.
 This may be useful for inputting non-ASCII characters if your keyboard
-can generate them.
+can generate them.  It is not necessary to change this under a window
+system which can distinguish 8-bit characters and Meta keys.
 Setting this variable directly does not take effect;
 use either M-x customize or the function `set-input-mode'."
   :set (lambda (symbol value)
          (let ((mode (current-input-mode)))
            (set-input-mode (nth 0 mode) (nth 1 mode) value)))
   :initialize 'custom-initialize-default
-  :type 'boolean
+  :type '(choice (const :tag "8-bit input for a Meta key" t)
+                 (const :tag "Direct 8-bit character input" 0)
+                 (const :tag "Assume top bit is parity and ignore" nil))
   :version "21.1"
   :link '(custom-manual "Single-Byte European Support")
   :group 'keyboard)