comparison lisp/simple.el @ 6837:e7d9adf0b7d7

(quoted-insert): Do nothing special for meta chars.

6836:64e20f3960e8

		      (eq overwrite-mode 'overwrite-mode-binary))
		  (read-quoted-char)
		(read-char))))
    (if (eq overwrite-mode 'overwrite-mode-binary)
	(delete-char arg))
    ;; Turn a meta-character into a character with the 0200 bit set.
    (if (/= (logand last-input-char (lsh 1 23)) 0)
	(setq char (logior char 128)))
    (insert-char char arg)))

(defun delete-indentation (&optional arg)
  "Join this line to previous and fix up whitespace at join.
If there is a fill prefix, delete it from the beginning of this line.

6837:e7d9adf0b7d7

		      (eq overwrite-mode 'overwrite-mode-binary))
		  (read-quoted-char)
		(read-char))))
    (if (eq overwrite-mode 'overwrite-mode-binary)
	(delete-char arg))
    (insert-char char arg)))

(defun delete-indentation (&optional arg)
  "Join this line to previous and fix up whitespace at join.
If there is a fill prefix, delete it from the beginning of this line.