diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-12-20 17:34:38 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-12-20 17:34:38 -0500 |
| commit | 0f7e3430bba031a6c5f45e0afe2ddcac197603cf (patch) | |
| tree | 34c14495d9e17d4a674bb57563980c507084b47f /test | |
| parent | 2c8f1539ab0a2d8b6b2bb9982249c5aa2dbd27b1 (diff) | |
| download | emacs-0f7e3430bba031a6c5f45e0afe2ddcac197603cf.tar.gz | |
* lisp/international/mule-cmds.el: Fix bug#38642
(universal-coding-system-argument): Adjust the code to the way
`universal-argument` works nowadays. Handle `prefix-arg` a bit more
like `command_loop` does.
* test/lisp/international/mule-tests.el
(mule-cmds--test-universal-coding-system-argument): New test.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/international/mule-tests.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/lisp/international/mule-tests.el b/test/lisp/international/mule-tests.el index 678cbc29738..881d92a2cae 100644 --- a/test/lisp/international/mule-tests.el +++ b/test/lisp/international/mule-tests.el @@ -40,6 +40,14 @@ (should (equal (encode-coding-char ?a 'ebcdic-int) "\201")) (should (not (multibyte-string-p (encode-coding-char ?a 'utf-8))))) +(ert-deftest mule-cmds--test-universal-coding-system-argument () + (skip-unless (not noninteractive)) + (should (equal "ccccccccccccccccab" + (let ((enable-recursive-minibuffers t) + (unread-command-events + (append (kbd "C-x RET c u t f - 8 RET C-u C-u c a b RET") nil))) + (read-string "prompt:"))))) + ;; Stop "Local Variables" above causing confusion when visiting this file. |