HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
c9b7c53
)
(quoted-insert): Handle meta-chars usefully.
author
Richard M. Stallman
<rms@gnu.org>
Wed, 6 Apr 1994 03:47:00 +0000
(
03:47
+0000)
committer
Richard M. Stallman
<rms@gnu.org>
Wed, 6 Apr 1994 03:47:00 +0000
(
03:47
+0000)
lisp/simple.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/simple.el
b/lisp/simple.el
index
e96ad86
..
f1e4de6
100644
(file)
--- 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)