(indent-relative, insert-tab):

Don't call expand-abbrev unless preceding character is a word char.

diff --git a/lisp/indent.el b/lisp/indent.el
index 6639f4b2100a353ae7e5f1ea43a827d438c95abe..69e282b5d84978a1a1baaa2a53a3bd5ba7455095 100644 (file)
--- a/lisp/indent.el
+++ b/lisp/indent.el
@@ -56,7 +56,8 @@
 
 (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)
@@ -338,7 +339,9 @@ An indent point is a non-whitespace character following whitespace.
 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