# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 940955271 0
# Node ID 097072728e802d1ad850b17a05d26333df5a2e39
# Parent  798aeda1738946d7cc657daa4d1ab63c311ed76b
(input-mode-8-bit): New defcustom.

diff -r 798aeda17389 -r 097072728e80 lisp/simple.el
--- a/lisp/simple.el	Tue Oct 26 15:56:15 1999 +0000
+++ b/lisp/simple.el	Tue Oct 26 16:27:51 1999 +0000
@@ -3491,6 +3491,21 @@
 	 (bury-buffer))))
 
 (define-key global-map "\e\e\e" 'keyboard-escape-quit)
+
+(defcustom input-mode-8-bit nil
+  "Toggle whether 8-bit keyboard input is accepted.
+This may be useful for inputting non-ASCII characters if your keyboard
+can generate them.
+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
+  :version "21.1"
+  :link '(custom-manual "Single-Byte European Support")
+  :group 'keyboard)
 
 (defcustom mail-user-agent 'sendmail-user-agent
   "*Your preference for a mail composition package.