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 | 2fcff81c6b0fc1d46eb2bccecff9a63d79f04140 (patch) | |
| tree | 9301aff08c90f50a49822a3afe1eb96a8452b8ff /lisp/abbrev.el | |
| parent | cbb25e14f3af070db7105839660fb48b7189995a (diff) | |
| download | emacs-2fcff81c6b0fc1d46eb2bccecff9a63d79f04140.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)) |