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