From 5e9f80a8d5a9c3351a3595e855d5d06201199427 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 24 Aug 1997 16:26:31 +0000 Subject: [PATCH] (indent-relative, insert-tab): Don't call expand-abbrev unless preceding character is a word char. --- lisp/indent.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/indent.el b/lisp/indent.el index 6639f4b2100..69e282b5d84 100644 --- 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 -- 2.39.2