comparison lisp/simple.el @ 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 be8005fce86f
children 86e95716af6d
comparison
equal deleted inserted replaced
17854:853150d40e56 17855:40a43a90976f
154 (pos (point))) 154 (pos (point)))
155 (newline 1) 155 (newline 1)
156 (indent-to col 0) 156 (indent-to col 0)
157 (goto-char pos))) 157 (goto-char pos)))
158 158
159 (defcustom quoted-insert-character-offset (- (make-char 'latin-iso8859-1) 128)
160 "*Offset added by \\[quoted-insert] to character codes 0200 and above."
161 :tag 'integer
162 :group 'i18n)
163
164 (defun quoted-insert (arg) 159 (defun quoted-insert (arg)
165 "Read next input character and insert it. 160 "Read next input character and insert it.
166 This is useful for inserting control characters. 161 This is useful for inserting control characters.
167 You may also type up to 3 octal digits, to insert a character with that code. 162 You may also type up to 3 octal digits, to insert a character with that code.
168 163
183 ;; European characters in Latin-1, and convert them 178 ;; European characters in Latin-1, and convert them
184 ;; to Emacs characters. 179 ;; to Emacs characters.
185 (and enable-multibyte-characters 180 (and enable-multibyte-characters
186 (>= char ?\200) 181 (>= char ?\200)
187 (<= char ?\377) 182 (<= char ?\377)
188 (setq char (+ quoted-insert-character-offset char))) 183 (setq char (+ nonascii-insert-offset char)))
189 (if (> arg 0) 184 (if (> arg 0)
190 (if (eq overwrite-mode 'overwrite-mode-binary) 185 (if (eq overwrite-mode 'overwrite-mode-binary)
191 (delete-char arg))) 186 (delete-char arg)))
192 (while (> arg 0) 187 (while (> arg 0)
193 (insert-and-inherit char) 188 (insert-and-inherit char)
2611 (if (looking-at "[ \t]") 2606 (if (looking-at "[ \t]")
2612 ;; Break the line at word boundary. 2607 ;; Break the line at word boundary.
2613 (skip-chars-backward " \t") 2608 (skip-chars-backward " \t")
2614 ;; Break the line after/before \c|. 2609 ;; Break the line after/before \c|.
2615 (forward-char 1) 2610 (forward-char 1)
2616 (if do-kinsoku 2611 (if (and enable-kinsoku enable-multibyte-characters)
2617 (kinsoku (save-excursion 2612 (kinsoku (save-excursion
2618 (forward-line 0) (point))))))) 2613 (forward-line 0) (point)))))))
2619 ;; Let fill-point be set to the place where we end up. 2614 ;; Let fill-point be set to the place where we end up.
2620 (point))))) 2615 (point)))))
2621 ;; If that place is not the beginning of the line, 2616 ;; If that place is not the beginning of the line,