martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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))))