(defun insert-tab (&optional prefix-arg)
(let ((count (prefix-numeric-value prefix-arg)))
- (if abbrev-mode
+ (if (and abbrev-mode
+ (eq (char-syntax (preceding-char)) ?w))
(expand-abbrev))
(if indent-tabs-mode
(insert-char ?\t count)
If the previous nonblank line has no indent points beyond the
column point starts at, `tab-to-tab-stop' is done instead."
(interactive "P")
- (if abbrev-mode (expand-abbrev))
+ (if (and abbrev-mode
+ (eq (char-syntax (preceding-char)) ?w))
+ (expand-abbrev))
(let ((start-column (current-column))
indent)
(save-excursion
(defcustom tab-stop-list
'(8 16 24 32 40 48 56 64 72 80 88 96 104 112 120)
- "*List of tab stop positions used by `tab-to-tab-stops'.
+ "*List of tab stop positions used by `tab-to-tab-stop'.
This should be a list of integers, ordered from smallest to largest."
:group 'indent
:type '(repeat integer))