mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(inverse-add-abbrev): Inherit the current input method.

Browse source
This commit is contained in:
Kenichi Handa 1999-03-15 01:03:23 +00:00
parent e74d79268b
commit 189a69d02a
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/abbrev.el
View file

@ -269,7 +269,7 @@ Expands the abbreviation after defining it."
(setq nameloc (point))))))
(set-text-properties 0 (length name) nil name)
(setq exp (read-string (format "%s expansion for \"%s\": "
type name)))
type name) nil nil nil t))
(if (or (not (abbrev-expansion name table))
(y-or-n-p (format "%s expands to \"%s\"; redefine? "
name (abbrev-expansion name table))))