diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-09-29 19:07:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-09-29 19:07:45 +0000 |
| commit | a0f884641feb7b647e1a79049ff7e8658a1bd5cd (patch) | |
| tree | c0e7a53fe15c0a30a2673f0047705f384b84dfea /lisp/abbrev.el | |
| parent | 2441d53d8ac0e7494c0202608644a97cc2ce66a1 (diff) | |
| download | emacs-a0f884641feb7b647e1a79049ff7e8658a1bd5cd.tar.gz | |
(add-abbrev, inverse-add-abbrev):
Clear text properties from NAME.
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)) |