303 |
In some text modes, where TAB inserts a tab, this indents to the |
In some text modes, where TAB inserts a tab, this indents to the |
304 |
column specified by the function `current-left-margin'." |
column specified by the function `current-left-margin'." |
305 |
(interactive "*") |
(interactive "*") |
|
(delete-horizontal-space t) |
|
306 |
(let ((pos (point))) |
(let ((pos (point))) |
307 |
;; Be careful to insert the newline before indenting the line. |
;; Be careful to insert the newline before indenting the line. |
308 |
;; Otherwise, the indentation might be wrong. |
;; Otherwise, the indentation might be wrong. |
309 |
(newline) |
(newline) |
310 |
(save-excursion |
(save-excursion |
311 |
(goto-char pos) |
(goto-char pos) |
312 |
(indent-according-to-mode)) |
(indent-according-to-mode) |
313 |
|
(delete-horizontal-space t)) |
314 |
(indent-according-to-mode))) |
(indent-according-to-mode))) |
315 |
|
|
316 |
(defun quoted-insert (arg) |
(defun quoted-insert (arg) |