diff options
Diffstat (limited to 'lisp/abbrev.el')
| -rw-r--r-- | lisp/abbrev.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/abbrev.el b/lisp/abbrev.el index 39323b938b4..5144a66604f 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el @@ -217,6 +217,7 @@ Don't use this function in a Lisp program; use `define-abbrev' instead." (read-string (format (if exp "%s abbrev for \"%s\": " "Undefine %s abbrev: ") type exp))) + (set-text-properties 0 (length name) nil name) (if (or (null exp) (not (abbrev-expansion name table)) (y-or-n-p (format "%s expands to \"%s\"; redefine? " @@ -250,6 +251,7 @@ Expands the abbreviation after defining it." (forward-word (- arg)) (setq name (buffer-substring (point) (progn (forward-word 1) (setq nameloc (point)))))) + (set-text-properties 0 (length name) nil name) (setq exp (read-string (format "%s expansion for \"%s\": " type name))) (if (or (not (abbrev-expansion name table)) |