84 |
;; so we force it to always insert a tab here. |
;; so we force it to always insert a tab here. |
85 |
(eq indent-line-function 'indent-to-left-margin) |
(eq indent-line-function 'indent-to-left-margin) |
86 |
(and (not tab-always-indent) |
(and (not tab-always-indent) |
87 |
(> (current-column) (current-indentation))) |
(> (current-column) (current-indentation)))) |
|
(and (not (eq tab-always-indent 'always)) |
|
|
(eq this-command last-command))) |
|
88 |
(insert-tab arg)) |
(insert-tab arg)) |
89 |
;; Those functions are meant specifically for tabbing and not for |
;; Those functions are meant specifically for tabbing and not for |
90 |
;; indenting, so we can't pass them to indent-according-to-mode. |
;; indenting, so we can't pass them to indent-according-to-mode. |