Mercurial > emacs
changeset 6696:097fa44199ab
(quoted-insert): Handle meta-chars usefully.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 06 Apr 1994 03:47:00 +0000 |
| parents | c66bed2f25af |
| children | 28e36f59e856 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Wed Apr 06 02:07:40 1994 +0000 +++ b/lisp/simple.el Wed Apr 06 03:47:00 1994 +0000 @@ -82,6 +82,9 @@ (read-char)))) (if (eq overwrite-mode 'overwrite-mode-binary) (delete-char arg)) + ;; Turn a meta-character into a character with the 0200 bit set. + (if (/= (logand last-input-char (lsh 1 23)) 0) + (setq char (logior char 128))) (insert-char char arg))) (defun delete-indentation (&optional arg)