From 2fcff81c6b0fc1d46eb2bccecff9a63d79f04140 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 29 Sep 1994 19:07:45 +0000 Subject: (add-abbrev, inverse-add-abbrev): Clear text properties from NAME. --- lisp/abbrev.el | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lisp/abbrev.el') 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)) -- cgit v1.2.1