diff options
| author | Kenichi Handa | 1999-03-15 01:03:23 +0000 |
|---|---|---|
| committer | Kenichi Handa | 1999-03-15 01:03:23 +0000 |
| commit | 189a69d02a487187e667d83276f98077ea31be21 (patch) | |
| tree | 55e16ba090d58930ded452459c5486108819344f | |
| parent | e74d79268be74d35f6f1dccc4301c63edc5cae17 (diff) | |
| download | emacs-189a69d02a487187e667d83276f98077ea31be21.tar.gz emacs-189a69d02a487187e667d83276f98077ea31be21.zip | |
(inverse-add-abbrev): Inherit the current input method.
| -rw-r--r-- | lisp/abbrev.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 269 | (setq nameloc (point)))))) | 269 | (setq nameloc (point)))))) |
| 270 | (set-text-properties 0 (length name) nil name) | 270 | (set-text-properties 0 (length name) nil name) |
| 271 | (setq exp (read-string (format "%s expansion for \"%s\": " | 271 | (setq exp (read-string (format "%s expansion for \"%s\": " |
| 272 | type name))) | 272 | type name) nil nil nil t)) |
| 273 | (if (or (not (abbrev-expansion name table)) | 273 | (if (or (not (abbrev-expansion name table)) |
| 274 | (y-or-n-p (format "%s expands to \"%s\"; redefine? " | 274 | (y-or-n-p (format "%s expands to \"%s\"; redefine? " |
| 275 | name (abbrev-expansion name table)))) | 275 | name (abbrev-expansion name table)))) |