Mercurial > emacs

changeset 19508:c86800208845

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(indent-relative, insert-tab): Don't call expand-abbrev unless preceding character is a word char.
author Richard M. Stallman <rms@gnu.org>
date Sun, 24 Aug 1997 16:26:31 +0000
parents a64e4304569b
children ea4261efd9f9
files lisp/indent.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/indent.el	Sun Aug 24 16:22:56 1997 +0000
+++ b/lisp/indent.el	Sun Aug 24 16:26:31 1997 +0000
@@ -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 @@
 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