Mercurial > emacs
changeset 12778:657be7aaa043
(tab-to-tab-stop): Expand abbrevs only after a word-char.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 05 Aug 1995 20:21:06 +0000 |
| parents | 96819e0ab508 |
| children | 5b3d83e51b91 |
| files | lisp/indent.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/indent.el Sat Aug 05 20:19:40 1995 +0000 +++ b/lisp/indent.el Sat Aug 05 20:21:06 1995 +0000 @@ -419,7 +419,8 @@ The variable `tab-stop-list' is a list of columns at which there are tab stops. Use \\[edit-tab-stops] to edit them interactively." (interactive) - (if abbrev-mode (expand-abbrev)) + (and abbrev-mode (= (char-syntax (preceding-char)) ?w) + (expand-abbrev)) (let ((tabs tab-stop-list)) (while (and tabs (>= (current-column) (car tabs))) (setq tabs (cdr tabs)))