Mercurial > emacs
comparison lisp/simple.el @ 26504:0044d20f41ae
(input-mode-8-bit): Fix the customization.
author | Dave Love <fx@gnu.org> |
---|---|
date | Thu, 18 Nov 1999 23:46:36 +0000 |
parents | 46323650988d |
children | 5efbe3ff1f09 |
comparison
equal
deleted
inserted
replaced
26503:0a4e16e5eb52 | 26504:0044d20f41ae |
---|---|
3499 ((string-match "^ \\*" (buffer-name (current-buffer))) | 3499 ((string-match "^ \\*" (buffer-name (current-buffer))) |
3500 (bury-buffer)))) | 3500 (bury-buffer)))) |
3501 | 3501 |
3502 (define-key global-map "\e\e\e" 'keyboard-escape-quit) | 3502 (define-key global-map "\e\e\e" 'keyboard-escape-quit) |
3503 | 3503 |
3504 (defcustom input-mode-8-bit nil | 3504 (defcustom input-mode-8-bit t |
3505 "Toggle whether 8-bit keyboard input is accepted. | 3505 "Control acceptance of 8-bit keyboard input. |
3506 This may be useful for inputting non-ASCII characters if your keyboard | 3506 This may be useful for inputting non-ASCII characters if your keyboard |
3507 can generate them. | 3507 can generate them. It is not necessary to change this under a window |
3508 system which can distinguish 8-bit characters and Meta keys. | |
3508 Setting this variable directly does not take effect; | 3509 Setting this variable directly does not take effect; |
3509 use either M-x customize or the function `set-input-mode'." | 3510 use either M-x customize or the function `set-input-mode'." |
3510 :set (lambda (symbol value) | 3511 :set (lambda (symbol value) |
3511 (let ((mode (current-input-mode))) | 3512 (let ((mode (current-input-mode))) |
3512 (set-input-mode (nth 0 mode) (nth 1 mode) value))) | 3513 (set-input-mode (nth 0 mode) (nth 1 mode) value))) |
3513 :initialize 'custom-initialize-default | 3514 :initialize 'custom-initialize-default |
3514 :type 'boolean | 3515 :type '(choice (const :tag "8-bit input for a Meta key" t) |
3516 (const :tag "Direct 8-bit character input" 0) | |
3517 (const :tag "Assume top bit is parity and ignore" nil)) | |
3515 :version "21.1" | 3518 :version "21.1" |
3516 :link '(custom-manual "Single-Byte European Support") | 3519 :link '(custom-manual "Single-Byte European Support") |
3517 :group 'keyboard) | 3520 :group 'keyboard) |
3518 | 3521 |
3519 (defcustom mail-user-agent 'sendmail-user-agent | 3522 (defcustom mail-user-agent 'sendmail-user-agent |