diff options
| author | Richard M. Stallman | 1994-04-12 21:27:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-04-12 21:27:10 +0000 |
| commit | eb814ee189807c78c9802d59aecee96ce8125385 (patch) | |
| tree | ca5b10c6ffff0f5ad333933a77b62999bb24e624 | |
| parent | 1a440e30d920ce8545f47631c7b6a325a47575da (diff) | |
| download | emacs-eb814ee189807c78c9802d59aecee96ce8125385.tar.gz emacs-eb814ee189807c78c9802d59aecee96ce8125385.zip | |
(quoted-insert): Do nothing special for meta chars.
| -rw-r--r-- | lisp/simple.el | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index c0365c24c3b..10459d73ef3 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -82,9 +82,6 @@ this function useful in editing binary files." | |||
| 82 | (read-char)))) | 82 | (read-char)))) |
| 83 | (if (eq overwrite-mode 'overwrite-mode-binary) | 83 | (if (eq overwrite-mode 'overwrite-mode-binary) |
| 84 | (delete-char arg)) | 84 | (delete-char arg)) |
| 85 | ;; Turn a meta-character into a character with the 0200 bit set. | ||
| 86 | (if (/= (logand last-input-char (lsh 1 23)) 0) | ||
| 87 | (setq char (logior char 128))) | ||
| 88 | (insert-char char arg))) | 85 | (insert-char char arg))) |
| 89 | 86 | ||
| 90 | (defun delete-indentation (&optional arg) | 87 | (defun delete-indentation (&optional arg) |