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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a3bbf8c899a09d8c68f84bb2cc7b2361cde9ec46..31a23836fd2b1c2d1af0b22a214222d6fa06031f 100644 (file)
--- 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 084bf39e8ccbb426a6bdd778a9baff83d6497561..bc78fc66f99b93cc15d79b6b49e03b72ad6f433a 100644 (file)
--- 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)