procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
Clear text properties from NAME.
This commit is contained in:
Richard M. Stallman 1994-09-29 19:07:45 +00:00
parent 2441d53d8a
commit a0f884641f
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/abbrev.el
View file

@ -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))