Commit 189a69d0 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

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

parent e74d7926
......@@ -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))))
......
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