Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
a0f88464
Commit
a0f88464
authored
Sep 29, 1994
by
Richard M. Stallman
Browse files
(add-abbrev, inverse-add-abbrev):
Clear text properties from NAME.
parent
2441d53d
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
2 additions
and
0 deletions
+2
-0
lisp/abbrev.el
lisp/abbrev.el
+2
-0
No files found.
lisp/abbrev.el
View file @
a0f88464
...
...
@@ -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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment