diff options
| author | Lars Ingebrigtsen | 2022-06-02 11:51:09 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-06-02 11:51:09 +0200 |
| commit | c7b7c9d40f9b8f73792cf434ee3b2fdfe62af3cc (patch) | |
| tree | 55357ac325c2f18f710d8974834d13d218ef431c /test | |
| parent | a947c10d9093b9f3a29b60a52bda8afa43b6fd29 (diff) | |
| download | emacs-c7b7c9d40f9b8f73792cf434ee3b2fdfe62af3cc.tar.gz emacs-c7b7c9d40f9b8f73792cf434ee3b2fdfe62af3cc.zip | |
Reinstate the Qload file name handler
* src/lread.c (Fload): Reinstate the Qload file name handler
(bug#12598). This makes loading non-ASCII elc.gz files work.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/files-tests.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el index c7ce03cc9b2..54ada088003 100644 --- a/test/lisp/files-tests.el +++ b/test/lisp/files-tests.el | |||
| @@ -939,7 +939,7 @@ unquoted file names." | |||
| 939 | (files-tests--with-temp-non-special (tmpfile nospecial) | 939 | (files-tests--with-temp-non-special (tmpfile nospecial) |
| 940 | (should (load nospecial nil t))) | 940 | (should (load nospecial nil t))) |
| 941 | (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial) | 941 | (files-tests--with-temp-non-special-and-file-name-handler (tmpfile nospecial) |
| 942 | (should (load nospecial nil t)))) | 942 | (should-error (load nospecial nil t)))) |
| 943 | 943 | ||
| 944 | (ert-deftest files-tests-file-name-non-special-make-auto-save-file-name () | 944 | (ert-deftest files-tests-file-name-non-special-make-auto-save-file-name () |
| 945 | (files-tests--with-temp-non-special (tmpfile nospecial) | 945 | (files-tests--with-temp-non-special (tmpfile nospecial) |
| @@ -1838,7 +1838,6 @@ Prompt users for any modified buffer with `buffer-offer-save' non-nil." | |||
| 1838 | (should (eq major-mode 'text-mode))) | 1838 | (should (eq major-mode 'text-mode))) |
| 1839 | 1839 | ||
| 1840 | (ert-deftest files-load-elc-gz-file () | 1840 | (ert-deftest files-load-elc-gz-file () |
| 1841 | :expected-result :failed | ||
| 1842 | (skip-unless (executable-find "gzip")) | 1841 | (skip-unless (executable-find "gzip")) |
| 1843 | (ert-with-temp-directory dir | 1842 | (ert-with-temp-directory dir |
| 1844 | (let* ((pref (expand-file-name "compile-utf8" dir)) | 1843 | (let* ((pref (expand-file-name "compile-utf8" dir)) |