From c1279c7d3e931e45ba7acc1fb13b65bc817434c3 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Wed, 6 Apr 1994 03:47:00 +0000
Subject: [PATCH] (quoted-insert): Handle meta-chars usefully.

---
 lisp/simple.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lisp/simple.el b/lisp/simple.el
index e96ad8643a..f1e4de6891 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -82,6 +82,9 @@ this function useful in editing binary files."
 		(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)
-- 
2.20.1