From 189a69d02a487187e667d83276f98077ea31be21 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 15 Mar 1999 01:03:23 +0000 Subject: [PATCH] (inverse-add-abbrev): Inherit the current input method. --- lisp/abbrev.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/abbrev.el b/lisp/abbrev.el index 8309a63ba2a..ad71ba1423c 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el @@ -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)))) -- 2.39.2