From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 5 Aug 1995 20:21:06 +0000 (+0000)
Subject: (tab-to-tab-stop): Expand abbrevs only after a word-char.
X-Git-Tag: emacs-19.34~3082
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a2964053573a757212e5a884475ee654a886bc15;p=emacs.git

(tab-to-tab-stop): Expand abbrevs only after a word-char.
---

diff --git a/lisp/indent.el b/lisp/indent.el
index 9aaaf299423..dd2f95771bf 100644
--- a/lisp/indent.el
+++ b/lisp/indent.el
@@ -419,7 +419,8 @@ You can add or remove colons and then do \\<edit-tab-stops-map>\\[edit-tab-stops
 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)))