Mercurial > emacs
changeset 17855:40a43a90976f
(do-auto-fill): Check enable-kinsoku and enable-multibyte-characters.
(quoted-insert): Use nonascii-insert-offset.
(quoted-insert-character-offset): Variable deleted.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 17 May 1997 04:28:13 +0000 |
| parents | 853150d40e56 |
| children | 1e5f1a1f0db3 |
| files | lisp/simple.el |
| diffstat | 1 files changed, 2 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Sat May 17 04:19:19 1997 +0000 +++ b/lisp/simple.el Sat May 17 04:28:13 1997 +0000 @@ -156,11 +156,6 @@ (indent-to col 0) (goto-char pos))) -(defcustom quoted-insert-character-offset (- (make-char 'latin-iso8859-1) 128) - "*Offset added by \\[quoted-insert] to character codes 0200 and above." - :tag 'integer - :group 'i18n) - (defun quoted-insert (arg) "Read next input character and insert it. This is useful for inserting control characters. @@ -185,7 +180,7 @@ (and enable-multibyte-characters (>= char ?\200) (<= char ?\377) - (setq char (+ quoted-insert-character-offset char))) + (setq char (+ nonascii-insert-offset char))) (if (> arg 0) (if (eq overwrite-mode 'overwrite-mode-binary) (delete-char arg))) @@ -2613,7 +2608,7 @@ (skip-chars-backward " \t") ;; Break the line after/before \c|. (forward-char 1) - (if do-kinsoku + (if (and enable-kinsoku enable-multibyte-characters) (kinsoku (save-excursion (forward-line 0) (point))))))) ;; Let fill-point be set to the place where we end up.