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." ...@@ -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\": " (read-string (format (if exp "%s abbrev for \"%s\": "
"Undefine %s abbrev: ") "Undefine %s abbrev: ")
type exp))) type exp)))
(set-text-properties 0 (length name) nil name)
(if (or (null exp) (if (or (null exp)
(not (abbrev-expansion name table)) (not (abbrev-expansion name table))
(y-or-n-p (format "%s expands to \"%s\"; redefine? " (y-or-n-p (format "%s expands to \"%s\"; redefine? "
...@@ -250,6 +251,7 @@ Expands the abbreviation after defining it." ...@@ -250,6 +251,7 @@ Expands the abbreviation after defining it."
(forward-word (- arg)) (forward-word (- arg))
(setq name (buffer-substring (point) (progn (forward-word 1) (setq name (buffer-substring (point) (progn (forward-word 1)
(setq nameloc (point)))))) (setq nameloc (point))))))
(set-text-properties 0 (length name) nil name)
(setq exp (read-string (format "%s expansion for \"%s\": " (setq exp (read-string (format "%s expansion for \"%s\": "
type name))) type name)))
(if (or (not (abbrev-expansion name table)) (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