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

(add-abbrev, inverse-add-abbrev):

Clear text properties from NAME.
parent 2441d53d
......@@ -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))
......
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