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.

17854:853150d40e56

	(pos (point)))
    (newline 1)
    (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.
You may also type up to 3 octal digits, to insert a character with that code.

    ;; European characters in Latin-1, and convert them
    ;; to Emacs characters.
    (and enable-multibyte-characters
	 (>= char ?\200)
	 (<= char ?\377)
	 (setq char (+ quoted-insert-character-offset char)))
    (if (> arg 0)
	(if (eq overwrite-mode 'overwrite-mode-binary)
	    (delete-char arg)))
    (while (> arg 0)
      (insert-and-inherit char)

		       (if (looking-at "[ \t]")
			   ;; Break the line at word boundary.
			   (skip-chars-backward " \t")
			 ;; Break the line after/before \c|.
			 (forward-char 1)
			 (if do-kinsoku
			     (kinsoku (save-excursion
					(forward-line 0) (point)))))))
		   ;; Let fill-point be set to the place where we end up.
		   (point)))))
	  ;; If that place is not the beginning of the line,

17855:40a43a90976f

	(pos (point)))
    (newline 1)
    (indent-to col 0)
    (goto-char pos)))

(defun quoted-insert (arg)
  "Read next input character and insert it.
This is useful for inserting control characters.
You may also type up to 3 octal digits, to insert a character with that code.

    ;; European characters in Latin-1, and convert them
    ;; to Emacs characters.
    (and enable-multibyte-characters
	 (>= char ?\200)
	 (<= char ?\377)
	 (setq char (+ nonascii-insert-offset char)))
    (if (> arg 0)
	(if (eq overwrite-mode 'overwrite-mode-binary)
	    (delete-char arg)))
    (while (> arg 0)
      (insert-and-inherit char)

		       (if (looking-at "[ \t]")
			   ;; Break the line at word boundary.
			   (skip-chars-backward " \t")
			 ;; Break the line after/before \c|.
			 (forward-char 1)
                         (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.
		   (point)))))
	  ;; If that place is not the beginning of the line,