Mercurial > emacs

diff lisp/simple.el @ 6696:097fa44199ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(quoted-insert): Handle meta-chars usefully.
author Richard M. Stallman <rms@gnu.org>
date Wed, 06 Apr 1994 03:47:00 +0000
parents 7ada27b4bf3c
children 77349221ca81
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)