procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(quoted-insert-character-offset): New variable.

Browse source 
(quoted-insert): Convert characters 0200 - 0377 to 04200 - 04377,
so that users get the same results they are used to.
This commit is contained in:
Richard M. Stallman 1997-04-28 12:47:24 +00:00
parent 055e7bf2d2
commit 4f5881961a
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/simple.el
View file

@ -139,6 +139,9 @@ With arg N, insert N newlines."
(indent-to col 0)
(goto-char pos)))
(defvar quoted-insert-character-offset 2048
"Offset added by \\[quoted-insert] to character codes 0200 and above.")
(defun quoted-insert (arg)
"Read next input character and insert it.
This is useful for inserting control characters.
@ -157,6 +160,12 @@ this function useful in editing binary files."
(eq overwrite-mode 'overwrite-mode-binary))
(read-quoted-char)
(read-char))))
;; Assume character codes 0200 - 0377 stand for
;; European characters in Latin-1, and convert them
;; to Emacs characters.
(and enable-multibyte-characters
(>= char ?\200)
(setq char (+ quoted-insert-character-offset char)))
(if (> arg 0)
(if (eq overwrite-mode 'overwrite-mode-binary)
(delete-char arg)))