diff options
| author | Mattias Engdegård | 2025-07-05 13:09:43 +0200 |
|---|---|---|
| committer | Mattias Engdegård | 2025-07-07 11:30:07 +0200 |
| commit | 553a6c407f28c4faa832c8cda462267ef75bff38 (patch) | |
| tree | 53ea7061f035ac6125704f93af51f3f91dd00b70 /test/src | |
| parent | 0de646b6a16dac8cf185c32b02d4d575830c6a31 (diff) | |
| download | emacs-553a6c407f28c4faa832c8cda462267ef75bff38.tar.gz emacs-553a6c407f28c4faa832c8cda462267ef75bff38.zip | |
Read characters from functions as multibyte
Previously, latin-1 was incorrectly assumed (bug#70988).
* src/lread.c (readchar): Set multibyte flag.
* test/src/lread-tests.el (lread-function-source): New test.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/lread-tests.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test/src/lread-tests.el b/test/src/lread-tests.el index 40640e79eed..d832cc9aa4e 100644 --- a/test/src/lread-tests.el +++ b/test/src/lread-tests.el | |||
| @@ -387,4 +387,9 @@ literals (Bug#20852)." | |||
| 387 | (goto-char (point-min)) | 387 | (goto-char (point-min)) |
| 388 | (should-error (read (current-buffer)) :type 'end-of-file))) | 388 | (should-error (read (current-buffer)) :type 'end-of-file))) |
| 389 | 389 | ||
| 390 | (ert-deftest lread-function-source () | ||
| 391 | (let* ((s '(#x41 #x222a #xff -1)) | ||
| 392 | (val (read (lambda () (pop s))))) | ||
| 393 | (should (equal (symbol-name val) "A∪ÿ")))) | ||
| 394 | |||
| 390 | ;;; lread-tests.el ends here | 395 | ;;; lread-tests.el ends here |