Commit 4f588196 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

(quoted-insert): Convert characters 0200 - 0377 to 04200 - 04377,
so that users get the same results they are used to.
parent 055e7bf2
...@@ -139,6 +139,9 @@ With arg N, insert N newlines." ...@@ -139,6 +139,9 @@ With arg N, insert N newlines."
(indent-to col 0) (indent-to col 0)
(goto-char pos))) (goto-char pos)))
(defvar quoted-insert-character-offset 2048
"Offset added by \\[quoted-insert] to character codes 0200 and above.")
(defun quoted-insert (arg) (defun quoted-insert (arg)
"Read next input character and insert it. "Read next input character and insert it.
This is useful for inserting control characters. This is useful for inserting control characters.
...@@ -157,6 +160,12 @@ this function useful in editing binary files." ...@@ -157,6 +160,12 @@ this function useful in editing binary files."
(eq overwrite-mode 'overwrite-mode-binary)) (eq overwrite-mode 'overwrite-mode-binary))
(read-quoted-char) (read-quoted-char)
(read-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 (> arg 0)
(if (eq overwrite-mode 'overwrite-mode-binary) (if (eq overwrite-mode 'overwrite-mode-binary)
(delete-char arg))) (delete-char arg)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment