Commit 5e9f80a8 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(indent-relative, insert-tab):

Don't call expand-abbrev unless preceding character is a word char.
parent fe7d1824
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment