aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorLars Ingebrigtsen2022-06-02 11:51:09 +0200
committerLars Ingebrigtsen2022-06-02 11:51:09 +0200
commitc7b7c9d40f9b8f73792cf434ee3b2fdfe62af3cc (patch)
tree55357ac325c2f18f710d8974834d13d218ef431c /test
parenta947c10d9093b9f3a29b60a52bda8afa43b6fd29 (diff)
downloademacs-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.el3
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))