(quoted-insert): Handle meta-chars usefully.

c1279c7d · Richard M. Stallman · c9b7c53a · c1279c7d
Commit c1279c7d authored Apr 06, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 0 deletions

lisp/simple.el lisp/simple.el +3 -0

No files found.
--- 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)