Mercurial > emacs
comparison lisp/simple.el @ 26201:097072728e80
(input-mode-8-bit): New defcustom.
author | Dave Love <fx@gnu.org> |
---|---|
date | Tue, 26 Oct 1999 16:27:51 +0000 |
parents | aa272f550e17 |
children | bcd25953e4cf |
comparison
equal
deleted
inserted
replaced
26200:798aeda17389 | 26201:097072728e80 |
---|---|
3489 (delete-other-windows)) | 3489 (delete-other-windows)) |
3490 ((string-match "^ \\*" (buffer-name (current-buffer))) | 3490 ((string-match "^ \\*" (buffer-name (current-buffer))) |
3491 (bury-buffer)))) | 3491 (bury-buffer)))) |
3492 | 3492 |
3493 (define-key global-map "\e\e\e" 'keyboard-escape-quit) | 3493 (define-key global-map "\e\e\e" 'keyboard-escape-quit) |
3494 | |
3495 (defcustom input-mode-8-bit nil | |
3496 "Toggle whether 8-bit keyboard input is accepted. | |
3497 This may be useful for inputting non-ASCII characters if your keyboard | |
3498 can generate them. | |
3499 Setting this variable directly does not take effect; | |
3500 use either M-x customize or the function `set-input-mode'." | |
3501 :set (lambda (symbol value) | |
3502 (let ((mode (current-input-mode))) | |
3503 (set-input-mode (nth 0 mode) (nth 1 mode) value))) | |
3504 :initialize 'custom-initialize-default | |
3505 :type 'boolean | |
3506 :version "21.1" | |
3507 :link '(custom-manual "Single-Byte European Support") | |
3508 :group 'keyboard) | |
3494 | 3509 |
3495 (defcustom mail-user-agent 'sendmail-user-agent | 3510 (defcustom mail-user-agent 'sendmail-user-agent |
3496 "*Your preference for a mail composition package. | 3511 "*Your preference for a mail composition package. |
3497 Various Emacs Lisp packages (e.g. reporter) require you to compose an | 3512 Various Emacs Lisp packages (e.g. reporter) require you to compose an |
3498 outgoing email message. This variable lets you specify which | 3513 outgoing email message. This variable lets you specify which |